Collect WHOIS privacy setting on account page

dbupdate/8.sql

@@ -0,0 +1,2 @@
+alter table user add column email_pub integer not null default 0;
+update cyberman set dbrev=9;

lib/cyberman/Account.pm

@@ -70,6 +70,10 @@ post '/account' => sub {
 		$errs{"e_bad_sheet"} = 1;
 	}
 
+	if (param("email_pub") !~ m/^[01]$/) {
+		$errs{"e_bad_privacy"} = 1;
+	}
+
 	if (scalar(keys %errs) != 0) {
 		return template 'account' => {
 			"user" => $user,
@@ -133,6 +137,7 @@ post '/account' => sub {
 		},
 		{
 			"stylesheet" => param("stylesheet"),
+			"email_pub" => param("email_pub"),
 		},
 	);
 

schema.sql

@@ -6,7 +6,7 @@ create table cyberman (
 	lastserial integer not null default 0,
 	zonecheckstatus integer not null default 0,
 );
-insert into cyberman (dbrev) values (8);
+insert into cyberman (dbrev) values (9);
 
 drop table if exists user;
 create table user (
@@ -19,7 +19,8 @@ create table user (
 	newemail text,
 	recoverytoken text,
 	stylesheet text,
-	admin integer not null default 0
+	admin integer not null default 0,
+	email_pub integer not null default 0
 );
 
 drop table if exists session;

views/account.tt

@@ -34,6 +34,9 @@
 			<% IF e_bad_sheet %>
 			<li>The stylesheet selected was invalid.</li>
 			<% END %>
+			<% IF e_bad_privacy %>
+			<li>Please select a value for WHOIS privacy.</li>
+			<% END %>
 		</ul>
 	</div>
 </div>
@@ -91,6 +94,25 @@
 					</select>
 				</td>
 			</tr>
+			<tr>
+				<td>
+					<label for="email_pub">Show email address in WHOIS:</label>
+				</td>
+				<td>
+					<select id="email_pub" name="email_pub">
+						<option value="1"
+						<% IF user.email_pub == 1 %>
+						selected=selected
+						<% END %>
+						>Yes</option>
+						<option value="0"
+						<% IF user.email_pub == 0 %>
+						selected=selected
+						<% END %>
+						>No</option>
+					</select>
+				</td>
+			</tr>
 		</table>
 		<br />
 		[&nbsp;<button class="textButton" action="submit">update</button>&nbsp;]