blob: dd63aafc53b29540370a5e3b8183be977c55f846 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
<?php
/*
* Proof General mailing list subscription and unsubscription.
*
* David Aspinall, June 1999.
*
* $Id$
*
*/
require('functions.php3');
if ($subscribe == ""):
##
## Subscription form
##
small_header("Proof General Mailing List");
?>
<p>
The mailing list address is
<a href="mailto:proofgeneral@dcs.ed.ac.uk">
<tt>proofgeneral@dcs.ed.ac.uk</tt>.
</a>
</p>
<p>
To subscribe or unsubscribe, you can fill in the form below.
<br>
Or send a message to
<a href="mailto:majordomo@dcs.ed.ac.uk">
<tt>majordomo@dcs.ed.ac.uk</tt>
</a>
with the words "<tt>subscribe proofgeneral</tt>"
(or "<tt>unsubscribe proofgeneral"</tt>) in the message body.
</p>
<p>
Since its beginning, the mailing list has been a low-volume list (one
message every few months). If the volume increases significantly due
to user interaction, we will introduce a separate mailing list for
announcements. No junk mail will be forwarded to list members.
</p>
<h2>Mailing list subscription</h2>
<form method=post action="<?php echo $PHP_SELF; ?>">
<table width="300" border="0" cellspacing="2" cellpadding="0">
<tr>
<td width="30%">Your name:</td>
<td width="70%"><input type=text name="name" size="40"></td>
</tr>
<tr>
<td width="30%">Email address:</td>
<td width="70%"><input type=text name="email" size="40"></td>
</tr>
<tr>
<td width="30%"><input type=radio name="subscribe" value="yes" checked></td>
<td width="70%">Please add me to the mailing list.</td>
</tr>
<tr>
<td width="30%"><input type=radio name="subscribe" value="no"></td>
<td width="70%">Please remove me from the mailing list.</td>
</tr>
</table>
<input type=submit value="Send request">
</form>
<p>
</p>
<?php
click_to_go_back();
footer();
else:
##
## Process subscription
##
$title = ($subscribe == "yes" ? "Subscription" : "Unsubscription") . " Request";
small_header($title);
$request = ($subscribe == "yes" ? "join" : "be removed");
$message = ($subscribe == "yes" ? "subscribe " : "unsubscribe ")
. "proofgeneral";
mail("majordomo@dcs.ed.ac.uk",
"[Web form from ~proofgen]",
$message,
"Reply-To: " . $email . "\nFrom: " . $email);
if ($from != "") { print "<p>Dear " . $from . ",</p>\n"; };
print "<p>";
print "Your request to " . $request . " the proof general mailing list has been submitted.<br>";
print "Thank-you!";
print "</p>\n<p>";
click_to_go_back();
footer();
endif;
?>
|