nicht angemeldet
Hallo!
Ich weiß, das wurde hier vor kurzem schon gefragt, aber finde den Beitrag nicht mehr. hab versucht
Action = "skript1.pl" ,"skript2.pl"
Aber da wird nur ein Skript ausgeführt. Was kann das sein?
Gruß
Alex
PS: Wenn ich an Stelle dessen beide Skripte in eins packen will, also in etwa so:
#!/usr/bin/perl
print "Content-type: text/html","\n\n";
.
.
.
}
sub pick_up{
if(($_[1]=~/^$_[0]=([^&\b]+)/i)||($_[1]=~/&$_[0]=([^&\b]+)/i)){
$pick=$+;
$pick=~s/%([\dA-Fa-f][\dA-Fa-f])/pack("C",hex($1))/eg;
$pick=~tr/+/ /;
$_[1]=~s/$_[0]=[^&\b]+//i;
$_[1]=~s/&&/&/g;
$_[1]=~s/^&//g;
$_[1]=~s/&$//g;
}
else{
return 0;
}
return $pick;
}
-------> SMTP-Programm zum Versenden der Mail:
$Sendmail_Prog = "/usr/lib/sendmail";
-------> Modul für CGI-Scripts einbinden:
use CGI;
-------> Modul für CGI-Scripts zum Einlesen der Formulardaten anwenden:
$query = new CGI;
@names = $query->param;
-------> interne Daten aus den erwarteten hidden-Feldern auslesen:
$delimiter = $query->param('delimiter'); # ---> Begrenzerzeichen zwischen name und value
$mailto = $query->param('mailto'); # ---> Empfängeradresse
$returnhtml = $query->param('return'); # ---> URL für Dankeseite
$subject = $query->param('subject');
.
.
.
-------> Text der E-Mail aus den Formulardaten ermitteln:
my $mailtext = "Hallo $Vorname $Nachname\n\n";
$mailtext .= "Vielen Dank für Ihre Bestellung!\n\n\n";
$mailtext .= "Hiermit bestätigen wir Ihnen Ihre Bestellung für .
.
.
.
-------> E-Mail versenden:
open(MAIL,"|$Sendmail_Prog -t") || print STDERR "Mailprogramm konnte nicht gestartet werden\n";
print MAIL "To: $email\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$mailtext\n";
close(MAIL);
Geht das nicht, hab die kompletten Skripte(die beide funktionieren hintereinander gesetzt, nur die 2. Perl-Zeile rausgenommen. Was mache ich falsch? Gruß
Alex