Identify

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

Replies are listed 'Best First'.
Re: Identify by beable (Friar) on Jul 09, 2004 at 00:44 UTC
`#!/usr/bin/perl use strict; use HTTP::Proxy qw(HEADERS); # initialisation my $proxy = HTTP::Proxy->new(port => 7890); # set logmask to log full request and response headers # see "perldoc HTTP::Proxy" for details $proxy->logmask(HEADERS); # this is a MainLoop-like method $proxy->start; __END__` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re: Identify
by beable (Friar) on Jul 09, 2004 at 00:44 UTC

#!/usr/bin/perl

use strict;
use HTTP::Proxy qw(HEADERS);

# initialisation
my $proxy = HTTP::Proxy->new(port => 7890);

# set logmask to log full request and response headers
# see "perldoc HTTP::Proxy" for details
$proxy->logmask(HEADERS);

# this is a MainLoop-like method
$proxy->start;

__END__
[download]

[reply]
[d/l]