#!/usr/bin/perl require "cgi-lib.pl"; sub print_file { open FILE, "<$_[0]"; read FILE, $buf, 10000; print $buf; close FILE; } sub print_script { print "\n"; } MAIN: { # Read in all the variables set by the form &ReadParse(*input); $sendmail = "/usr/sbin/sendmail -t"; $to = "dl1fdt\@online.de"; $from = "From: Ralf\@Zimmermann.com\n"; $send_to = "To: $to\n"; $view_to = "DL1FDT"; $view_subj = "MailDL1FDT.cgi"; $view_subj2 = "mail_dl1fdt.cgi"; # Print the header print &PrintHeader; print "\n"; print "\n
\n"; print " \n"; print " \n"; print "\n";
print " Your message has been sent to $view_to"; print " | \n";
print " \n";
print " Ihre Mitteilung wurde an $view_to gesendet."; print " | \n";
print "
\n";
print " Please check your message for $view_to"; print " (This step is necessary in order to avoid SPAM emails)"; print " | \n";
print " \n";
print " Bitte Überprüfen Sie Ihre Mitteilung an $view_to."; print " (Dieser Schritt ist notwendig um SPAM-Emails zu vermeiden)"; print " | \n";
print "
\n"; print "
\n";
print " Send an email to $view_to"; print " This page gives you the opportunity to send an email to me.\n"; # print " If you would like to send an email directly, you can use this address:\n"; # print " Ralf Zimmermann\n"; print " | \n";
print " \n";
print " Senden Sie eine email an $view_to"; print " Diese Seite gibt Ihnen die Möglichkeit, mir eine email zu senden.\n"; # print " Falls Sie mir eine email direkt senden wollen,\n"; # print " können Sie folgende Adresse verwenden:\n"; # print " Ralf Zimmermann\n"; print " | \n";
print "