suggestions.. ideas.. anyone? bueller .....?#!E:/Perl/bin/Perl.exe --------> calling version 5.6 ################################################ use lib 'latitude/mpweb/perlnew/site/lib'; -------> script now searche +s 5.6 lib first use CGI qw(:standard); use HTTP::Request::Common qw(POST); use LWP::UserAgent; use Crypt::SSLeay; -----------------> supposed to make https work also + tried Crypt::SSLeay::MainContext with same results ################################################ $my_ua = new LWP::UserAgent; $my_ua->agent("Mozilla/4.0 " . $my_ua->agent); $protocal = "https"; ----------> whenever posting to this protocol use + proxy $proxy_url = "http://web-proxy.cos.agilent.com:8088"; --------> proxy +defined $my_ua->proxy($protocal, $proxy_url); ----------> post to proxy functi +on $query = new CGI; print $query->header(); ################################################# $userid = $query->param("UserName"); $password = $query->param("UserPwd"); ################################################# #construct request my $req = POST 'https://gc2gw1.meetingplace.net/cgi-bin/sched.exe', [FormType => 'LoginProfile', STpl => 'schedbasics_fr.tpl', FTpl => 'loginfail.tpl', UserName => $userid, UserPwd => $password, ]; $req->content_type('application/x-www-form-urlencoded'); # Pass request to the user agent and get a response back my $res = $my_ua->request($req); if ($res->is_success) { print "Request Successful: Content returned = ", $res->content, + "\n"; } else { print "Failed: ", $res->status_line, "\n"; return( 0 ); }
()()()()()()()()()()()()()()
"morons will occassionally say something that's right, but they say it for the wrong reason. a moron is a master of paralogism." -------------Belbo - Foucault's Pendulum
()()()()()()()()()()()()()()
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |