#!/usr/local/bin/perl -- # -*- Perl -*-
# Way cool user singular mailing list subscription maintenance cgi-bin
# for Majordomo
# Written by Wesley J. Ho
# adapted from code originally written
# by Ronald S. Woan (woan@austin.ibm.com)
#
# Form input variables:
# $action
# $name
# $email
#########################################
########## begin main program ###########
push(@INC,"/usr/local/lib/perl");
require 'cgi-lib.pl';
&ReadParse;
#print &PrintHeader;
#print $in{"email"}, $in{"name"}, $in{"action"};
if (!$in{"email"})
{ &inputError;
exit(0);
}
&majordomoAction($in{"action"}, $in{"email"}, $in{"name"});
&actionSuccess;
exit(0);
########## end main program ###########
#######################################
#
# supplemental procedures
#
sub inputError{
print &PrintHeader;
print <<"EOM";
Subscription Request Error
Subscription Request Error
Email address must be specified.
Use your browser's back function to return to the form. Click Here to exit.
