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 retu
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
ing'} . "\n";
print "headers: " . $r->headers->{'accept'} . "\n";
print "uri: " . $r->uri . "\n";
print "content: " . $r->content . "\n";
print "Method: " . $r-&
> 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";
}
__
Bullock, Howard A. wrote:
> 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