Moin moin
Ich habe eine HTML form, aus der Daten an nachfolgendes script übergeben werden
sollen. die SendMethod ist POST. Das Problem, dass ich ncoh habe, habe ich weiter
unten beschrieben.
Das sieht jetzt so aus:
#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
use CGI;
$cgi = new CGI;
my $params = Vars;
my %Formular = %params;
open PLATZ, "<dokument.rtf" or die "Error: $!";
open PLATZ_TMP, ">dokument.rtf.tmp" or die "Error: $!";
while (<PLATZ>) {
s/name/$Formular{Vorname_User}/;
s/nachname/$Formular{Nachname_User}/;
if ($Formular{Zeitarbeits_Firma_User}) {
s/job title/description/;
s/beschreibung/irgendwas/;
}
else {
s/beschreibung/ /;
}
s/Userid/$Formular{Vergleichs_User_ID}/;
s/jahr/$Formular{Befristet_jahr}/;
s/monat/$Formular{Befristet_monat}/;
s/tag/$Formular{Befristet_tag}/;
print PLATZ_TMP;
}
rename "dokument.rtf.tmp", "dokument.rtf";
print $cgi->header();
print $cgi->start_html("Userantrag");
print $cgi->end_html();
das ding funktioniert soweit NUR dass diese Anweisung s/name/$Formular{Vorname_User}/;
nicht den Vornamen aus dem Eingabefeld in dem HTML Formular zurückgibt, sondern leer
zu sein scheint, jedenfalls erscheint im .rtf dokument anstelle des Platzhalters ein
"leerer String" (also gar nichts). Das ist bei allen Anweisungen dieser Art der Fall.
Ich habe auch schon mehrere Tutorials usw durchgesehen, habs aber nich gefunden.
Achja und er schreibt in die neue .rtf file das hier rein:
;_AdHocReviewCycleID_PreviousAdHocReviewCycleID
was zum geier isn das jetzt?
Mit freundlichen Grüßen
Blackice
