diff --git a/en/cgi/Makefile b/en/cgi/Makefile
index f927d151f6..5fdd2902d4 100644
--- a/en/cgi/Makefile
+++ b/en/cgi/Makefile
@@ -1,24 +1,24 @@
-# $FreeBSD: www/en/cgi/Makefile,v 1.23 2004/02/16 17:25:38 ceri Exp $
+# $FreeBSD: www/en/cgi/Makefile,v 1.24 2005/04/09 12:45:52 mlaier Exp $
.if exists(../Makefile.conf)
.include "../Makefile.conf"
.endif
.if exists(../Makefile.inc)
.include "../Makefile.inc"
.endif
DATA= ftp.mirrors html.pl cgi-lib.pl cgi-style.pl Gnats.pm
DATA+= cvsweb.conf cvsweb.conf-freebsd cvsweb.conf-netbsd cvsweb.conf-openbsd
CGI= ftp.cgi gallery.cgi mirror.cgi
CGI+= search.cgi cvsweb.cgi query-pr.cgi query-pr-summary.cgi
CGI+= dosendpr.cgi sendpr-code.cgi
-CGI+= reg.cgi missing_handler.cgi
+CGI+= missing_handler.cgi
CGI+= ports.cgi pds.cgi man.cgi url.cgi getmsg.cgi mid.cgi
CGI+= mailindex.cgi monthly.cgi
.SUFFIXES: .C .cgi
.C.cgi:
${CXX} ${CFLAGS} -o ${.TARGET} ${.IMPSRC}
.include "${WEB_PREFIX}/share/mk/web.site.mk"
diff --git a/en/cgi/reg.cgi b/en/cgi/reg.cgi
deleted file mode 100755
index ccaef30728..0000000000
--- a/en/cgi/reg.cgi
+++ /dev/null
@@ -1,110 +0,0 @@
-#!/usr/bin/perl
-#
-# Perl program to send mail.
-#
-# $FreeBSD: www/en/cgi/reg.cgi,v 1.10 2005/02/12 13:04:00 ceri Exp $
-
-sub do_header;
-sub close_body;
-
-$mailprog = '/usr/sbin/sendmail';
-
-print "Content-type: text/html\n\n";
-
-if ($ENV{'REQUEST_METHOD'} eq "get") { $buffer = $ENV{'QUERY_STRING'}; }
-else { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
-
-@nvpairs = split(/&/, $buffer);
-foreach $pair (@nvpairs)
-{
- ($name, $value) = split(/=/, $pair);
-
- $value =~ tr/+/ /;
- $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
-
- $FORM{$name} = $value;
-}
-
-if ($FORM{"emaila"} eq "") {
- print "\n";
- print "\n";
- print "Entry Error: Email Field Blank\n";
- print "\n";
- print "\n";
- print "\n";
- print "Your email address was left blank. Please enter it.\n";
- print "\n";
- print "\n";
- exit(0);
-}
-
-$sub_recipient = "majordomo\@FreeBSD.org";
-#
-# format the mail file
-format MAIL =
-~~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
-$value
-.
-
-my ($sub_announce, $sub_security, $unsub_announce, $unsub_security) = ();
-$sub_announce = 1 if $FORM{"announce"} eq "yes";
-$unsub_announce = 1 if $FORM{"announce"} eq "no";
-$sub_security = 1 if $FORM{"security-notifications"} eq "yes";
-$unsub_security = 1 if $FORM{"security-notifications"} eq "no";
-
-# Open the mail file and write to it
-# if user is subscribing to maillist
-# which they should be, otherwise why did they hit submit ?
-if ( $sub_announce || $sub_security || $unsub_announce || $unsub_security ) {
-open (MAIL, "|$mailprog $sub_recipient") || die "$mailprog not available.\n";
-print MAIL "From: $FORM{'emaila'}\n";
-print MAIL "Subject: \n\n";
-
-$sub_announce and print MAIL "subscribe freebsd-announce $FORM{'emaila'}\n";
-$unsub_announce and print MAIL "unsubscribe freebsd-announce $FORM{'emaila'}\n";
-$sub_security and print MAIL "subscribe freebsd-security-notifications $FORM{'emaila'}\n";
-$unsub_security and print MAIL "unsubscribe freebsd-security-notifications $FORM{'emaila'}\n";
-
-close (MAIL);
-} else {
- &do_header("No action");
- print "
No action chosen, hence no action taken.
";
- &close_body;
- exit;
-}
-
-&do_header("Subscription processed");
-print "Thank you, $FORM{'emaila'}, for your submission.\n";
-print "
The request will need to be authenticated; check your mailbox ";
-print "for instructions on how to do this.\n";
-&close_body;
-
-sub do_header {
- my $title = @_;
- print "\n";
- print "
\n";
- print "$title\n";
- print "\n";
- print "\n";
- print "![](\"..\/gifs\/bar.gif\")
\n";
- print "\n";
- print "\n";
-}
-
-sub close_body {
- print "\n";
- print "\n";
- print "\n";
-}
-1;
-