Patch by mark. 

diffs (13 lines):

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) ".
_______________________________________________
dw-changelog mailing list
[email protected]
http://lists.dwscoalition.org/mailman/listinfo/dw-changelog

Reply via email to