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