用脚本发送带有SMS的文本消息
如果备份完成或阿波罗工作站(如磁盘空间)用完了一个简单的消息,将其发送到任何具有文本通信设备(如移动电话或文本寻呼机)的地址,您应该使用以下脚本:
UseNet::SMTP;
$ -SmtpServer集= '';#对SMTP邮件服务器
死QQ!用法:从主题内容 $ 0!如果(标量(@ argv)!= 4);
sendmail(@ argv);
我连菜鸟都不是
{
我的($,$,$,$内容)=_;
我为SMTP =网::SMTP ->新($ -SmtpServer);
如果($ SMTP = undef)
{
打印(*消息不发送:不能连接到邮件主机-SmtpServer美元!;
}
其他的
{
电子邮件($);
$ $ to($ to);
我的$结果至:主题:$主题为内容;
$退出();
打印*消息不发送数据命令:远程主机-SmtpServer美元失败如果(!
}
}