I just did google search and found one guy in here has been trying this
recently as well. Funny coincidence.
Anyway, i'm trying to emulate logging into a web site and sending
myself an SMS message by posting to a form. This is all done via HTTPS
protocol.
So far I'm getting the WLS 5.1 cookie send back correctly and I'm using
cookie_jar to send it back for any future requests but when I submit my
POST DATA to the form the response I get from their server is a 500
response. Internal Server Error.
Can anybody see what I'm doing wrong here?
#! /usr/bin/perl -w
use lib "$ENV{HOME}/lib/perl5/site_perl";
use Date::Parse;
use Time::Zone;
use Mail::Address;
use LWP::UserAgent;
use HTTP::Request;
use URI::Escape;
use HTTP::Cookies;
use POSIX qw(strftime);
&pageSubject2();
sub pageSubject2 {
$ua = LWP::UserAgent->new;
$cookie_jar = HTTP::Cookies->new;
$ua->cookie_jar($cookie_jar);
$request = HTTP::Request->new(POST =>
'https://sonic2.tac.co.th/bp3/bin/Login');
#$escSender = &uri_escape($sender);
$args = "inputUserName=USERNAME" .
"&inputPassword=PASSWORD";
$request->content_type('application/x-www-form-urlencoded');
$request->content($args);
$res = $ua->request ($request);
print $cookie_jar->as_string;
$request = HTTP::Request->new(POST =>
'https://sonic2.tac.co.th/bp3/bin/Dspc/WebMessage');
$args = "inputEng=testing" .
"&inputMix=" .
"&inputMul=" .
"&inputOK=Send" .
"&inputSubrNumb1=PHONENUMBER" .
"&inputSubrNumb2=" .
"&inputSubrNumb3=" .
"&inputSubrNumb4=" .
"&phoneNo71=PHONENUMBER" .
"&phoneNo72=" .
"&phoneNo73=" .
"&phoneNo74=" .
"&phoneNo75=" .
"&radiobutton=radiobutton";
$request->content($args);
$res = $ua->request ($request);
print $res->as_string;
return $res->is_success;
}
Here's the output of my code.
Set-Cookie3:
WLSESERVICE="PXG66IPFfwTDfxrTMpPsXqEPALQJPmU6L2ck0UzFH88F2tfq8KJP|127043
3455858244886/169083237/6/7001/7001/7002/7002/7001/-1"; path="/";
domain="sonic2.tac.co.th"; path_spec; discard; version=0
HTTP/1.1 500 (Internal Server Error) Server Error
Cache-Control: no-cache
Connection: close
Date: Sun, 01 Sep 2002 07:00:53 GMT
Pragma: No-Cache
Server: Netscape-Enterprise/4.0
Content-Length: 981
Content-Length: 981
Content-Type: text/html
Expires: Thu, 01 Jan 1970 00:00:00 GMT
Client-Date: Sun, 01 Sep 2002 07:00:53 GMT
Client-Response-Num: 1
Client-SSL-Cert-Issuer: /C=ZA/ST=Western Cape/L=Cape Town/O=Thawte
Consulting cc/OU=Certification Services Division/CN=Thawte Server
[EMAIL PROTECTED]
Client-SSL-Cert-Subject: /C=TH/ST=Bangkok/L=Bangkok/O=Total Access
Communication PCL./OU=Corporate Information System/CN=sonic2.tac.co.th
Client-SSL-Cipher: EXP1024-RC4-SHA
Client-SSL-Warning: Peer certificate not verified
Title: Error 500--Internal Server Error
X-Meta-GENERATOR: WebLogic htmlKona 5.1.0 Service Pack 9 04/05/2001
14:59:53 #105983
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Draft//EN">
<HTML>
<HEAD>
<TITLE>Error 500--Internal Server Error</TITLE>
<META NAME="GENERATOR" CONTENT="WebLogic htmlKona 5.1.0 Service Pack 9
04/05/2001 14:59:53 #105983">
</HEAD>
<BODY vlink="#DE7E00" link="#640078" alink="#397F70" bgcolor="white">
<FONT FACE=Helvetica><BR CLEAR=all>
<TABLE border=0 cellspacing=5><TR><TD><BR CLEAR=all>
<FONT FACE="Helvetica" COLOR="black" SIZE="3"><H2>Error 500--Internal
Server Error</H2>
</FONT></TD></TR>
</TABLE>
<TABLE width=100% border=0 cellpadding=10><TR><TD VALIGN=top WIDTH=100%
BGCOLOR=white><FONT FACE="Courier New"><FONT FACE="Helvetica"
SIZE="3"><H3>From RFC 2068 <i>Hypertext Transfer Protocol --
HTTP/1.1</i>:</H3>
</FONT><FONT FACE="Helvetica" SIZE="3"><H4>10.5.1 500 Internal Server
Error</H4>
</FONT><P><FONT FACE="Courier New">The server encountered an unexpected
condition which prevented it from fulfilling the request.</FONT></P>
</FONT></TD></TR>
</TABLE>
</BODY>
</HTML>
