aboutsummaryrefslogtreecommitdiff
path: root/misc/makecall.pl
diff options
context:
space:
mode:
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
+}