#!/usr/bin/perl ## wdpfp.cgi-- Email Newsletter Form Processor use CGI qw(:standard); ## cgi perl module var $err_msg = ""; var $subject = "-s 'Email Newsletter Signup'"; var $recipient = param('recipient'); ## form data var $name = param('name'); ## form data var $email = param('email'); ## form data var $newsletter = param('newsletter'); ## form data var $yesupdates = param('yesupdates'); ## form data var $emailreceived = param('emailreceived'); ## form data var $comments = param('comments'); ## form data var $cmd="/usr/sbin/sendmail $subject $recipient"; var $cmd2="/usr/sbin/sendmail $subject $email"; var $xhtml_front = ' '; if ( ! $name ) ## $name is empty { $err_msg .= "

Name must be specified.

"; } if ( ! $email ) ## $email is empty { $err_msg .= "

Email must be specified.

"; } if ( $err_msg ) { &error(); ## function call exit; ## terminate program } ## mail notice to manager open(MAIL, "| $cmd"); print MAIL "Name: $name\n"; print MAIL "Email: $email\n"; print MAIL "Newsletter to Receive: $newsletter\n"; print MAIL "Updates: $yesupdates\n"; print MAIL "Email Format: $emailreceived\n"; print MAIL "Comments: $comments\n"; print MAIL "Submitted by the Email Newsletter Page"; close(MAIL); ## mail notice to submitter open(MAIL, "| $cmd2"); print MAIL "Name: $name\n"; print MAIL "Email: $email\n"; print MAIL "Newsletter to Receive: $newsletter\n"; print MAIL "Updates: $yesupdates\n"; print MAIL "Email Format: $emailreceived\n"; print MAIL "Comments: $comments\n"; print MAIL "Submitted by the Email Newsletter Page. Thank you!"; close(MAIL); ## Send response to standard output print "Content-type: text/html\r\n\r\n"; print <Thanks for Joining

Thank you $name.

Welcome to our email newsletter. Your subscription will be processed shortly.

We have emailed you at $email with the contents of the form you submitted to us. Please allow a few days for processing.

END ####################################### sub error() { print "Content-type: text/html\r\n\r\n"; print "$xhtml_front\r\n"; print 'Error'; print ''; print '

Data Missing

'; print "

$err_msg Please go BACK, make corrections, "; print 'and submit the form again.

'; }