aboutsummaryrefslogtreecommitdiff
path: root/misc/monitorTDE2.pl
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2015-07-15 21:18:13 +0200
committerDimitri Sokolyuk <demon@dim13.org>2015-07-15 21:18:13 +0200
commit9b7332658e40e7133dfc7e8263657edd14b2b406 (patch)
treeac1eadc28244c86774acf4ce9e12d301e05df7f8 /misc/monitorTDE2.pl
parentc6ba94c4087c2145639492a2fd21d647138a9a6d (diff)
Adjust local settings
Diffstat (limited to 'misc/monitorTDE2.pl')
-rwxr-xr-x[-rw-r--r--]misc/monitorTDE2.pl7
1 files changed, 4 insertions, 3 deletions
diff --git a/misc/monitorTDE2.pl b/misc/monitorTDE2.pl
index 8c348d7..3e20616 100644..100755
--- 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) {