Committer: ailyin
LJSUP-9784 (Log (un)delete/purge to statushistory)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);