Attachment #20129 for bug #35563

View | Details | Raw Unified | Return to bug 35563
Collapse All | Expand All




#
# $FreeBSD: www/en/cgi/reg.cgi,v 1.7 2000/04/03 08:45:51 phantom Exp $

sub do_header;
sub close_body;

$mailprog = '/usr/sbin/sendmail';

print "Content-type: text/html\n\n";

$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";
print MAIL "<entry>\n";
print MAIL "<first>$FORM{'First'}</first>\n";
print MAIL "<last>$FORM{'Last'}</last>\n";
print MAIL "<email>$FORM{'emaila'}</email>\n";
print MAIL "<address>$FORM{'Address'}</address>\n";
print MAIL "<city>$FORM{'City'}</city>\n";
print MAIL "<state>$FORM{'State'}</state>\n";
print MAIL "<zip>$FORM{'Zip'}</zip>\n";
print MAIL "<options commerce_email=$FORM{'commerce_email'}";
print MAIL " announce=$FORM{'announce'} newsletter=$FORM{'newsletter'}>";
print MAIL " </options>\n";
print MAIL "<version>$FORM{'version'}</version>\n";
print MAIL "</entry>\n";
print MAIL "\n";
close (MAIL);

# 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 "<P>No action chosen, hence no action taken.</p>";
  &close_body;
  exit;
}

&do_header("Subscription processed");
print "<P>Thank you, $FORM{'emaila'}, for your submission.\n";
print "<BR>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 "<HTML>\n";
  print "<HEAD>\n";
  print "<TITLE>$title</TITLE>\n";
  print "</HEAD>\n";
  print "<BODY BGCOLOR=\"\#FFFFFF\" TEXT=\"\#660000\">\n";
  print "<FONT SIZE=4> \n";
  print "<CENTER>\n";
  print "<IMG SRC=\"..\/gifs\/bar.gif\" BORDER=0 USEMAP=\"\#bar\">\n";
  print "<MAP NAME=\"bar\">\n";
  print "<AREA SHAPE=\"RECT\" COORDS=\"1,1,111,31\" HREF=\"../index.html\">\n";
  print "<AREA SHAPE=\"RECT\" COORDS=\"112,11,196,31\" HREF=\"../ports/index.html\">\n";
  print "<AREA SHAPE=\"RECT\" COORDS=\"196,12,257,33\" HREF=\"../support.html\">\n";
  print "<AREA SHAPE=\"RECT\" COORDS=\"256,12,365,33\" HREF=\"../docs.html\">\n";
  print "<AREA SHAPE=\"RECT\" COORDS=\"366,13,424,32\" HREF=\"../commercial.html\">\n";
  print "<AREA SHAPE=\"RECT\" COORDS=\"425,16,475,32\" HREF=\"../search/search.html\">\n";
  print "<AREA SHAPE=\"RECT\" COORDS=\"477,16,516,33\" HREF=\"../search/index-site.html\">\n";
  print "<AREA SHAPE=\"RECT\" COORDS=\"516,15,562,33\" HREF=\"../index.html\">\n";
  print "<AREA SHAPE=\"RECT\" COORDS=\"0,0,564,32\" HREF=\"../index.html\">\n";
  print "</MAP>\n";
}
print "</CENTER>\n";
print "</BODY>\n";

sub close_body {
  print "</CENTER>\n";
  print "</BODY>\n";
  print "</HTML>\n";
}
1;





	      WIDTH="150" HEIGHT="194"></a></td>

	<td>This is <a href="http://www.freebsdmall.com/newsletter1/">issue
	    #1</a> of the FreeBSD Newsletter, which was published and distributed free
	  of charge by <a href="http://www.wccdrom.com/">Walnut Creek CDROM</a>.
	  You can <a href="register.html">register</a>
	  to receive it.  Submit articles/make comments by sending email to
	  <a href="mailto:newsletter@FreeBSD.ORG">newsletter@FreeBSD.ORG</a>.
	</td>
      </tr>


	      WIDTH="150" HEIGHT="194"></a></td>

	<td>This is <a href="http://www.freebsdmall.com/newsletter2/">issue
	    #2</a> of the FreeBSD Newsletter, which was published and distributed free
	  of charge by <a href="http://www.wccdrom.com/">Walnut Creek CDROM</a>.
	  You can <a href="register.html">register</a>
	  to receive it.  Submit articles/make comments by sending email to
	  <a href="mailto:newsletter@FreeBSD.ORG">newsletter@FreeBSD.ORG</a>.
	</td>
      </tr>
    </table>




