Поправить скрипт на Perl

Задание закрыто
Статус рабочей области:Закрыта по истечению срока выполнения работ
Стоимость:500 рублей
Срок выполнения:1 день
Варианты оплаты:Без предоплаты
Дата публикации:2018-09-25 12:25
Был(а) на сайте:2023-09-22 13:33

Поправить скрипт на Perl

 
Задача

Поправить скрипт Perl, а конкретно поменять смс сервис отправки смс с p1sms.ru на sms.ru

sub send_sms {
# main variables
my $num = shift; # Number to send SMS to.
my $msg = shift; # Message to send.
my $user = "***";
my $pass = "***";
my $from = "TEST";
my $url = 'https://95.213.129.83/xml/';

my $text = '<message type="sms"><sender>' . $from .'</sender>
<text>' . $msg . '</text><abonent phone="' . $num .
'" number_sms="1" client_id_sms="' . time . '" time_send="'
. strftime("%F %R", localtime time) . '" /></message>';

# full SMS to send
my $sms ='<?xml version="1.0" encoding="utf-8" ?><request>
<security><login value="' . $user . '" /><password value="'
. $pass . '" /></security>' . $text . '</request>';
$sms =~ s/(\r|\n)//g;

# make user agent
m...

Видеть полную информацию и оставлять заявки могут только авторизованные пользователи.
Исполнитель по этому заданию выбран.
Заявок нет

Оставлять заявки могут только авторизованные пользователи.