aboutsummaryrefslogtreecommitdiff
path: root/misc
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2015-07-16 20:04:34 +0200
committerDimitri Sokolyuk <demon@dim13.org>2015-07-16 20:04:34 +0200
commit48bfca18844c69674b865bb9c4e859108aa276a6 (patch)
tree75d5bab69f029e3ccc0d172b0890e668b474aa71 /misc
parent2074fe653b9668023f568770de6155d7ea87434b (diff)
Local settings
Diffstat (limited to 'misc')
-rwxr-xr-x[-rw-r--r--]misc/snapshot.pl5
1 files changed, 3 insertions, 2 deletions
diff --git a/misc/snapshot.pl b/misc/snapshot.pl
index de0c63b..3cbb9d7 100644..100755
--- a/misc/snapshot.pl
+++ b/misc/snapshot.pl
@@ -1,3 +1,4 @@
+#!/usr/bin/env perl
#ver 0.11 (C)Cyr
use strict;
use warnings;
@@ -490,7 +491,7 @@ foreach ( keys %serviceResults ) {
$asn->find( $serviceResults{$_} ) );
}
$CSTAapdu = $asn->find('CSTAapdu');
-csta_connect( { 'host' => '192.168.0.101', 'port' => 33333 } );
+csta_connect( { 'host' => '192.168.240.20', 'port' => 33333 } );
GetSystemData(2);
GetSystemData(5);
my $maxCO = 0;
@@ -527,7 +528,7 @@ while (1) {
$maxCO = $CO;
print chr(7);
}
- system('CLS'); # for windows, 'clear' for linux
+ #system('CLS'); # for windows, 'clear' for linux
print strftime( "%H:%M:%S ", localtime ), "maxCO:", $maxCO, " CO:", $CO,
"\n";
print "callID: deviceID: CallState:\n";