maozetung
Grünschnabel
hallo Zusammen,
ich habe nicht so viel Ahnung von CGI.
Ich benutze ein einfaches E-Mail Formular und das Script, welches eine Mail verschickt.
Das funktioniert.
Ich möchte die Ausgabe jedoch nun mit meiner CSS versehen, oder so das ich das Script meiner html anpassen kann. Ein wenig habe ich schon (z.B. ab: print HTMLKopf) eingefügt. Wie füge ich meine externe css dort ein?
hier der
danke
Beste Grüße
ich habe nicht so viel Ahnung von CGI.
Ich benutze ein einfaches E-Mail Formular und das Script, welches eine Mail verschickt.
Das funktioniert.
Ich möchte die Ausgabe jedoch nun mit meiner CSS versehen, oder so das ich das Script meiner html anpassen kann. Ein wenig habe ich schon (z.B. ab: print HTMLKopf) eingefügt. Wie füge ich meine externe css dort ein?
hier der
Code:
#!/usr/bin/perl
# --> Ziel-Mailadresse, an die gesendet werden soll:
$mailto = 'info@xyz.de';
use CGI;
$query = new CGI;
@names = $query->param;
$delimiter = $query->param('delimiter'); # ---> Begrenzerzeichen zwischen name und value
$returnhtml = $query->param('return'); # ---> URL für Dankeseite
$subject = $query->param('subject'); # ---> E-Mail-Subject
$subject =~ s/\s/ /g;
$mailtext = "";
foreach(@names) {
$name = $_;
@values = "";
@values = $query->param($name);
if($name ne "return" && $name ne "subject" && $name ne "delimiter") {
foreach $value (@values) {
$mailtext = $mailtext.$name;
$mailtext = $mailtext.$delimiter;
$mailtext = $mailtext.$value."\n";
}
}
}
# -------> E-Mail versenden:
open(MAIL,"|$Sendmail_Prog -t") || print STDERR "Mailprogramm konnte nicht gestartet werden\n";
print MAIL "To: $mailto\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$mailtext\n";
close(MAIL);
# -------> Dankeseite an Browser senden:
print HTMLKopf("body","background-color: red; color:blue");
print HTMLCode("h1","Dankeschön!","font-size:13pt; font-weight:bold; background-color: red; font-family: verdana;color:black");
print HTMLCode("p","Ihre Nachricht wurde verschickt. <br />wir melden sich umgehend bei Ihnen.","font-size:10pt; font-weight:bold; font-family: verdana; background-color: red; color:black");
print HTMLFuss("p","font-size:10pt; font-weight:bold; font-family: verdana; background-color: red; color:black");
sub HTMLKopf {
my $Kopf = "Content-type: text/html\n\n".
'<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">'."\n".
"<html><head><title>Nachricht-bestätigung </title></head>
<body>\n";
return($Kopf);
}
sub HTMLFuss {
my $Fuss = "<script type=\"text/javascript\"><!--\n".
# -------> "document.write(\"URL-Adresse: \"+document.URL);\n//--></script>\n".
"</body></html>\n";
return($Fuss);
}
sub HTMLCode {
my $Tag = shift;
my $Inhalt = shift;
my $Style = shift;
unless(defined($Style) and length($Style)) {
return("<$Tag>$Inhalt</$Tag>");
}
else {
return("<$Tag style=\"$Style\">$Inhalt</$Tag>");
}
}
danke
Beste Grüße