Hi
ein netter Forumsnutzer hat mir bei meinem Problem geholfen, aber leider klappt es nicht so richtig.
Das konnte das CGI von vornherein:
-
Formular versenden an 2 Nutzer aus TextFile mit den dynamischen Feldern
-
editieren eines Files auf dem Server um die Bestellnummer zu aktualliesieren
-
öffnen einer Bestätigungs HTML
Das sollte die Änderung bringen (der Code in # Balken):
- öffnen einer Bestätigungsmail mit dynamischem Inhalt
d.h. die Bestellnummer sollte eingefügt werden
Vielleicht gibt es da ja nur ein Syntaxproblem.
Hier der Code (der Teil von ihm ist zwischen den ( # Balken ):
#!/usr/bin/perl -w
my $from = ‚[email protected]‘;
my $to_admin = ‚[email protected]‘;
my $subj_confirm = ‚Bestätigung : subjecte…‘;
my $subj_admin = ‚Administration : subjecte…‘;
my $danke = ‚…\danke.html‘;
my $file_nummer = ‚nummer.txt‘;
my $file_admin = ‚admin.txt‘;
my $file_confirm = ‚confirm.txt‘;
my $file_sendmail = ‚/usr/sbin/sendmail‘;
use strict;
use CGI;
use MIME::Entity;
my $q=new CGI;
my $top;
my $data;
my $num;
my $buf;
open FH,"$file_nummer";
$num=();
close FH;
chop $num;
$num++;
open FH,">$file_nummer";
print FH $num."\n";
close FH;
$data="";
open FH,"$file_admin";
$data.=$_ while ();
close FH;
$data =~ s/[Bestellnr]/$num/egs;
$data =~ s/[(.*?)]/$q->param($1)/egs;
$top = build MIME::Entity(Type=>„text/plain“, Data => $data);
$top->head->add(‚From‘, $from);
$top->head->add(‚To‘, $to_admin);
$top->head->add(‚Subject‘, $subj_admin);
if ((my $file=$q->param(„fileGetterName“))) {
$data="";
$data.=$buf while (read( $file, $buf, 1024) );
$top->attach(Type => $q->uploadInfo($file)->{„Content-Type“},
Data => $data,
Encoding => ‚-SUGGEST‘);
}
open SENDMAIL, „|$file_sendmail -t -oi -oem“ or die „$0: open sendmail: $!\n“;
$top->print(*SENDMAIL);
close SENDMAIL;
die „sendmail failed“ if ($? >> 255);
###############################
{
open BEST, „…\danke.html“ or die „Keine Html-Datei gefunden“;
local $/;
$html=;
close BEST;
}
$bestnr=$num
$html=~s/%%BESTNR%%/$bestnr/sg;
print „Content-Type: text/html\n\n$html“;
###############################
$data="";
open FH,"$file_confirm";
$data.=$_ while ();
close FH;
$data =~ s/[Bestellnr]/$num/egs;
$data =~ s/[(.*?)]/$q->param($1)/egs;
$top = build MIME::Entity(Type=>„text/plain“, Data => $data);
$top->head->add(‚From‘, $from);
$top->head->add(‚To‘, $q->param(„Email“));
$top->head->add(‚Subject‘, $subj_confirm);
open SENDMAIL, „|$file_sendmail -t -oi -oem“ or die „$0: open sendmail: $!\n“;
$top->print(*SENDMAIL);
close SENDMAIL;
die „sendmail failed“ if ($? >> 255);