aboutsummaryrefslogtreecommitdiff
path: root/bin/AudioTestClient
diff options
context:
space:
mode:
authorGZNGET FOSS Team <opensource@gznianguan.com>2017-06-21 12:47:37 +0200
committerMike Gabriel <mike.gabriel@das-netzwerkteam.de>2017-06-21 12:50:08 +0200
commiteda96a0852bff8d31240021163df1fc4ddced6a6 (patch)
treef77a44a2f285221699d0c8c27aa555b1d43781f4 /bin/AudioTestClient
parent58ca4d609db9fd14b27ee0b57f85b40f9b42c270 (diff)
downloadperl-Arctica-Services-Audio-Streamer-ClientGST-eda96a0852bff8d31240021163df1fc4ddced6a6.tar.gz
perl-Arctica-Services-Audio-Streamer-ClientGST-eda96a0852bff8d31240021163df1fc4ddced6a6.tar.bz2
perl-Arctica-Services-Audio-Streamer-ClientGST-eda96a0852bff8d31240021163df1fc4ddced6a6.zip
Update to development state dating 20170421.
Diffstat (limited to 'bin/AudioTestClient')
-rwxr-xr-xbin/AudioTestClient16
1 files changed, 8 insertions, 8 deletions
diff --git a/bin/AudioTestClient b/bin/AudioTestClient
index 4ade041..710e34c 100755
--- a/bin/AudioTestClient
+++ b/bin/AudioTestClient
@@ -80,7 +80,7 @@ if ($argsoc =~ /^([a-zA-Z0-9]{16,128})$/) {
}
}
print "CONNECTING TO SOCKET ID: $argsoc\n";
-#
+#
################################################################################
my $ACO = Arctica::Core::eventInit->new({
app_name=>'audio-client-test',
@@ -100,7 +100,7 @@ my $JABusClient = Arctica::Core::JABus::Socket->new($ACO,{
hooks => {
on_ready => \&my_on_ready,
},
-
+
});
@@ -114,23 +114,23 @@ sub gstctl_handler {
# print "Action:\t$JDATA->{'action'}\n";
if ($JDATA->{'action'} eq "start") {
BugOUT(8,"JACTION IS START");
- if ($JDATA->{'type'} eq "output") {
+ if ($JDATA->{'type'} eq "output") {
$ClientGST->start_output($JDATA->{'idnum'});
- } elsif ($JDATA->{'type'} eq "input") {
+ } elsif ($JDATA->{'type'} eq "input") {
$ClientGST->start_input($JDATA->{'idnum'});
- }
+ }
} elsif ($JDATA->{'action'} eq "stop") {
BugOUT(8,"JACTION IS STOP");
- if ($JDATA->{'type'} eq "output") {
+ if ($JDATA->{'type'} eq "output") {
$ClientGST->stop_output($JDATA->{'idnum'});
- } elsif ($JDATA->{'type'} eq "input") {
+ } elsif ($JDATA->{'type'} eq "input") {
$ClientGST->stop_input($JDATA->{'idnum'});
}
}
-
+
}
sub my_on_ready {