#!/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();
}
2007年4月5日
Linux下發簡訊的Perl Script
將一些 SMS 的 function提供的script稍加修改, 可以在UTF-8的console下發送emome的簡訊。
訂閱:
張貼留言 (Atom)
沒有留言:
張貼留言