Bullock, Howard A. wrote:
I am writing in the hope that someone can give me some pointers, code
snippets, or constructive discussion. My goal is to build an HTTP Win32
single function service that will monitor a specified port for one URL
request, gather client/browser info, build and return
I have just looked through the documentation for HTTP and LWP but can not
find a way to interrogate the client for version etc. I would think that
that data would be in the header of the request.
use HTTP::Daemon;
use HTTP::Status;
my $d = HTTP::Daemon-new( LocalPort = 8080);
print Please
;
...
-Original Message-
From: Bullock, Howard A.
Sent: Monday, August 26, 2002 11:15 PM
To: '$Bill Luebkert'
Cc: perl win32 users
Subject: RE: HTTP::Daemon --Send client autoproxy?
I have just looked through the documentation for HTTP and LWP but can not
find a way to interrogate the client
How do I get the details of HTTP::Headers=HASH(0x1c5d150)?
What does Data::Dumper say?
use Data::Dumper;
print Dumper $r-headers;
Or just look at the keys:
foreach my $key ( keys %{$r-headers} ) {
print $key = , $r-headers-{$key}, \n;
}
___