aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMike Gabriel <mike.gabriel@das-netzwerkteam.de>2017-06-27 09:36:24 +0200
committerMike Gabriel <mike.gabriel@das-netzwerkteam.de>2017-06-27 09:36:24 +0200
commit58fda6b6fa7bd79feda2baf0e5296de8a5d59ae8 (patch)
tree8088bf990c1dc3a3d8524501c8ab35f072c6278d
parentf507dc87ca223240acbae2435be091f92b6a4a4e (diff)
downloadperl-Arctica-Services-Audio-Server-PulseAudio-58fda6b6fa7bd79feda2baf0e5296de8a5d59ae8.tar.gz
perl-Arctica-Services-Audio-Server-PulseAudio-58fda6b6fa7bd79feda2baf0e5296de8a5d59ae8.tar.bz2
perl-Arctica-Services-Audio-Server-PulseAudio-58fda6b6fa7bd79feda2baf0e5296de8a5d59ae8.zip
Add helpe script: arctica-testserver-pa-get-testsid.
-rwxr-xr-xbin/arctica-testserver-pa-get-testsid70
1 files changed, 70 insertions, 0 deletions
diff --git a/bin/arctica-testserver-pa-get-testsid b/bin/arctica-testserver-pa-get-testsid
new file mode 100755
index 0000000..d32de0f
--- /dev/null
+++ b/bin/arctica-testserver-pa-get-testsid
@@ -0,0 +1,70 @@
+#!/usr/bin/perl -T
+
+################################################################################
+# _____ _
+# |_ _| |_ ___
+# | | | ' \/ -_)
+# |_| |_||_\___|
+# _ _ ____ _ _
+# / \ _ __ ___| |_(_) ___ __ _ | _ \ _ __ ___ (_) ___ ___| |_
+# / _ \ | '__/ __| __| |/ __/ _` | | |_) | '__/ _ \| |/ _ \/ __| __|
+# / ___ \| | | (__| |_| | (_| (_| | | __/| | | (_) | | __/ (__| |_
+# /_/ \_\_| \___|\__|_|\___\__,_| |_| |_| \___// |\___|\___|\__|
+# |__/
+# 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 Arctica::Core::ManageDirs;
+my $adirs = Arctica::Core::ManageDirs->new();
+open(SID,"$adirs->{'tmp_adir'}/audiotest_socet_id");
+my ($sid,undef) = <SID>;
+close(SID);
+$sid =~ s/[\n\s]//g;
+print "$adirs->{'tmp_adir'}\n";
+print "$sid\n";