cgi Proxy script

[Ilomano]

hallo!
Vielleicht kann mir da jemand helfen! Ich muss ein cgi proxy script schreiben - das heisst es wird immer nur das proxyscript mit einem key, der das eigentliche Script repräsentiert aufgerufen. Das proxy script holt dann mittels LWP::UserAgent den content das Scripts.

Alles kein Problem bis jetzt. Nur die Seite arbeitet mit Cookies und wenn ich vom scriptA über das proxy script das scriptB aufrufe is das cookie leider weg! ;(

#!/usr/local/bin/perl

use strict;
use CGI;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);

my $query = new CGI;

my $url = 'XXX';

#4 test
my %form = (
 txt1 => "hallo",
 txt2 => "test"
);

print $query->header;
my $ua = LWP::UserAgent->new;

#my $cookie_jar = HTTP::Cookies->new( [ file => 'letzter_Besuch', autosave => 1 ] );
#$ua->cookie_jar($cookie_jar);

my $anf =  POST $url, [%form];
my $inhalt = $ua->request($anf);

if ( $inhalt->is_error() ) {
 print "Error-Code : ", $inhalt->code() , "\n";
 print "Fehlermeldung: ", $inhalt->message() , "\n";
}else {
 print $inhalt->content() , "\n";
}

[Struppi]

Alles kein Problem bis jetzt. Nur die Seite arbeitet mit Cookies und wenn ich vom scriptA über das proxy script das scriptB aufrufe is das cookie leider weg! ;(

Wenn du sie nicht sendest, logisch.

print $query->header;

Hier müßtest du die cookies senden.

Struppi.