Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > изменить perl скрипт для отправки смс

Автор: 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/
Всем заранее спасибо

Автор: nikorip 24.12.2016, 14:14

решил задачу на другом форуме. если кому надо - пишите розкажу