Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Скриптовые языки программирования > Perl
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.12.2016, 21:34   #1
nikorip
Новичок
Джуниор
 
Регистрация: 23.12.2016
Сообщений: 2
По умолчанию решено организация смс оповещения - нужно что бы смс приходили на 2 номера

Всем привет! Стоит перед мной задача организация смс оповещения. На основании вот этой статьи https://habrahabr.ru/post/154065/
Все организовал. Но нужно что бы смс приходили на 2 номера. Что на до дописать в скрипте что бы это осуществить. Всем заранее спасибо. Вот собственно и сам скрипт.
Код:
#!/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: $!";
Решение в следующем сообщении

Последний раз редактировалось Вадим Мошев; 12.05.2018 в 19:05. Причина: решено
nikorip вне форума Ответить с цитированием
Старый 23.12.2016, 21:58   #2
Alar
Александр
Администратор
 
Аватар для Alar
 
Регистрация: 28.10.2006
Сообщений: 17,757
По умолчанию

в чем проблема просто два раза код повторить отправки, указав другой номер?

открыли отправили закрыли

раз

Код:
 open(GNOKII, "| gnokii --sendsms +7**********") || die "Starting gnokii failed: $!\n";
    print GNOKII $newmsg;
    close(GNOKII);
два

Код:
 open(GNOKII, "| gnokii --sendsms +7**********") || die "Starting gnokii failed: $!\n";
    print GNOKII $newmsg;
    close(GNOKII);
Alar вне форума Ответить с цитированием
Старый 24.12.2016, 13:14   #3
nikorip
Новичок
Джуниор
 
Регистрация: 23.12.2016
Сообщений: 2
По умолчанию

спасибо Alar
nikorip вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Организация сайта. Смс-рассылка. NikOne27 Помощь студентам 8 27.01.2015 13:22
Нужно написать программу для отправки смс на Delphi trub Фриланс 2 16.05.2012 17:14
Подмена номера в смс сообщении Armatus Компьютерное железо 1 24.02.2012 19:14