Re^3: Proxy Authentication

I don't like the idea of passwords being in plain text either in the script or in the users environment. Do you know of anyway round that?

Well, you could just manually (or semi-manually) add the raw header

Proxy-Authorization: Basic <string>
[download]

where <string> is a base64 encoded string containing the username and password separated by a colon, generated like so:

use MIME::Base64;
print encode_base64( join( ':', $username, $password ) );
[download]

and either manually print it in the right spot (after the GET or POST line)

print "Proxy-Authorization: Basic SSdtIG5vdCB0aGF0IHN0dXBpZC4uLiA6KQ==
+\n";
[download]

or, in your case, use HTTP::Headers

use HTTP::Headers;
my $header = HTTP::Headers->new( Proxy_Authorization => 'Basic SSdtIG5
+vdCB0aGF0IHN0dXBpZC4uLiA6KQ==' );
[download]

and add $header as the third parameter to your HTTP::Request constructor:

my $request = new HTTP::Request('GET', $ARGV[0], $header);
[download]

(insert usual disclaimers about passwords... blah blah... security through obscurity... blah blah...)

- ><iper

use japh; print;
[download]