From e2e488e5afad6e584eea894b0de5c68b78bea5db Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Wed, 15 Jul 2015 19:25:43 +0200 Subject: Indent --- misc/monitorTDE2.pl | 78 ++++++++++++++++++++++++++--------------------------- 1 file changed, 39 insertions(+), 39 deletions(-) (limited to 'misc/monitorTDE2.pl') 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 +} -- cgit v1.2.3