habe ein Login Script erstellt für eine https Seite. Aber als Antwort nach dem Login kommt eine leer Seite zurück. Das klappt also nicht.
Ich habe aber alle Felder wie erforderlich belegt:
#!/usr/bin/perl -w#use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI;
my $cgi = new CGI;
use LWP::UserAgent;
print $cgi->header();
my $ua = new LWP::UserAgent;
my $req = new HTTP::Request('GET', 'https://12.12.12.12/');
my $res = $ua->request($req);
my $req = new HTTP::Request('GET', 'https://12.12.12.12/next/');
my $res = $ua->request($req);
my $str=$res->content();
my $resp = $ua->post(substr($str,281,101),
[ "username" => "xxx", "password" => "xxx", "bereich" => "xxx", action => submit ]);
$req = new HTTP::Request('GET', 'https://12.12.12.12/requ/');
my $res = $ua->request($req);
print $res->content();
Die Post URL wird auch herausgefischt.
Datum: 07.03.2005-01:33
https Login
