Good morning,
im trying to set up a tools module for my modperl environment.
My function get_vars should get all passed variables with the following
snipplet:
if($ENV{'REQUEST_METHOD'} eq "GET"){
$my_data = $ENV{'QUERY_STRING'};
}
else {
$data_length = $ENV{'CONTENT_LENGTH'};
$bytes_read
post?
Greetings,
Tobias
- Original Message -
From: "Sara" <[EMAIL PROTECTED]>
To: "Tobias Fink" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Thursday, November 06, 2003 10:07 AM
Subject: Re: HTTP::Request
> #!/usr/bin/perl
> use CGI;
> us
Hi,
why doesn't
my $ua = LWP::UserAgent->new;
my $res = $ua->request(GET 'http://www.google.de/search', q => 'asdasd');
if ($res->is_success) {
my $server_response = $res->content;
print $server_response;
}
print the html-source of http://www.google.de/search?q=asdasd ?
Regards,
Tobias