<html>
    &header;

    <center><font size="4">Subscribe to the announce@FreeBSD.org and security-announce@FreeBSD.org mailing lists.</font></center>
	subscribe to the announce@FreeBSD.org mailing list.</font></center>
    
    <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 valign="top">
	  </tr>
	    
	  <tr valign="top">
	    <td>First Name: </td>

	    <td colspan="3" align="left"><input type="text" name="First"
		size="30"></td>
	  </tr>
	  
	  <tr valign="top">
	    <td align="left">Last Name: </td>
	    
	    <td colspan="3" align="left"><input type="text" name="Last"
		size="30"></td>
	  </tr>
	  
	  <tr>
	    <td>Email Address: </td>
	    
	    <td align="left"><input type="text" name="emaila"
		size="30"></td>
	  </tr>
	  
	  <tr valign="top">
	    <td align="left">Address: </td>
	    
	    <td colspan="3" align="left"><input type="text" name="Address"
		size="30"></td>
	  </tr>
	  
	  <tr valign="top">
	    <td align="left">City: </td>
	    
	    <td colspan="3" align="left"><input type="text" name="City"
		size="30"></td>
	  </tr>
	  
	  <tr valign="top">
	    <td align="left">Country/U.S. State: </td>
	    
	    <td align="left"><input type="text" name="State" size="10"></td>
	    
	    <td align="left">Country/Zip Code: </td>
	    
	    <td align="left"><input type="text" name="Zip" size="12"></td>
	  </tr>
	  
	  <tr>
	    <td>Options for the
	      announce@FreeBSD.org mailing list: </td>
	  
	  <tr>
	    <td colspan="4">Do you wish to receive FreeBSD related
	      commercial email?
	      
	      <input type="checkbox" name="commerce_email" value="yes"></td>
	  </tr>

	    <td><input type="radio" name="announce" value="yes"> Subscribe<br>
	      <input type="radio" name="announce" value="no"> Unsubscribe</td>
	      announce@FreeBSD.org mailing list?

	      <input type="checkbox" name="announce" value="yes"></td>
	  </tr>

	  <tr>
	    <td>Options for the
	      security-notifications@FreeBSD.org mailing list: </td>

	    <td><input type="radio" name="security-notifications" value="yes"> Subscribe<br>
	      <input type="radio" name="security-notifications" value="no"> Unsubscribe</td>
		<option>E-mail</option>
		<option>No Thanks</option>
		<option></option>
	      </select>
	    </td>
	  </tr>

	</table>

	<p><input type="submit" value="Send">

      </center>
    </form>
    
    <p>Preview a copy of the newsletter in <a
	href="ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/newsletter/issue2.pdf">Adobe
	PDF format</a>.  A <a
	href="ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/newsletter/README.TXT">help
	file</a> is available to assist you in selecting and using a PDF
      viewer.</p>
      
      &footer;
  </body>
</html>

Return to bug 35563

Lines 498-508 Link Here

(-)www/en/publish.sgml (-8 / +2 lines)
498	WIDTH="150" HEIGHT="194"></a></td>	498	WIDTH="150" HEIGHT="194"></a></td>
499		499
500	<td>This is <a href="http://www.freebsdmall.com/newsletter1/">issue	500	<td>This is <a href="http://www.freebsdmall.com/newsletter1/">issue
501	#1</a> of the FreeBSD Newsletter, published and distributed free	501	#1</a> of the FreeBSD Newsletter, which was published and distributed free
502	of charge by <a href="http://www.wccdrom.com/">Walnut Creek CDROM</a>.	502	of charge by <a href="http://www.wccdrom.com/">Walnut Creek CDROM</a>.
503	You can <a href="register.html">register</a>
504	to receive it. Submit articles/make comments by sending email to
505	<a href="mailto:newsletter@FreeBSD.ORG">newsletter@FreeBSD.ORG</a>.
506	</td>	503	</td>
507	</tr>	504	</tr>
508		505
Lines 511-521 Link Here
511	WIDTH="150" HEIGHT="194"></a></td>	508	WIDTH="150" HEIGHT="194"></a></td>
512		509
513	<td>This is <a href="http://www.freebsdmall.com/newsletter2/">issue	510	<td>This is <a href="http://www.freebsdmall.com/newsletter2/">issue
514	#2</a> of the FreeBSD Newsletter, published and distributed free	511	#2</a> of the FreeBSD Newsletter, which was published and distributed free
515	of charge by <a href="http://www.wccdrom.com/">Walnut Creek CDROM</a>.	512	of charge by <a href="http://www.wccdrom.com/">Walnut Creek CDROM</a>.
516	You can <a href="register.html">register</a>
517	to receive it. Submit articles/make comments by sending email to
518	<a href="mailto:newsletter@FreeBSD.ORG">newsletter@FreeBSD.ORG</a>.
519	</td>	513	</td>
520	</tr>	514	</tr>
521	</table>	515	</table>

