Please return to the sign-up form and fill in ";
print "your e-mail address properly, and try again.\n";
&Footer;
exit;
}
##############################################################
# generic verification of valid email address format
##############################################################
sub CheckEmail {
$email = $_[0];
if ($email =~ /(@.*@)|(\.\.)|(@\.)|(^\.)/ ||
$email !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/) {
return 0;
} else {
return 1;
}
}
##############################################################
# send subscribe/unsubscribe request to majordomo
##############################################################
sub SendMail {
$email = $FORM{'email'};
# open mail program
open (MAIL,"|$mailprog -t")
|| die("Can't open mail program: $!\n");
# print out email body
print MAIL "Reply-to: $email\n";
print MAIL "From: $email\n";
print MAIL "To: majordomo\@$domain\n";
# if included in form, cc original sender
if (defined($FORM{'cc'}) && $FORM{'cc'} eq "on") {
print MAIL "Cc: $email\n";
}
# blank line between header and body
print MAIL "\n";
# print body command line and an 'end' command
print MAIL "$FORM{'action'} $FORM{'list'} $email\n";
print MAIL "end\n";
# close mail and send
close MAIL;
}
##############################################################
# generate the form for them to use
##############################################################
sub PrintForm {
print <<"(END HTML BODY 1)";
Subscribe to/Unsubscribe from $listname Mailing List
To subscribe to or unsubscribe from $listname
mailing list, enter your e-mail address in the box
below and select the proper action.
(END HTML BODY 1)
if ($confirmopt) {
print <<"(END HTML BODY 2)";
If you select “Subscribe,” you will receive a
confirmation message at the address you enter here.
You must follow the instructions in that message to
complete your subscription.
(END HTML BODY 2)
}
print <<"(END HTML BODY 3)";
(END HTML BODY 7)
}
##############################################################
# create the welcome message if the user subscribes
##############################################################
sub SubMesg {
print <<"(END HTML SUBMESG 1)";
Thank you!
Thank you for joining $FORM{'list'} mailing list.
(END HTML SUBMESG 1)
if ($confirmopt) {
print <<"(END HTML SUBMESG 2)";
Shortly you will receive a confirmation e-mail
from majordomo at the e-mail address
$FORM{'email'}. Follow the enclosed
instructions to complete your subscription.
(END HTML SUBMESG 2)
}
print <<"(END HTML SUBMESG 3)";
Please save the “welcome” message you receive once your
subscription is processed. It provides information about
the list and how to unsubscribe (which may be handy someday!).
We look forward to your participation on the mailing list.
If you have any question, please contact the
list-owner.
(END HTML SUBMESG 3)
}
##############################################################
# create the farewell message if the user unsubscribes
##############################################################
sub UnsubMesg {
print <<"(END HTML UNSUBMESG)";
Goodbye!
We’re sorry you are leaving $FORM{'list'}. We hope
you’ll rejoin us in the future.
(END HTML UNSUBMESG)
}
##############################################################
# create the header for the HTML files
##############################################################
sub Header {
if ($HeaderFile) {
open (HEADER,"$HeaderFile");
@header = ;
close (HEADER);
foreach $line (@header) { print "$line"; }
}
else {
print "\n";
print "$listname ";
print "Subscribe/Unsubscribe\n";
print "\n\n";
}
}
##############################################################
# create the footer for the HTML files
##############################################################
sub Footer {
if ($FooterFile) {
open (FOOTER,"$FooterFile");
@footer =