From f507dc87ca223240acbae2435be091f92b6a4a4e Mon Sep 17 00:00:00 2001
From: GZNGET FOSS Team <opensource@gznianguan.com>
Date: Tue, 27 Jun 2017 09:31:10 +0200
Subject: Add helpe script: arctica-testserver-pa-create-remap.

---
 bin/arctica-testserver-pa-create-remap | 96 ++++++++++++++++++++++++++++++++++
 1 file changed, 96 insertions(+)
 create mode 100755 bin/arctica-testserver-pa-create-remap

diff --git a/bin/arctica-testserver-pa-create-remap b/bin/arctica-testserver-pa-create-remap
new file mode 100755
index 0000000..d487d7f
--- /dev/null
+++ b/bin/arctica-testserver-pa-create-remap
@@ -0,0 +1,96 @@
+#!/usr/bin/perl
+
+################################################################################
+#          _____ _
+#         |_   _| |_  ___
+#           | | | ' \/ -_)
+#           |_| |_||_\___|
+#                   _   _             ____            _           _
+#    / \   _ __ ___| |_(_) ___ __ _  |  _ \ _ __ ___ (_) ___  ___| |_
+#   / _ \ | '__/ __| __| |/ __/ _` | | |_) | '__/ _ \| |/ _ \/ __| __|
+#  / ___ \| | | (__| |_| | (_| (_| | |  __/| | | (_) | |  __/ (__| |_
+# /_/   \_\_|  \___|\__|_|\___\__,_| |_|   |_|  \___// |\___|\___|\__|
+#                                                  |__/
+#          The Arctica Modular Remote Computing Framework
+#
+################################################################################
+#
+# Copyright (C) 2015-2016 The Arctica Project
+# http://arctica-project.org/
+#
+# This code is dual licensed: strictly GPL-2 or AGPL-3+
+#
+# GPL-2
+# -----
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; version 2 of the License.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the
+# Free Software Foundation, Inc.,
+#
+# 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
+#
+# AGPL-3+
+# -------
+# This programm is free software; you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This programm is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with this program; if not, write to the
+# Free Software Foundation, Inc.,
+# 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
+#
+# Copyright (C) 2015-2017 Guangzhou Nianguan Electronics Technology Co.Ltd.
+#                         <opensource@gznianguan.com>
+# Copyright (C) 2015-2017 Mike Gabriel <mike.gabriel@das-netzwerkteam.de>
+#
+################################################################################
+
+use GStreamer1;
+use Glib qw( TRUE FALSE );
+use Time::HiRes qw( usleep );
+GStreamer1::init([ $0 ]);# Initiate GST
+
+$ENV{'DISPLAY'} = ":9";
+my $gotit = 0;
+open(PACTL, "-|", "/usr/bin/pactl","list","sources","short");
+while (<PACTL>) {
+	if ($_ =~ /arctica\.mic0/) {
+		$gotit = 1;		
+	}	
+}
+close(PACTL);
+
+
+if ($gotit ne 1) {
+system("pactl load-module module-null-sink sink_name=arctica.output0 channels=2 sink_properties=device.description=\"VirtualOutput\"");
+system("pactl load-module module-null-sink sink_name=arctica.input0 channels=1 sink_properties=device.description=\".VirtualInputSink\"");
+
+	my $pipeline = GStreamer1::Pipeline->new( 'pipeline' );
+	my $src = GStreamer1::ElementFactory::make( pulsesrc => 'src' );
+	$src->set( 'device' => "arctica.input0.monitor" );
+	my $sink  = GStreamer1::ElementFactory::make( fakesink => 'sink' );
+	$pipeline->add( $src );
+	$pipeline->add( $sink );
+	$src->link($sink);
+	$pipeline->set_state( "playing" );
+	usleep(100000);
+	system("/usr/bin/pactl load-module module-remap-source master=arctica.input0.monitor source_name=arctica.mic0 source_properties=device.description=\"VirtualMicrophone\" remix=0");
+	usleep(1000000);
+	$pipeline->set_state( "paused" );
+	$pipeline->set_state( "null" );
+}
-- 
cgit v1.2.3