my isp send sms.pl
how can i add to librenms alert
#!/usr/local/perl/bin/perl -w
use feature “say”;
use Date::Format;
use hiairv2;
##----
$log_file_name="$0.log";
$sms_gateway_ip=“XXX.XXX.XXX.XXX”;
$sms_gateway_port=8000;
$account=“XXXXXXXX”; #account
$passwd=“XXXXXXXX”; #passwd
$mobile_num= $ARGV[0]; #mobile_num
$Message= $ARGV[1];
$send_type=1;#sendtype=1 realtime
##---- only use in send_type=2,3,4 ----##
$send_time=“080101071900”; #sendtime 2008/01/10 17:19
$expire_time=“1440”; #expire_time 1 day
say “Mobile_num = " . $mobile_num”;
##----gen hiairv2 object ----##
$v2_con = hiairv2->new( host_ip=>$sms_gateway_ip,
host_port=>#sms_gateway_port,
user_name=>$account,
user_passwd=>$passwd,
);
@ret = $v2_con->init_connect();
if($ret[0]!=0){
say “hiairv2 connecton error! ret_code=” . $ret[0] .",ret_content:" . $ret[1];
$v2_con->close_hiairv2();
exit(1);
}
@ret = $v2_con->send_text($mobile_num,$send_type,$send_time,$expire_time,$Message);
if($ret[0]!=0){
say “hiairv2 send_text error! ret_code=” . $ret[0] .",ret_content:" . $ret[1];
LogFile($mobile_num,$ret[0],$ret[1],$Message);
$v2_con->close_hiairv2();
exit(1);
}
##---- close connection ----##
$v2_con->close_hiairv2();
say “SMS send successfully! ret_code=” . $ret[0] .",ret_content:" . $ret[1] . “\n”;
LogFile($mobile_num,$ret[0],$ret[1],$Message);
sub LogFile{
$delimiter="|";
$now_time = time2str("%Y/%m/%d %H:%M:%S",time);
open(Log_File,">>$log_file_name");
say Log_File "$now_time$delimiter$_[0]$delimiter$_[1]$delimiter$_[2]delimiter$_[3]";
close Log_File;
}