Печать страницы - Отсылка сообщений при определенных событиях

Здраствуйте. Можно попросить совета.
Есть простой скрипт для отправки смс сообщений.

Код:

#!/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? 'Задание работникам выдано' : 'Бланк задания подготовлен');

Можно ли туда какнибудь добавить отправку сообщения работнику о том что ему поступил новый сервис? Сам я перл знаю неважнецки потому даж не знаю как вставить чтобы оно ничего не сломало. На уровне запросов я представляю как получить всю нужную информацию для отправки но как это все склеить в один тект и послать при создании задания...

Биллинговая система Nodeny

Главная категория => Разработка => Тема начата: goletsa от 29 Октября 2009, 14:00:27