From ec757edec8ef6330f093bf4693982cc4fe79ecde Mon Sep 17 00:00:00 2001 From: Megan McCormack Date: Tue, 24 Jun 1997 03:20:57 +0000 Subject: [PATCH] Made registration to announce@freebsd.org immediate. --- data/cgi/reg.cgi | 16 +++++++++++++++- en/cgi/reg.cgi | 16 +++++++++++++++- 2 files changed, 30 insertions(+), 2 deletions(-) diff --git a/data/cgi/reg.cgi b/data/cgi/reg.cgi index 8bd4e18aaa..4d6a8a1ba4 100755 --- a/data/cgi/reg.cgi +++ b/data/cgi/reg.cgi @@ -35,7 +35,7 @@ if ($FORM{"emaila"} eq "") { } $recipient = $FORM{'recipient'}; - +$sub_recipient = "majordomo@freebsd.org"; # # format the mail file format MAIL = @@ -64,6 +64,17 @@ print MAIL "\n"; print MAIL "\n"; close (MAIL); +# Open the mail file and write to it +# if user is subscribing to maillist +if ($FORM{"announce"} eq "yes") { +open (MAIL, "|$mailprog $sub_recipient") || die "$mailprog not available.\n"; +print MAIL "From: $FORM{'emaila'}\n"; +print MAIL "Subject: subscribe freebsd-announce $FORM{'emaila'}\n\n"; + +print MAIL "subscribe freebsd-announce $FORM{'emaila'}\n"; + +close (MAIL); +} print "\n"; print "\n"; print "Mail Sent\n"; @@ -85,6 +96,9 @@ print "\n"; print "\n"; print "

Thank you, $FORM{'First'} $FORM{'Last'}, for your registration.\n"; print "
It has been submitted.\n"; +if ($FORM{"announce"} eq "yes") { +print "
As you requested, you have also been subscribed to announce@freebsd.org.\n"; +} print "\n"; print "\n"; diff --git a/en/cgi/reg.cgi b/en/cgi/reg.cgi index 8bd4e18aaa..4d6a8a1ba4 100755 --- a/en/cgi/reg.cgi +++ b/en/cgi/reg.cgi @@ -35,7 +35,7 @@ if ($FORM{"emaila"} eq "") { } $recipient = $FORM{'recipient'}; - +$sub_recipient = "majordomo@freebsd.org"; # # format the mail file format MAIL = @@ -64,6 +64,17 @@ print MAIL "\n"; print MAIL "\n"; close (MAIL); +# Open the mail file and write to it +# if user is subscribing to maillist +if ($FORM{"announce"} eq "yes") { +open (MAIL, "|$mailprog $sub_recipient") || die "$mailprog not available.\n"; +print MAIL "From: $FORM{'emaila'}\n"; +print MAIL "Subject: subscribe freebsd-announce $FORM{'emaila'}\n\n"; + +print MAIL "subscribe freebsd-announce $FORM{'emaila'}\n"; + +close (MAIL); +} print "\n"; print "\n"; print "Mail Sent\n"; @@ -85,6 +96,9 @@ print "\n"; print "\n"; print "

Thank you, $FORM{'First'} $FORM{'Last'}, for your registration.\n"; print "
It has been submitted.\n"; +if ($FORM{"announce"} eq "yes") { +print "
As you requested, you have also been subscribed to announce@freebsd.org.\n"; +} print "\n"; print "\n";