Enter user: TEST001 Enter password: ******* do_logon BEGIN myscript.pl[269] do_logon resp myscript.pl[283] resp =[$VAR1 = bless( { '_protocol' => 'HTTP/1.1', '_content' => ' xyz Secure HTTP File Uploader Logon


Enter your name:
Enter your password:

', '_rc' => '200', '_headers' => bless( { 'connection' => 'close', 'x-powered-by' => [ 'Servlet/2.4', 'JSP/2.0' ], 'client-response-num' => 1, 'set-cookie' => 'JSESSIONID=27CCB71220635A381F38052A601A5C33; Path=/xyzSecureUpLoad_III; Secure', 'date' => 'Mon, 01 Mar 2004 17:43:47 GMT', 'client-ssl-cert-issuer' => '/C=US/ST=California/L=Santa Clara/O=Sun Microsystems/OU=SunONE/CN=S1AS', 'client-ssl-cipher' => 'EDH-RSA-DES-CBC3-SHA', 'client-peer' => 'localhost:1043', 'content-length' => '661', 'client-date' => 'Mon, 01 Mar 2004 17:43:47 GMT', 'content-type' => 'text/html;charset=ISO-8859-1', 'client-ssl-warning' => 'Peer certificate not verified', 'client-ssl-cert-subject' => '/C=US/ST=California/L=Santa Clara/O=Sun Microsystems/OU=SunONE/CN=S1AS', 'server' => 'Sun-Java-System/Application-Server-PE-8.0', 'title' => 'xyz Secure HTTP File Uploader (ASHFU) Logon' }, 'HTTP::Headers' ), '_msg' => 'OK', '_request' => bless( { '_content' => 'j_username=TEST001&j_password=TEST001&submit=Submit', '_uri' => bless( do{\(my $o = 'https://localhost:1043/xyzSecureUpLoad_III/logon.jsp')}, 'URI::https' ), '_headers' => bless( { 'user-agent' => 'libwww-perl/5.69', 'content-type' => 'application/x-www-form-urlencoded', 'content-length' => 51 }, 'HTTP::Headers' ), '_method' => 'POST' }, 'HTTP::Request' ) }, 'HTTP::Response' ); ] do_logon END myscript.pl[289]