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