Script aufrufen und Variablen übergeben

[xwolf]

Hi,

Ich hab's schon mit exec versucht, aber irgendwie klappt's nicht so recht. Wie muss ich das u.a. Script fortsetzten?

Du brauchst das LWP-Modul.

So weit bin ich bisher:

#!/usr/bin/perl -w

use strict;
use CGI;
my $cgi = new CGI;
use CGI::Carp qw(fatalsToBrowser);

my @Feldnamen = $cgi->param();

my $name = $cgi->param($Feldnamen[0]);
my $pw = $cgi->param($Feldnamen[1]);

if ($name eq "mike") {
    $name = "account1"
    }

if ($name eq "olli") {
    $name = "account2"
    }

if ($name eq "dave") {
    $name = "account3"
    }

Hier soll jetzt ein Script aufgerufen werden,

das auf einem anderen Server liegt

und die Variablen $name und &pw sollen an

das 2. Script weitergegeben werden.

Das 1. Script sollte, wenn möglich, beendet werden.

»»

Ohne zu testen:

use LWP::UserAgent;
my $ua = new LWP::USerAgent;
my $scripturl = "http://www.irgendwo.irdentwas.de/cgi-bin/script.pl";

my $parameter = "name=$name&pwd=$pwd";
my $header = new HTTP::Headers (
    Content_Type => 'application/x-www-form-urlencoded'
 )
my $request = new HTTP::Request('GET',$scripturl,$header,$parameter);
my $response = $ua->request($request);

my $resulttext = $response->content;
print "Content-Type: text/html\n\n";
print $resultttext;

Ciao,
  Wolfgang