LWP problems
- From: Mike <mikee@xxxxxxxxxxxx>
- Date: Mon, 11 Jul 2005 15:50:52 GMT
I'm trying to touch IBM from inside a proxy. My LWP code touches the proxy,
but does not authenticate with the proxy so I can go on to IBM. Does anyone
see my mistake?
Thanks
Mike
Here is the code:
#!/usr/bin/perl
# $Id$
# $Log$
# grab the machine type from 'lsattr -El sys0'
# grab the current microcode version depending on the command for that machine
# grab the latest microcode version for this box from:
# http://techsupport.services.ibm.com/server/mdownload/download.html
# complain if the microcode is not at the current version
use LWP::UserAgent;
use LWP::Debug qw(+);
use strict;
# globals
my $microcodeurl = 'http://techsupport.services.ibm.com/server/mdownload/download.html';
# get the machine type
my $cmd = 'lsattr -El sys0 | grep modelname';
open(IN, "$cmd |") or die "$0: cannot execute '$cmd': $!";
my $line = <IN>;
close(IN);
chomp($line);
# pull the microcode version from IBM
# and the command to get the currently installed microcode version
my $ua = LWP::UserAgent->new();
$ua->proxy('http', 'http://txisa002.ttiinc.com:8080');
my $req = HTTP::Request->new(GET => $microcodeurl);
my $user = 'domain\user';
my $pass = 'password';
$req->proxy_authorization_basic($user, $pass);
my $page = $ua->request($req)->as_string;
1;
.
- Prev by Date: mod_perl2 passing env vars when doing internal_redirects
- Next by Date: Re: Calling External DLL functions in Perl using Inline
- Previous by thread: mod_perl2 passing env vars when doing internal_redirects
- Next by thread: Re: Win32::Printer::Enum::Printer($server)
- Index(es):
Relevant Pages
|
