From e908456f366483dcc915bafc7036733310ebc6e5 Mon Sep 17 00:00:00 2001
From: "terry%mozilla.org" <>
Date: Tue, 18 Jan 2000 22:26:16 +0000
Subject: Check for and rebuild busted password stuff.

---
 sanitycheck.cgi | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

(limited to 'sanitycheck.cgi')

diff --git a/sanitycheck.cgi b/sanitycheck.cgi
index fe1708986..33890be78 100755
--- a/sanitycheck.cgi
+++ b/sanitycheck.cgi
@@ -80,6 +80,26 @@ if (exists $::FORM{'rebuildvotecache'}) {
 
 print "OK, now running sanity checks.<P>\n";
 
+Status("Checking passwords");
+SendSQL("SELECT COUNT(*) FROM profiles WHERE cryptpassword != ENCRYPT(password, left(cryptpassword, 2))");
+my $count = FetchOneColumn();
+if ($count) {
+    Alert("$count entries have problems in their crypted password.");
+    if ($::FORM{'rebuildpasswords'}) {
+        Status("Rebuilding passwords");
+        SendSQL("UPDATE profiles
+                 SET cryptpassword = ENCRYPT(password,
+                                            left(cryptpassword, 2))
+                 WHERE cryptpassword != ENCRYPT(password,
+                                                left(cryptpassword, 2))");
+        Status("Passwords have been rebuilt.");
+    } else {
+        print qq{<a href="sanitycheck.cgi?rebuildpasswords=1">Click here to rebuild the crypted passwords</a><p>\n};
+    }
+}
+
+
+
 Status("Checking groups");
 SendSQL("select bit from groups where bit != pow(2, round(log(bit) / log(2)))");
 while (my $bit = FetchOneColumn()) {
-- 
cgit v1.2.3-24-g4f1b