#!/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 = "dh5iae\@amsat.org"; $from = "From: Ralf\@Zimmermann.com\n"; $send_to = "To: $to\n"; # Print the header print &PrintHeader; print "\n"; print "\n \n"; print " Send an email to DH5IAE\n"; print " "; if ( $input{'action'} ne "send_mail" ) { &print_script; } print " \n\n\n\n"; &print_file("mail_dh5iae.beginpage.html"); print "\n\n"; if ( $input{'action'} eq "send_mail" ) { $subject = "Subject: MailMe.cgi: $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{'text'}; print SENDMAIL "\n--- End of message ------------------------------\n"; print SENDMAIL "\n--- This is mail_dh5iae.cgi 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 DH5IAE

"; print " 		\n"; print "

Ihre Mitteilung wurde an DH5IAE gesendet.

"; 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 DH5IAE

"; 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 DH5IAE

"; 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 DH5IAE / Ihre Nachricht an DH5IAE :
\n     "; print "
\n"; print "
\n"; print "
\n\n"; } print "
\n\n"; print "Created 2002-07-16 by Ralf Zimmermann
\n"; print "Changed 2003-07-16\n\n"; &print_file("mail_dh5iae.endpage.html"); # Close the document cleanly. print "\n\n"; }