[dw-free] Do not purge identity accounts.

[mark]

[commit: http://hg.dwscoalition.org/dw-free/rev/679b7b801610]

Do not purge identity accounts.

Patch by mark.

Files modified:

• bin/moveucluster.pl

--------------------------------------------------------------------------------
diff -r 6f6184775c18 -r 679b7b801610 bin/moveucluster.pl
--- a/bin/moveucluster.pl	Mon May 04 17:10:01 2009 +0000
+++ b/bin/moveucluster.pl	Wed May 06 05:30:59 2009 +0000
@@ -488,7 +488,8 @@ sub moveUser {
     }
 
     if ($opts->{expungedel} && $u->{'statusvis'} eq "D" &&
-        LJ::mysqldate_to_time($u->{'statusvisdate'}) < time() - 86400*31) {
+        LJ::mysqldate_to_time($u->{'statusvisdate'}) < time() - 86400*31 &&
+        !$u->is_identity) {
 
         print "Expunging user '$u->{'user'}'\n";
         $dbh->do("INSERT INTO clustermove (userid, sclust, dclust, timestart, timedone) ".
--------------------------------------------------------------------------------