diff options
author | Dimitri Sokolyuk <demon@dim13.org> | 2015-07-16 20:04:34 +0200 |
---|---|---|
committer | Dimitri Sokolyuk <demon@dim13.org> | 2015-07-16 20:04:34 +0200 |
commit | 48bfca18844c69674b865bb9c4e859108aa276a6 (patch) | |
tree | 75d5bab69f029e3ccc0d172b0890e668b474aa71 | |
parent | 2074fe653b9668023f568770de6155d7ea87434b (diff) |
Local settings
-rwxr-xr-x[-rw-r--r--] | misc/snapshot.pl | 5 |
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"; |