From 9b7332658e40e7133dfc7e8263657edd14b2b406 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Wed, 15 Jul 2015 21:18:13 +0200 Subject: Adjust local settings --- misc/monitorTDE2.pl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) mode change 100644 => 100755 misc/monitorTDE2.pl (limited to 'misc/monitorTDE2.pl') diff --git a/misc/monitorTDE2.pl b/misc/monitorTDE2.pl old mode 100644 new mode 100755 index 8c348d7..3e20616 --- a/misc/monitorTDE2.pl +++ b/misc/monitorTDE2.pl @@ -1,4 +1,5 @@ -#ver 0.01 (C)Cyr +#!/usr/bin/perl -w +#ver 0.01 (C)Cyr use strict; use warnings; use diagnostics; @@ -203,7 +204,7 @@ $Data::Dumper::Varname='calls'; # parse ASN.1 desciptions my $asn = Convert::ASN1->new; #$asn->configure(tagdefault=>'EXPLICIT'); -$asn->prepare_file('d:/111/asn_perl/kxtde.asn') or die "prepare: ", $asn->error; +$asn->prepare_file('kxtde.asn') or die "prepare: ", $asn->error; my %serviceArgs = ( 21=> 'CSTAEventReportArgument', 51=> 'EscapeArgument', 71=> 'MonitorStartArgument', @@ -218,7 +219,7 @@ foreach (keys %serviceResults) { $asn->registertype('serviceResult',$_,$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); foreach my $number (@devices) { -- cgit v1.2.3