aboutsummaryrefslogtreecommitdiff
path: root/misc
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2015-07-15 19:25:43 +0200
committerDimitri Sokolyuk <demon@dim13.org>2015-07-15 19:25:43 +0200
commite2e488e5afad6e584eea894b0de5c68b78bea5db (patch)
tree8bf462e75ae0b10e7a4a27bf9bcc9fb4aa27fa25 /misc
parenta01332f426950efb5998dc8f0041890bbd44ee3f (diff)
Indent
Diffstat (limited to 'misc')
-rw-r--r--misc/OGM.pl84
-rw-r--r--misc/makecall.pl34
-rw-r--r--misc/monitorCallerID.pl2
-rw-r--r--misc/monitorCallerID2.pl42
-rw-r--r--misc/monitorTDE2.pl78
-rw-r--r--misc/snapshot.pl42
6 files changed, 141 insertions, 141 deletions
diff --git a/misc/OGM.pl b/misc/OGM.pl
index b89d197..7931379 100644
--- a/misc/OGM.pl
+++ b/misc/OGM.pl
@@ -104,53 +104,53 @@ sub playOGM{
if (!$ogmId) {$ogmId=10}
my $connectionID = shift;
my $pdu = $CSTAapdu->encode({svcRequest=>{
- invokeID=>11,
- serviceID=>51,
- serviceArgs=>{
- privateData=>{
- private =>{
- kmeResourceControl=>{
- ogmStart=>{
- connection=>$connectionID,
- ogmId=>$ogmId
- }
- }
- }
- }
- }
- }
- });
+ invokeID=>11,
+ serviceID=>51,
+ serviceArgs=>{
+ privateData=>{
+ private =>{
+ kmeResourceControl=>{
+ ogmStart=>{
+ connection=>$connectionID,
+ ogmId=>$ogmId
+ }
+ }
+ }
+ }
+ }
+ }
+ });
send_pdu($pdu);
}
sub numberOfMsgPort{
#EscapeArgument.privateData.private.kmeSystemData.getSystemData.request
my $pdu = $CSTAapdu->encode({svcRequest=>{
- invokeID=>8,
- serviceID=>51,
- serviceArgs=>{
- privateData=>{
- private =>{
- kmeSystemData=>{
- getSystemData=>{
- request =>{
- systemData=>18
- }
- }
- }
- }
- }
- }
- }
- });
-send_pdu($pdu);
-while (1) {
- $pdu = receive_stuff();
- my $out = $CSTAapdu->decode($pdu);
- if (defined $out->{svcRequest}->{serviceArgs}->{privateData}->{private}->{kmeSystemData}->{systemDataLinkedReply}->{sysData}->{numberOfMsgPort}) {
- my $MsgPorts = $out->{svcRequest}->{serviceArgs}->{privateData}->{private}->{kmeSystemData}->{systemDataLinkedReply}->{sysData}->{numberOfMsgPort};
- return $MsgPorts
+ invokeID=>8,
+ serviceID=>51,
+ serviceArgs=>{
+ privateData=>{
+ private =>{
+ kmeSystemData=>{
+ getSystemData=>{
+ request =>{
+ systemData=>18
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ });
+ send_pdu($pdu);
+ while (1) {
+ $pdu = receive_stuff();
+ my $out = $CSTAapdu->decode($pdu);
+ if (defined $out->{svcRequest}->{serviceArgs}->{privateData}->{private}->{kmeSystemData}->{systemDataLinkedReply}->{sysData}->{numberOfMsgPort}) {
+ my $MsgPorts = $out->{svcRequest}->{serviceArgs}->{privateData}->{private}->{kmeSystemData}->{systemDataLinkedReply}->{sysData}->{numberOfMsgPort};
+ return $MsgPorts
+ }
}
- }
}
sub answer{
my $callerID = shift;
@@ -350,4 +350,4 @@ while (1) {
}
}
-} \ No newline at end of file
+}
diff --git a/misc/makecall.pl b/misc/makecall.pl
index 3390626..f4ad669 100644
--- a/misc/makecall.pl
+++ b/misc/makecall.pl
@@ -101,22 +101,22 @@ sub SystemStatusResult{
sub makeCall{
my $dialingNumber = shift;
my $pdu = $CSTAapdu->encode({svcRequest=>{
- invokeID=>9,
- serviceID=>10,
- serviceArgs=>{
- callingDevice=>{
- deviceIdentifier=>{
- dialingNumber=>$dialingNumber # номер абонента
- }
- },
- calledDirectoryNumber=>{
- deviceIdentifier=>{
- dialingNumber=>178 # номер ICD автоинформатора
- }
- }
- }
- }
- });
+ invokeID=>9,
+ serviceID=>10,
+ serviceArgs=>{
+ callingDevice=>{
+ deviceIdentifier=>{
+ dialingNumber=>$dialingNumber # номер абонента
+ }
+ },
+ calledDirectoryNumber=>{
+ deviceIdentifier=>{
+ dialingNumber=>178 # номер ICD автоинформатора
+ }
+ }
+ }
+ }
+ });
send_pdu($pdu);
$pdu = receive_stuff();
#Convert::ASN1::asn_dump($pdu);
@@ -296,4 +296,4 @@ for (@devices) {
if ($i++%2) { # 2 - количество каналов SVM
sleep 3 # задержка на сообщение
}
-} \ No newline at end of file
+}
diff --git a/misc/monitorCallerID.pl b/misc/monitorCallerID.pl
index 45d4a80..2ec0ea4 100644
--- a/misc/monitorCallerID.pl
+++ b/misc/monitorCallerID.pl
@@ -133,4 +133,4 @@ csta_connect({'host'=>'192.168.0.101', 'port'=>33333});
for ($ext_num = 101; $ext_num <=156; $ext_num++){
MonitorStart($ext_num);
}
-main_loop(); \ No newline at end of file
+main_loop();
diff --git a/misc/monitorCallerID2.pl b/misc/monitorCallerID2.pl
index 19fe468..c930053 100644
--- a/misc/monitorCallerID2.pl
+++ b/misc/monitorCallerID2.pl
@@ -113,27 +113,27 @@ sub GetSystemData{
#EXT=5
#CO =2
my $pdu = $CSTAapdu->encode({svcRequest=>{
- invokeID=>4,
- serviceID=>51,
- serviceArgs=>{
- privateData=>{
- private=>{
- kmeSystemData=>{
- getSystemData=>{
- request=>{
- deviceList=>{
- category=>{
- standardDevice=>$DeviceCategory
- }
- }
- }
- }
- }
- }
- }
+ invokeID=>4,
+ serviceID=>51,
+ serviceArgs=>{
+ privateData=>{
+ private=>{
+ kmeSystemData=>{
+ getSystemData=>{
+ request=>{
+ deviceList=>{
+ category=>{
+ standardDevice=>$DeviceCategory
}
- }
- });
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ });
#my $pdu = "A11602020602020133300DA40BA009A407A105A0030A010".$DeviceCategory;
#$pdu = pack('H*', $pdu);
send_pdu($pdu);
@@ -258,4 +258,4 @@ while (1) {
SystemStatusResult($invokeID);
}
}
-} \ No newline at end of file
+}
diff --git a/misc/monitorTDE2.pl b/misc/monitorTDE2.pl
index 487bd5f..8c348d7 100644
--- a/misc/monitorTDE2.pl
+++ b/misc/monitorTDE2.pl
@@ -114,27 +114,27 @@ sub GetSystemData{
#EXT=5
#CO =2
my $pdu = $CSTAapdu->encode({svcRequest=>{
- invokeID=>4,
- serviceID=>51,
- serviceArgs=>{
- privateData=>{
- private=>{
- kmeSystemData=>{
- getSystemData=>{
- request=>{
- deviceList=>{
- category=>{
- standardDevice=>$DeviceCategory
- }
- }
- }
- }
- }
- }
- }
+ invokeID=>4,
+ serviceID=>51,
+ serviceArgs=>{
+ privateData=>{
+ private=>{
+ kmeSystemData=>{
+ getSystemData=>{
+ request=>{
+ deviceList=>{
+ category=>{
+ standardDevice=>$DeviceCategory
}
- }
- });
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ });
#my $pdu = "A11602020602020133300DA40BA009A407A105A0030A010".$DeviceCategory;
#$pdu = pack('H*', $pdu);
send_pdu($pdu);
@@ -161,24 +161,24 @@ sub GetSystemData{
}
}
sub MonitorStartArgument{
-my $device = shift;
-my $pdu = $CSTAapdu->encode({svcRequest=>{
- invokeID=>9,
- serviceID=>71,
- serviceArgs=>{
- monitorObject=>{
- deviceObject=>{
- deviceIdentifier=>{
- deviceNumber=>$device
- }
- }
- },
- requestedMonitorFilter=>{}
- }
- }
- });
-send_pdu($pdu);
-#$pdu = receive_stuff();
+ my $device = shift;
+ my $pdu = $CSTAapdu->encode({svcRequest=>{
+ invokeID=>9,
+ serviceID=>71,
+ serviceArgs=>{
+ monitorObject=>{
+ deviceObject=>{
+ deviceIdentifier=>{
+ deviceNumber=>$device
+ }
+ }
+ },
+ requestedMonitorFilter=>{}
+ }
+ }
+ });
+ send_pdu($pdu);
+ #$pdu = receive_stuff();
}
sub deviceID{
my $deviceIdentifier = shift;
@@ -238,4 +238,4 @@ while (1) {
SystemStatusResult($invokeID);
}
}
-} \ No newline at end of file
+}
diff --git a/misc/snapshot.pl b/misc/snapshot.pl
index 227cb16..bd4953b 100644
--- a/misc/snapshot.pl
+++ b/misc/snapshot.pl
@@ -136,27 +136,27 @@ sub GetSystemData{
#EXT=5
#CO =2
my $pdu = $CSTAapdu->encode({svcRequest=>{
- invokeID=>4,
- serviceID=>51,
- serviceArgs=>{
- privateData=>{
- private=>{
- kmeSystemData=>{
- getSystemData=>{
- request=>{
- deviceList=>{
- category=>{
- standardDevice=>$DeviceCategory
- }
- }
- }
- }
- }
- }
- }
+ invokeID=>4,
+ serviceID=>51,
+ serviceArgs=>{
+ privateData=>{
+ private=>{
+ kmeSystemData=>{
+ getSystemData=>{
+ request=>{
+ deviceList=>{
+ category=>{
+ standardDevice=>$DeviceCategory
}
- }
- });
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ });
#my $pdu = "A11602020602020133300DA40BA009A407A105A0030A010".$DeviceCategory;
#$pdu = pack('H*', $pdu);
send_pdu($pdu);
@@ -459,4 +459,4 @@ while (1) {
print "callID: deviceID: CallState:\n";
printf ("%-8s%-10s%-10s\n",$_->[0],$_->[1],$_->[2]) for sort {$a -> [0] cmp $b -> [0]} @calls;
sleep 1;
-} \ No newline at end of file
+}