Perl LWP で Way2sms を介して送信する SMS を自動化しようとしています。無事ログインできました。次に、ブラウザーで [ SMS を送信]リンクをクリックして、SMS 送信ページに移動します。そこから、ページの URL と SMS フィールドが配置されている iframe の URL に基づいて、フォームを投稿するページの絶対 URL を作成し、正しいパラメーターを使用して投稿しようとします (画像ですべてを参照してください)。ただし、SMS は送信されません。ここで何が間違っているのか誰にも教えてもらえますか? (CPAN には同様のモジュールがあり、これを介して実現していますMechanize
。私は別のアプローチを試みています)
use LWP::UserAgent;
use HTTP::Cookies;
my $cookie_jar = HTTP::Cookies->new(
file => "cookies.txt",
autosave => 1,
);
my $ua = LWP::UserAgent->new(
agent =>
'Mozilla/5.0 (X11; Linux x86_64; rv:14.0) Gecko/20100101 Firefox/14.0.1',
cookie_jar => $cookie_jar,
);
my $response = $ua->post(
'http://site2.way2sms.com/contentt/bar/Login1.action',
{
username => $mob,
password => $pass,
}
);
if ( $response->is_redirect ) {
$response = $ua->get( $response->header('Location') );
print 5 if $response->decoded_content =~ /Kaustav Mukherjee/i; #prints it, showing that the login is successful
}
my $smsresp = $ua->post("http://site5.way2sms.com/jsp/quicksms.action",[MobNo=>$mob,textArea=>'Hello World']);
if ( $smsresp->is_redirect ) {
$smsresp = $ua->post($smsresp->header('Location'),[MobNo=>$mob,textArea=>'Hello World']);
}