[ljcom] r11082: LJSUP-9784 (Log (un)delete/purge to stat...

U   trunk/bin/worker/inactive-accounts-notify
U   trunk/cgi-bin/LJ/Worker/UserManage/PostPurge.pm

Modified: trunk/bin/worker/inactive-accounts-notify
===================================================================
--- trunk/bin/worker/inactive-accounts-notify	2011-10-11 06:29:25 UTC (rev 11081)
+++ trunk/bin/worker/inactive-accounts-notify	2011-10-11 12:19:52 UTC (rev 11082)
@@ -83,6 +83,11 @@
                 $u->set_deleted;
                 $u->set_prop( 'deleted_for_inactivity' => 1 );
 
+                if ( my $systemu = LJ::load_user('system') ) {
+                    LJ::statushistory_add( $u, $systemu, 'journal_status',
+                        'Set to deleted because of inactivity' );
+                }
+
                 LJ::Event::UserPurging->emit({
                     'user'     => $u,
                     'action'   => 'inactive_deleted',

Modified: trunk/cgi-bin/LJ/Worker/UserManage/PostPurge.pm
===================================================================
--- trunk/cgi-bin/LJ/Worker/UserManage/PostPurge.pm	2011-10-11 06:29:25 UTC (rev 11081)
+++ trunk/cgi-bin/LJ/Worker/UserManage/PostPurge.pm	2011-10-11 12:19:52 UTC (rev 11082)
@@ -34,6 +34,11 @@
 
     LJ::update_user($u, { 'clusterid' => 0 });
 
+    if ( my $systemu = LJ::load_user('system') ) {
+        LJ::statushistory_add( $u, $systemu, 'journal_status',
+            'Set to expunged by the moveucluster worker' );
+    }
+
     # fire event noting this user was expunged
     LJ::Event::UserExpunged->new($u)->fire;
     LJ::run_hooks('purged_user', $u);