From 48bfca18844c69674b865bb9c4e859108aa276a6 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Thu, 16 Jul 2015 20:04:34 +0200 Subject: Local settings --- misc/snapshot.pl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) mode change 100644 => 100755 misc/snapshot.pl diff --git a/misc/snapshot.pl b/misc/snapshot.pl old mode 100644 new mode 100755 index de0c63b..3cbb9d7 --- 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"; -- cgit v1.2.3