Send an email to Marcus Kuba

#!/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 = "pugs\@kuba4u.de"; $from = "From: Ralf\@Zimmermann.com\n"; $send_to = "To: $to\n"; $send_bcc = "Bcc: Ralf\@Zimmermann.com\n"; # Print the header print &PrintHeader; print "\n"; print "\n \n"; print " Send an email to Marcus Kuba\n"; print " "; &print_script; print " \n\n\n\n"; &print_file("mail_marcus.beginpage.html"); print "\n\n"; if ( $input{'action'} eq "send_mail" ) { $subject = "Subject: mail_marcus.cgi: $input{'subject'}\n"; # open(SENDMAIL, "|$sendmail") or die "Cannot open $sendmail: $!"; # print SENDMAIL $send_to; # print SENDMAIL $send_bcc; # 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_marcus.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 Marcus Kuba

"; print "

\n"; print "

Ihre Mitteilung wurde an Marcus Kuba gesendet.

"; print "

\n"; # print "

\n\n"; } else { # print "

\n"; # print "

\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; print "
This email service has been disabled
"; # print " This page gives you the opportunity to send an email to me.\n"; print " \n"; print "
Dieser Email-Service ist deaktiviert.
"; # print " Diese Seite gibt Ihnen die Möglichkeit, mir eine email zu senden.\n"; print "
\n"; # print "

\n\n"; print "

\n \n"; # print "\n\n"; } print "

\n\n"; print "Created 2003-02-11 by Ralf Zimmermann
\n"; print "Changed 2010-08-23\n\n"; &print_file("mail_marcus.endpage.html"); # Close the document cleanly. print "\n\n"; }