Hi,
Wie man mit "GET" eine Seite anfordert, ist ja wohl kein Problem. Aber wie sieht's mit "POST" aus?
perldoc LWP::UserAgent
perldoc HTTP::RequestCheatah
eigentlich möchte ich mit schicken und nicht empfangen.
sieh dir einfach untenstehndes script an.
ich möchte die cgivars (user, pwd) nicht an der URL anhängen, sondern via POST schicken.
it das in diesen kassen überhaupt möglich?
sollte doch ein kinderspiel sein, aber..
<code>
require LWP::UserAgent;
require HTTP::Request;
$ua = new LWP::UserAgent;
$ua->proxy('http',$ENV{'HTTP_PROXY'});
$url='http://www.sagichnicht.com/cgi-bin/receive.cgi?user=flunsi&pwd=gibmirdiestatistik';
$html = get_data($url);
print <<EOT;
Content-Type: text/html\r\n\r\n
$html
EOT
exit;
sub get_data
{
my $url = $_[0];
my $go;
$go = new HTTP::Request 'GET', $url;
$response = $ua->request($go);
if ($response->is_success)
{
$data = $response -> content();
}
else
{
$data = 0;
}
return $data;
}
</code>