Lines 4-9 Link Here

(-)www/en/cgi/reg.cgi (-48 / +54 lines)
4	#	4	#
5	# $FreeBSD: www/en/cgi/reg.cgi,v 1.7 2000/04/03 08:45:51 phantom Exp $	5	# $FreeBSD: www/en/cgi/reg.cgi,v 1.7 2000/04/03 08:45:51 phantom Exp $
6		6
		7	sub do_header;
		8	sub close_body;
		9
7	$mailprog = '/usr/sbin/sendmail';	10	$mailprog = '/usr/sbin/sendmail';
8		11
9	print "Content-type: text/html\n\n";	12	print "Content-type: text/html\n\n";
Lines 45-107 Link Here
45	$value	48	$value
46	.	49	.
47		50
48	# Open the mail file and write to it	51	my ($sub_announce, $sub_security, $unsub_announce, $unsub_security) = ();
49	open (MAIL, "\|$mailprog $recipient") \|\| die "$mailprog not available.\n";	52	$sub_announce = 1 if $FORM{"announce"} eq "yes";
50	print MAIL "From: $FORM{'emaila'}\n";	53	$unsub_announce = 1 if $FORM{"announce"} eq "no";
51	print MAIL "Subject: FreeBSD Registration from $FORM{'emaila'}\n\n";	54	$sub_security = 1 if $FORM{"security-notifications"} eq "yes";
52		55	$unsub_security = 1 if $FORM{"security-notifications"} eq "no";
53	print MAIL "<entry>\n";
54	print MAIL "<first>$FORM{'First'}</first>\n";
55	print MAIL "<last>$FORM{'Last'}</last>\n";
56	print MAIL "<email>$FORM{'emaila'}</email>\n";
57	print MAIL "<address>$FORM{'Address'}</address>\n";
58	print MAIL "<city>$FORM{'City'}</city>\n";
59	print MAIL "<state>$FORM{'State'}</state>\n";
60	print MAIL "<zip>$FORM{'Zip'}</zip>\n";
61	print MAIL "<options commerce_email=$FORM{'commerce_email'}";
62	print MAIL " announce=$FORM{'announce'} newsletter=$FORM{'newsletter'}>";
63	print MAIL " </options>\n";
64	print MAIL "<version>$FORM{'version'}</version>\n";
65	print MAIL "</entry>\n";
66	print MAIL "\n";
67	close (MAIL);
68		56
69	# Open the mail file and write to it	57	# Open the mail file and write to it
70	# if user is subscribing to maillist	58	# if user is subscribing to maillist
71	if ($FORM{"announce"} eq "yes") {	59	# which they should be, otherwise why did they hit submit ?
		60	if ( $sub_announce \|\| $sub_security \|\| $unsub_announce \|\| $unsub_security ) {
72	open (MAIL, "\|$mailprog $sub_recipient") \|\| die "$mailprog not available.\n";	61	open (MAIL, "\|$mailprog $sub_recipient") \|\| die "$mailprog not available.\n";
73	print MAIL "From: $FORM{'emaila'}\n";	62	print MAIL "From: $FORM{'emaila'}\n";
74	print MAIL "Subject: subscribe freebsd-announce $FORM{'emaila'}\n\n";	63	print MAIL "Subject: \n\n";
75		64
76	print MAIL "subscribe freebsd-announce $FORM{'emaila'}\n";	65	$sub_announce and print MAIL "subscribe freebsd-announce $FORM{'emaila'}\n";
		66	$unsub_announce and print MAIL "unsubscribe freebsd-announce $FORM{'emaila'}\n";
		67	$sub_security and print MAIL "subscribe freebsd-security-notifications $FORM{'emaila'}\n";
		68	$unsub_security and print MAIL "unsubscribe freebsd-security-notifications $FORM{'emaila'}\n";
77		69
78	close (MAIL);	70	close (MAIL);
		71	} else {
		72	&do_header("No action");
		73	print "<P>No action chosen, hence no action taken.</p>";
		74	&close_body;
		75	exit;
79	}	76	}
80	print "<HTML>\n";	77
81	print "<HEAD>\n";	78	&do_header("Subscription processed");
82	print "<TITLE>Mail Sent</TITLE>\n";	79	print "<P>Thank you, $FORM{'emaila'}, for your submission.\n";
83	print "</HEAD>\n";	80	print "<BR>The request will need to be authenticated; check your mailbox ";
84	print "<BODY BGCOLOR=\"\#FFFFFF\" TEXT=\"\#660000\">\n";	81	print "for instructions on how to do this.\n";
85	print "<FONT SIZE=4> \n";	82	&close_body;
86	print "<CENTER>\n";	83
87	print "<IMG SRC=\"..\/gifs\/bar.gif\" BORDER=0 USEMAP=\"\#bar\">\n";	84	sub do_header {
88	print "<MAP NAME=\"bar\">\n";	85	my $title = @_;
89	print "<AREA SHAPE=\"RECT\" COORDS=\"1,1,111,31\" HREF=\"../index.html\">\n";	86	print "<HTML>\n";
90	print "<AREA SHAPE=\"RECT\" COORDS=\"112,11,196,31\" HREF=\"../ports/index.html\">\n";	87	print "<HEAD>\n";
91	print "<AREA SHAPE=\"RECT\" COORDS=\"196,12,257,33\" HREF=\"../support.html\">\n";	88	print "<TITLE>$title</TITLE>\n";
92	print "<AREA SHAPE=\"RECT\" COORDS=\"256,12,365,33\" HREF=\"../docs.html\">\n";	89	print "</HEAD>\n";
93	print "<AREA SHAPE=\"RECT\" COORDS=\"366,13,424,32\" HREF=\"../commercial.html\">\n";	90	print "<BODY BGCOLOR=\"\#FFFFFF\" TEXT=\"\#660000\">\n";
94	print "<AREA SHAPE=\"RECT\" COORDS=\"425,16,475,32\" HREF=\"../search/search.html\">\n";	91	print "<FONT SIZE=4> \n";
95	print "<AREA SHAPE=\"RECT\" COORDS=\"477,16,516,33\" HREF=\"../search/index-site.html\">\n";	92	print "<CENTER>\n";
96	print "<AREA SHAPE=\"RECT\" COORDS=\"516,15,562,33\" HREF=\"../index.html\">\n";	93	print "<IMG SRC=\"..\/gifs\/bar.gif\" BORDER=0 USEMAP=\"\#bar\">\n";
97	print "<AREA SHAPE=\"RECT\" COORDS=\"0,0,564,32\" HREF=\"../index.html\">\n";	94	print "<MAP NAME=\"bar\">\n";
98	print "</MAP>\n";	95	print "<AREA SHAPE=\"RECT\" COORDS=\"1,1,111,31\" HREF=\"../index.html\">\n";
99	print "<P>Thank you, $FORM{'First'} $FORM{'Last'}, for your registration.\n";	96	print "<AREA SHAPE=\"RECT\" COORDS=\"112,11,196,31\" HREF=\"../ports/index.html\">\n";
100	print "<BR>It has been submitted.\n";	97	print "<AREA SHAPE=\"RECT\" COORDS=\"196,12,257,33\" HREF=\"../support.html\">\n";
101	if ($FORM{"announce"} eq "yes") {	98	print "<AREA SHAPE=\"RECT\" COORDS=\"256,12,365,33\" HREF=\"../docs.html\">\n";
102	print "<BR>As you requested, you have also been subscribed to announce\@FreeBSD.org.\n";	99	print "<AREA SHAPE=\"RECT\" COORDS=\"366,13,424,32\" HREF=\"../commercial.html\">\n";
		100	print "<AREA SHAPE=\"RECT\" COORDS=\"425,16,475,32\" HREF=\"../search/search.html\">\n";
		101	print "<AREA SHAPE=\"RECT\" COORDS=\"477,16,516,33\" HREF=\"../search/index-site.html\">\n";
		102	print "<AREA SHAPE=\"RECT\" COORDS=\"516,15,562,33\" HREF=\"../index.html\">\n";
		103	print "<AREA SHAPE=\"RECT\" COORDS=\"0,0,564,32\" HREF=\"../index.html\">\n";
		104	print "</MAP>\n";
103	}	105	}
104	print "</CENTER>\n";
105	print "</BODY>\n";
106		106
		107	sub close_body {
		108	print "</CENTER>\n";
		109	print "</BODY>\n";
		110	print "</HTML>\n";
		111	}
