Account Application

#!/usr/local/bin/perl -w use CGI::Minimal $accountadmin = "monoadm\@mono.org"; print "Content-type: text/html\n\n"; print "\n"; print "Account Application\n"; print "\n"; print "\n"; print "\n"; my $cgi = CGI::Minimal->new; if ($cgi->truncated) { ## Something very bad happened.. don't continue print "Something very bad happened here, please report this to"; print "monoweb\@mono.org\n"; print "\n"; print "\n"; exit; } my ($email) = $cgi->param('email'); my ($account) = $cgi->param('account'); my ($vouch) = $cgi->param('vouch'); if (($email eq "") or ($account eq "")) { print "You need to specify your details\n"; print "\n"; print "\n"; exit; } open(MAIL, "| /usr/sbin/sendmail $accountadmin") || die "Couldn't send mail...\n"; if ($vouch eq "YES") { print MAIL "Subject: vouch account\n\n"; } else { print MAIL "Subject: new account\n\n"; } print MAIL "account:\n"; print MAIL "$account\t$email\n"; #print MAIL "\tAccount name : $account\n"; #print MAIL "\tEmail Address : $email\n\n"; close MAIL; print "Your application was successfully processed, you will receive an email with further details in a short while\n"; print "\n"; print "\n";