From 6dcda41d4c40a5617757a3b0ec9bbaeebfde6b55 Mon Sep 17 00:00:00 2001
From: "terry%mozilla.org" <>
Date: Sat, 22 Jan 2000 12:24:39 +0000
Subject: Added a new table fielddefs that records information about the
 different fields we keep an activity log on.  The bugs_activity table now has
 a pointer into that table instead of recording the name directly.

Set up a new, highly experimental email-notification scheme.  To turn
it on, the maintainer has to turn on the "New email tech" param, and
then individual users have to turn on the "New email tech" preference.
---
 changepassword.cgi | 25 +++++++++++++++++++++----
 1 file changed, 21 insertions(+), 4 deletions(-)

(limited to 'changepassword.cgi')

diff --git a/changepassword.cgi b/changepassword.cgi
index 93b736e55..3e433ed04 100755
--- a/changepassword.cgi
+++ b/changepassword.cgi
@@ -35,9 +35,9 @@ if (! defined $::FORM{'pwd1'}) {
         $qacontactpart = ", the current QA Contact";
     }
     my $loginname = SqlQuote($::COOKIE{'Bugzilla_login'});
-    SendSQL("select emailnotification,realname from profiles where login_name = " .
+    SendSQL("select emailnotification,realname,newemailtech from profiles where login_name = " .
             $loginname);
-    my ($emailnotification, $realname) = (FetchSQLData());
+    my ($emailnotification, $realname, $newemailtech) = (FetchSQLData());
     $realname = value_quote($realname);
     print qq{
 <form method=post>
@@ -79,6 +79,21 @@ On which of these bugs would you like email notification of changes?</td>
 </SELECT>
 </td>
 </tr>
+";
+    if (Param("newemailtech")) {
+        my $checkedpart = $newemailtech ? "CHECKED" : "";
+        print qq{
+<tr><td colspan=2><hr></td></tr>
+<tr><td align=right><font color="red">New!</font>  Bugzilla has a new email 
+notification scheme.  It is <b>experimental and bleeding edge</b> and will 
+hopefully evolve into a brave new happy world where all the spam and ugliness
+of the old notifications will go away.  If you wish to sign up for this (and 
+risk any bugs), check here.</td>
+<td><input type="checkbox" name="newemailtech" $checkedpart>New email tech</td>
+</tr>
+};
+    }
+    print "
 </table>
 <hr>
 <input type=submit value=Submit>
@@ -126,8 +141,10 @@ Please click <b>Back</b> and try again.\n";
 }
 
 
-SendSQL("update profiles set emailnotification='$::FORM{'emailnotification'}' where login_name = " .
-        SqlQuote($::COOKIE{'Bugzilla_login'}));
+SendSQL("UPDATE profiles " .
+        "SET emailnotification='$::FORM{'emailnotification'}', " .
+        "    newemailtech = '$::FORM{'newemailtech'}' " .
+        "WHERE login_name = " . SqlQuote($::COOKIE{'Bugzilla_login'}));
 
 my $newrealname = $::FORM{'realname'};
 
-- 
cgit v1.2.3-24-g4f1b