diff options
author | Dimitri Sokolyuk <demon@dim13.org> | 2015-07-15 21:18:13 +0200 |
---|---|---|
committer | Dimitri Sokolyuk <demon@dim13.org> | 2015-07-15 21:18:13 +0200 |
commit | 9b7332658e40e7133dfc7e8263657edd14b2b406 (patch) | |
tree | ac1eadc28244c86774acf4ce9e12d301e05df7f8 /misc/monitorTDE2.pl | |
parent | c6ba94c4087c2145639492a2fd21d647138a9a6d (diff) |
Adjust local settings
Diffstat (limited to 'misc/monitorTDE2.pl')
-rwxr-xr-x[-rw-r--r--] | misc/monitorTDE2.pl | 7 |
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) {
|