aboutsummaryrefslogtreecommitdiff
path: root/misc/monitorTDE2.pl
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/monitorTDE2.pl
parenta01332f426950efb5998dc8f0041890bbd44ee3f (diff)
Indent
Diffstat (limited to 'misc/monitorTDE2.pl')
-rw-r--r--misc/monitorTDE2.pl78
1 files changed, 39 insertions, 39 deletions
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
+}