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