Få et CGI script til lave en på html side
Hej AlleJeg har et CGI script, som jeg bruger på min HP, til at processe en vare bestilling, incl. kunde oplysninger med, scriptet er pt. lavet, så det bare henter en dødsyg side, der hedder tak.htm.
Men er der nogen af jer eksperter, der kan lave scriptet om, så det (når man har ekserkveret scriptet) laver en pæn html side ud fra de oplysninger som scriptet har indsamlet ??, evt. med en knap i bunden som åbner "udskriv" vinduet så kunden kan få skrevet sin ordre ud ??.
Jeg håber det er OK at poste hele scriptet her.
Håber nogen kan hjælpe.
Mvh. Christian H
#!/usr/bin/perl
print "Content-type: text/html\n\n";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
$counter=0;
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$counter=$counter+1;
$Titel{$counter}=$name;
$FORM{$name} = $value;
}
use Net::SMTP;
$smtp = Net::SMTP->new('smtp.mail.dk', Hello => 'rr.com');
$smtp->mail('herogder@post.tele.dk');
$smtp->to('herogder@post.tele.dk');
$smtp->data();
$smtp->datasend("To: herogder@post.dk\n");
$smtp->datasend("From: $FORM{'bemail'}\n");
$smtp->datasend("Subject: Bestilling fra herogder.dk\n");
$smtp->datasend("\n");
print<<ENDE_AUSGABE;
<HTML>
<HEAD>
<TITLE>Email afsendt</TITLE>
</HEAD>
<BODY BGCOLOR="#ffffff">
<center>
<SCRIPT>
self.location.href="$FORM['url']tak.htm"
</SCRIPT>
ENDE_AUSGABE
$smtp->datasend("Hej ".$FORM{'bname'}."\n\n");
$smtp->datasend("Du har afgivet følgende oplysninger/bestilling:\n\n");
$smtp->datasend("Evt. Kundennummer:".$FORM{'bkdnr'}."\nEvn Firma: ".$FORM{'bfirma'}."\nNavn: ".$FORM{'bname'}."\n");
$smtp->datasend("Gade: ".$FORM{'bstrasse'}."\nPost nr. & BY: ".$FORM{'bpostcode'}." ".$FORM{'bstadt'}."\nTelefon:".$FORM{'btelefon'}."\nEmail:".$FORM{'bemail'}."\nKommentar:\n".$FORM{'Kommentar'});
#$smtp->datasend("\n\nLieferadresse:\nFirma: ".$FORM{'lfirma'}."\nName: ".$FORM{'lnachname'}."\nPLZ/Ort: ".$FORM{'lpostcode'}." ".$FORM{'lstadt'}."\nStrasse:".$FORM{'lstrasse'});
if ($FORM{'orderm'} eq "Kontoeinzug") {
$mailbody=$mailbody."\n\nKontendaten:\nBank:".$FORM{'ktoinst'}."\nBLZ:".$FORM{'ktoblz'}."\nKtoNummer:".$FORM{'ktonr'}."\nInhaber:".$FORM{'ktoinh'};
}
if ($FORM{'orderm'} eq "Kreditkarte") {
$mailbody=$mailbody."\n\nKreditkarte:\nInstitut:".$FORM{'kredart'}."\nKartennummer:".$FORM{'krednr'}."\nAblauf Datum:".$FORM{'kredablauf'};
if ($FORM{'faxja'} eq "on") {
$mailbody=$mailbody."\nKreditkarteninformationen werden per Fax gesendet";
}
}
$smtp->datasend("\n\nØnsker at bestille:\n\n");
$smtp->datasend("Betaling via ".$FORM{'orderm'}."\n");
$an=1;
while ($FORM{'item'.$an}) {
$artikel='item'.$an;
$menge='quantity'.$an;
$einzelpreis='priceeach'.$an;
$vollpreis='totalcost'.$an;
$smtp->datasend($FORM{$artikel}." Antal:".$FORM{$menge}." Stk. Pris:".$FORM{$einzelpreis}.$pr." Total pris:".$FORM{$vollpreis}."\n");
$an++;
}
$smtp->dataend();
$smtp->quit;
