Здраствуйте. Можно попросить совета.
Есть простой скрипт для отправки смс сообщений.
#!/usr/bin/perl -w
#################################################
#
# Sample Perl script for sending SMS via SMS Traffic
#
# (c) SMS Traffic, 2003-2007
# www.smstraffic.ru, info@smstraffic.ru, (495)228-3649, (495)642-9569
#
#################################################
use strict;
use SMS;
my($sms_id, $error)=SMS::send('79161234567', 'Текст мессажа', 'SMS Traffic', 1);
print "\n$sms_id, $error\n";
В файле jobs.pl есть такой кусок кода который добавляет задание работникам:
$sql="mid=$Fid,reason='$Fjob$reason',coment='$Ftjob',time=$tt,office=$office,admin_id=$Admin_id,admin_ip=INET_ATON('$ip')";
$rows=$Fidjob? # перевод бланка задания в выполнение задания
&sql_do($dbh,"UPDATE pays SET $sql WHERE id=$Fidjob AND type=50 AND category=460 LIMIT 1") :
&sql_do($dbh,"INSERT INTO pays SET $sql,category=460,type=50,cash=0");
$rows<1 && &Error("Задание работникам не выдано - внутренняя ошибка.$go_back",$tend);
$out=&div('big',$reason? 'Задание работникам выдано' : 'Бланк задания подготовлен');
Можно ли туда какнибудь добавить отправку сообщения работнику о том что ему поступил новый сервис? Сам я перл знаю неважнецки потому даж не знаю как вставить чтобы оно ничего не сломало. На уровне запросов я представляю как получить всю нужную информацию для отправки но как это все склеить в один тект и послать при создании задания...
