use LWP::UserAgent; my $ORASEARCH = 'http://updates.oracle.com/ARULink/PatchSearch/process_form?product_family=&product=&release=&platform=&language=0&patch_type =&file=&orderby=abr.last_updated_date&process=Submit&email=&userid=&bug=' ; my $ORAUID = 'userid' ; my $ORAPASSWD = 'password' ; my $LWPUA ; { $LWPUA = LWP::UserAgent->new; print &lookup_patch_desc(1324710) ; } sub lookup_patch_desc { my $BUGNO = $_[0] ; my $REQUEST = HTTP::Request->new(GET => $ORASEARCH . $BUGNO); $REQUEST->header('Accept' => 'text/html') ; $LWPUA->proxy(http => 'http://proxy.mycompany.com:80/') ; $REQUEST->proxy_authorization_basic("windowuserid","windowpassword") ; $REQUEST->authorization_basic($ORAUID,$ORAPASSWD); return $LWPUA->request($REQUEST)->as_string; } #### HTTP/1.1 407 (Proxy Authentication Required) Proxy authentication required Proxy-Authenticate: NTLM Proxy-Authenticate: Basic realm="10.4.1.78" Content-Length: 503 Content-Type: text/html Content-Type: text/html; charset=iso-8859-1 Client-Date: Fri, 04 Oct 2002 17:26:03 GMT Client-Peer: 101.41.1.178:80 Client-Warning: Unsupported authentication scheme 'ntlm' Title: Error 407 X-Meta-Robots: noindex Error 407

HTTP Error 407

407 Proxy Authentication Required

You must authenticate with a proxy server before this request can be serviced . Please log on to your proxy server, and then try again.

Please contact the Web server's administrator if this problem persists.