2007年4月5日

Linux下發簡訊的Perl Script

一些 SMS 的 function提供的script稍加修改, 可以在UTF-8的console下發送emome的簡訊。
#!/usr/bin/perl

# Usage: sms-emome #PHONE MSG

use HTML::Form;
use WWW::Mechanize;
use Text::Iconv;

use strict;

die "Usage: sms-emome #PHONE MSG\n" if $#ARGV<1;

my ($target, $msg) = @ARGV;

my $converter = Text::Iconv->new("utf8", "big5");

&sendsms('手機號碼', '密碼', $target, $converter->convert($msg));

sub sendsms
{
my ($username, $password, $receiver, $msg) = @_;

my $agent = WWW::Mechanize->new();
$agent->agent_alias('Windows IE 6');
$agent->get('http://www.emome.net/cgi-bin/MASP/jsp/membersvc/AuthServlet?serviceId=5235');

$agent->form('myform');
$agent->field('MSISDN', $username);
$agent->field('PASSWD', $password);
$agent->submit();

$agent->get('http://websms1.emome.net/sms/sendsms/new.jsp?msg=');

$agent->form('form1');
$agent->field('phonelist', $receiver);
$agent->field('data', $msg);
$agent->field('language', 1); # 1 == 中,2 == 英
$agent->current_form()->action('http://websms1.emome.net/sms/sendsms/send.jsp');
$agent->submit();
}

沒有留言:

張貼留言

lyhcode by lyhcode
歡迎轉載,請務必註明出處!