#!/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 " Send an email to $view_to\n"; print " "; if ( $input{'action'} ne "snd_mail" ) { &print_script; } print " \n\n\n\n"; &print_file("mail_dl1fdt.beginpage.html"); print "\n\n"; if ( $input{'action'} eq "send_mail" ) { $subject = "Subject: $view_subj: $input{'subject'}\n"; open(SENDMAIL, "|$sendmail") or die "Cannot open $sendmail: $!"; print SENDMAIL $send_to; print SENDMAIL $from; print SENDMAIL $subject; print SENDMAIL "Content-type: text/plain\n\n"; if ( $input{'email'} ne undef ) { print SENDMAIL "The sender gave an email-address: $input{'email'}\n\n"; } print SENDMAIL "--- Begin of message ----------------------------\n"; print SENDMAIL $input{'txt'}; print SENDMAIL "\n--- End of message ------------------------------\n"; print SENDMAIL "\n--- This is $view_subj2 by Ralf Zimmermann ---\n"; close(SENDMAIL); print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; print "

Your message has been sent to $view_to

"; print " 		\n"; print "

Ihre Mitteilung wurde an $view_to gesendet.

"; print "
\n"; # print "

\n\n"; } else { if ( $input{'action'} eq "check_mail" ) { # $subject = "Subject: MailMe.cgi: $input{'subject'}\n"; print " \n"; print " \n"; print " \n"; print " \n"; 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 "

Bitte Überprüfen Sie Ihre Mitteilung an $view_to.

"; print " (Dieser Schritt ist notwendig um SPAM-Emails zu vermeiden)
 
"; print "
\n"; # print "

\n\n"; print "
\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " Subject / Betreff :    "; print $input{'subject'} . "
\n"; print " Your email address / Ihre email-Adresse :    "; print $input{'email'} . "
\n"; print " Your text for DL1FDT / Ihre Nachricht an DL1FDT :
\n"; print "
" . $input{'txt'} . "
" . "
\n"; print "
\n"; print "
\n\n"; } else { # print "
\n"; # print "

\n"; print " \n"; print " \n"; print " \n"; 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 "

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 "

\n\n"; print "
\n \n"; print "
\n"; print " \n"; print " Subject / Betreff :
\n     "; print "
\n"; print " Your email address / Ihre email-Adresse : (optional)
\n     "; print "
\n"; print " Your text for DL1FDT / Ihre Nachricht an DL1FDT :
\n     "; print "
\n"; print "
\n"; print "
\n\n"; } } print "
\n\n"; print "Created 2002-07-16 by Ralf Zimmermann
\n"; print "Changed 2007-03-12\n\n"; &print_file("mail_dl1fdt.endpage.html"); # Close the document cleanly. print "\n\n"; }