изменить perl скрипт для отправки смс

 
-1
 
Perl
ava
nikorip | 23.12.2016, 22:25
Не подскажите если кто разбирается в языке Perl. Есть скрипт

#!/usr/bin/perl -w
    use strict;
    use IO::Socket;

    my($server, $newmsg,

    $max_len, $server_port);
    $max_len = 160;
    $server_port = 12345;

    $server = IO::Socket::INET->new(LocalPort=>$server_port, Broadcast=>0, Proto=>"udp")
    or die "Error starting UDP Server on port $server_port: $@\n";
    print "UDP Server started on port $server_port\n";
    $newmsg = "";
    while($server->recv($newmsg,$max_len)){
    if($newmsg){
    #my($port, $ipaddr) = sockaddr_in($server->peername);
    print "Received: $newmsg \n";
    open(GNOKII, "| gnokii --sendsms +7**********") || die "Starting gnokii failed: $!\n";
    print GNOKII $newmsg;
    close(GNOKII);
    }
    }

    die "recv: $!";

Данный скрипт прослушивает порт 12345 и передает все приходящие в него сообщения в gnokii, на указаний номер мобильного отправляется смс.
Надо изменить скрипт таким образом что бы смс приходили на 2 указаних номера. Я в программировании не силен, помогите если кто знает как решить эту задачу. Делаю смс оповещения на основании вот этой статьи https://habrahabr.ru/post/154065/ 
Всем заранее спасибо
Kommentare (1)
ava
nikorip | 24.12.2016, 14:14 #
решил задачу на другом форуме. если кому надо - пишите розкажу
Registrieren Sie sich oder melden Sie sich an, um schreiben zu können.
Unternehmen des Tages
Вы также можете добавить свою фирму в каталог IT-фирм, и публиковать статьи, новости, вакансии и другую информацию от имени фирмы.
Подробнее
Mitwirkende
  nikorip
advanced
Absenden