perlsgerl has asked for the wisdom of the Perl Monks concerning the following question:

soo sorry for the sloppy formatting.. would this be considered overkill? so maybe i created a much smaller sample version of the script i'm working with .. here's the synopsis .. my script IS posting to the proxy server..however it's not being picked up by the secure server i'm posting to. in viewing the proxy log, i'm able to see that it is not passing a tunnel request. therefore no connection is established with the secure server. is there something in my code that's causing the final destination url to get dropped or corrupted?

#!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 ); }
suggestions.. ideas.. anyone? bueller .....?

()()()()()()()()()()()()()()
"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
()()()()()()()()()()()()()()