Remove unused variables.

This commit is contained in:
Ceri Davies 2005-02-12 13:04:00 +00:00
parent 3ff88d64a6
commit 071edcc955
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=23780
2 changed files with 2 additions and 7 deletions

View file

@ -2,7 +2,7 @@
#
# Perl program to send mail.
#
# $FreeBSD: www/en/cgi/reg.cgi,v 1.8 2002/04/01 13:39:05 ceri Exp $
# $FreeBSD: www/en/cgi/reg.cgi,v 1.9 2005/02/12 12:59:53 ceri Exp $
sub do_header;
sub close_body;
@ -38,8 +38,6 @@ if ($FORM{"emaila"} eq "") {
exit(0);
}
$recipient = $FORM{'recipient'};
exit(0) if $recipient !~ /^[a-z_\.\-]+\@freebsd\.org$/io;
$sub_recipient = "majordomo\@FreeBSD.org";
#
# format the mail file

View file

@ -1,5 +1,5 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" [
<!ENTITY date "$FreeBSD: www/en/register.sgml,v 1.23 2005/02/04 17:33:30 ceri Exp $">
<!ENTITY date "$FreeBSD: www/en/register.sgml,v 1.24 2005/02/04 17:35:08 ceri Exp $">
<!ENTITY title "Register">
<!ENTITY % includes SYSTEM "includes.sgml"> %includes;
]>
@ -20,9 +20,6 @@
to subscribe to both).</p>
<form action="http://www.FreeBSD.org/cgi/reg.cgi" method="post">
<input type="hidden" name="recipient" value="majordomo@FreeBSD.org"><br>
<input type="hidden" name="version" value="Web-Registration">
<center>
<table width="75%" border="0">
<tr>