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