107	1;	112	1;
		113

Lines 7-98 Link Here

(-)www/en/register.sgml (-75 / +13 lines)
7	<html>	7	<html>
8	&header;	8	&header;
9		9
10	<center><font size="4">Register to receive the FreeBSD Newsletter and	10	<center><font size="4">Subscribe to the announce@FreeBSD.org and security-announce@FreeBSD.org mailing lists.</font></center>
11	subscribe to the announce@FreeBSD.org mailing list.</font></center>
12		11
13	<form action="http://www.FreeBSD.org/cgi/reg.cgi" method="post">	12	<form action="http://www.FreeBSD.org/cgi/reg.cgi" method="post">
14	<input type="hidden" name="recipient" value="register@FreeBSD.org"><br>	13	<input type="hidden" name="recipient" value="majordomo@FreeBSD.org"><br>
15	<input type="hidden" name="version" value="Web-Registration">	14	<input type="hidden" name="version" value="Web-Registration">
16		15
17	<center>	16	<center>
18	<table width="95%" border="0">	17	<table width="75%" border="0">
19	<tr valign="top">
20	</tr>
21
22	<tr valign="top">
23	<td>First Name: </td>
24
25	<td colspan="3" align="left"><input type="text" name="First"
26	size="30"></td>
27	</tr>
28
29	<tr valign="top">
30	<td align="left">Last Name: </td>
31
32	<td colspan="3" align="left"><input type="text" name="Last"
33	size="30"></td>
34	</tr>
35
36	<tr>	18	<tr>
37	<td>Email Address: </td>	19	<td>Email Address: </td>
38		20
39	<td colspan="3" align="left"><input type="text" name="emaila"	21	<td align="left"><input type="text" name="emaila"
40	size="30"></td>
41	</tr>
42
43	<tr valign="top">
44	<td align="left">Address: </td>
45
46	<td colspan="3" align="left"><input type="text" name="Address"
47	size="30"></td>
48	</tr>
49
50	<tr valign="top">
51	<td align="left">City: </td>
52
53	<td colspan="3" align="left"><input type="text" name="City"
54	size="30"></td>	22	size="30"></td>
55	</tr>	23	</tr>
56		24
57	<tr valign="top">
58	<td align="left">Country/U.S. State: </td>
59
60	<td align="left"><input type="text" name="State" size="10"></td>
61
62	<td align="left">Country/Zip Code: </td>
63
64	<td align="left"><input type="text" name="Zip" size="12"></td>
65	</tr>
66
67	<tr>	25	<tr>
68	<td></td>	26	<td>Options for the
69	</tr>	27	announce@FreeBSD.org mailing list: </td>
70
71	<tr>
72	<td colspan="4">Do you wish to receive FreeBSD related
73	commercial email?
74
75	<input type="checkbox" name="commerce_email" value="yes"></td>
76	</tr>
77		28
78	<tr>	29	<td><input type="radio" name="announce" value="yes"> Subscribe<br>
79	<td colspan="4">Subscribe listed email address to the	30	<input type="radio" name="announce" value="no"> Unsubscribe</td>
80	announce@FreeBSD.org mailing list?
81
82	<input type="checkbox" name="announce" value="yes"></td>
83	</tr>	31	</tr>
84		32
85	<tr>	33	<tr>
86	<td colspan="4">Sign up for FreeBSD Newsletter?	34	<td>Options for the
		35	security-notifications@FreeBSD.org mailing list: </td>
87		36
88	<select name="newsletter" size="1">	37	<td><input type="radio" name="security-notifications" value="yes"> Subscribe<br>
89	<option>Postal Copy</option>	38	<input type="radio" name="security-notifications" value="no"> Unsubscribe</td>
90	<option>E-mail</option>
91	<option>No Thanks</option>
92	<option></option>
93	</select>
94	</td>
95	</tr>	39	</tr>
		40
96	</table>	41	</table>
97		42
98	<p><input type="submit" value="Send">	43	<p><input type="submit" value="Send">
Lines 100-112 Link Here
100	</center>	45	</center>
101	</form>	46	</form>
102		47
103	<p>Preview a copy of the newsletter in <a
104	href="ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/newsletter/issue2.pdf">Adobe
105	PDF format</a>. A <a
106	href="ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/newsletter/README.TXT">help
107	file</a> is available to assist you in selecting and using a PDF
108	viewer.</p>
109
110	&footer;	48	&footer;
111	</body>	49	</body>
112	</html>	50	</html>