htdocs/accountstatus.bml

   1 <?page
   2 title=><?_ml .title _ml?>
   3 body<=
   4 <?_code
   5 {
   6     use strict;
   7     use vars qw(%GET %POST);
   8
   9     LJ::set_active_crumb('acctstatus');
  10
  11     my $remote = LJ::get_remote();
  12     return "<?needlogin?>" unless $remote;
  13
  14     return LJ::Lang::ml('account.status.error.unavailable')
  15         unless $remote->is_visible || $remote->is_deleted;
  16
  17     my $authas = $GET{'authas'} || $remote->{'user'};
  18     my %type = ();
  19     my $u = LJ::get_authas_user($authas);
  20     %type = ( type => 'S' ) if $u->is_community;
  21     # Need to check supermaintainer rights for community
  22     $u = LJ::get_authas_user($authas, \%type);
  23     return LJ::bad_input($ML{'error.invalidauth'})
  24         unless $u;
  25
  26     # visibility status name mappings
  27     my %statusvis = ( "V" => "$ML{'.journalstatus.select.activated'}",
  28                       "D" => "$ML{'.journalstatus.select.deleted'}" );
  29     if ($u->is_suspended) {
  30         %statusvis = ("S" => "$ML{'.journalstatus.select.suspended'}");
  31     }
  32
  33     # process form submission
  34     if (LJ::did_post() && LJ::check_referer('/accountstatus.bml')) {
  35         my $ret;
  36
  37         my $statusvis = $POST{'statusvis'};
  38         my $ok = sub {
  39             return "<?h1 $ML{'.header.success'} h1?>\n<?p " . $_[0] . " p?>";
  40         };
  41
  42         my $dberr = sub {
  43             return "<?h1 $ML{'Error'} h1?>\n<?p " . $_[0] . " p?>";
  44         };
  45
  46         return $dberr->($ML{'error.invalidform'})
  47             unless LJ::check_form_auth();
  48
  49         # are they suspended?
  50         return LJ::bad_input($ML{'.error.nochange.suspend'})
  51             if $u->is_suspended;
  52
  53         # are they expunged?
  54         return LJ::bad_input($ML{'.error.nochange.expunged'})
  55             if $u->is_expunged;
  56
  57         # invalid statusvis
  58         return LJ::bad_input($ML{'.error.invalid'})
  59             unless $statusvis eq 'D' || $statusvis eq 'V';
  60
  61         # save changes of purge_community_entries/purge_comments
  62         {
  63             my $purge_comments = ($POST{'purge_comments'}) ? 1 : 0;
  64             my $purge_community_entries = ($POST{'purge_community_entries'}) ? 1 : 0;
  65             $u->set_prop("purge_external_content", "$purge_comments:$purge_community_entries");
  66         }
  67
  68         # no need to change?
  69         return $ok->(BML::ml('.message.nochange', {'statusvis' => $statusvis{$statusvis} }))
  70             if $u->statusvis eq $statusvis;
  71
  72         my $res = 0;
  73
  74         my $ip = BML::get_remote_ip();
  75
  76         my @date = localtime(time);
  77         my $date = sprintf("%02d:%02d %02d/%02d/%04d", @date[2,1], $date[3], $date[4]+1, $date[5]+1900);
  78
  79         if ($statusvis eq 'D') {
  80
  81             $res = $u->set_deleted;
  82
  83             LJ::statushistory_add( $u, $remote, 'journal_status',
  84                 'Set to deleted via accountstatus.bml' );
  85
  86             if($res) {
  87                 # sending ESN status was changed
  88                 LJ::Event::SecurityAttributeChanged->new($u, {
  89                     action   => 'account_deleted',
  90                     ip       => BML::get_remote_ip(),
  91                     datetime => $date,
  92                 })->fire;
  93             }
  94         } elsif ($statusvis eq 'V') {
  95             LJ::run_hooks('account_undelete', $u);
  96
  97             ## Restore previous statusvis of journal. It may be different
  98             ## from 'V', it may be read-only, or locked, or whatever.
  99             my @previous_status = grep { $_ ne 'D' } $u->get_previous_statusvis;
 100             my $new_status = $previous_status[0] || 'V';
 101             my $method = {
 102                 V => 'set_visible',
 103                 L => 'set_locked',
 104                 M => 'set_memorial',
 105                 O => 'set_readonly',
 106                 R => 'set_renamed',
 107             }->{$new_status};
 108
 109             my $statushistory_msg = 'Undeleted via accountstatus.bml, '
 110                 . 'setting statusvis to ' . $new_status;
 111
 112             LJ::statushistory_add( $u, $remote, 'journal_status',
 113                 $statushistory_msg );
 114
 115             return $dberr->("Can't set status '$new_status'") unless $method;
 116
 117             $res = $u->$method;
 118
 119             if($res) {
 120                 LJ::Event::SecurityAttributeChanged->new($u ,  {
 121                     action   => 'account_activated',
 122                     ip       => BML::get_remote_ip(),
 123                     datetime => $date,
 124                 })->fire;
 125             }
 126         }
 127
 128         # error updating?
 129         return $dberr->($ML{'.error.db'})
 130             unless $res;
 131
 132         # success
 133         $ret .= $ok->(BML::ml('.message.success', {'statusvis' => $statusvis{$statusvis} }));
 134
 135         if ($statusvis eq 'D') {
 136             $ret .= "<?p $ML{'.message.deleted'} p?>";
 137             # optional stuff that gets printed after deletion
 138             $ret .= LJ::run_hook("accountstatus.bml_after_deletion", $u, \%POST);
 139         }
 140
 141         return $ret;
 142     }
 143
 144     # update form
 145
 146     my $ret;
 147
 148     # authas switcher form
 149     $ret .= "<form method='get' action='accountstatus.bml'>\n";
 150     ## type = 'S' : Only Supermaintainers can delete communities
 151     $ret .= LJ::make_authas_select($remote, { 'authas' => $GET{'authas'}, 'showall' => 1, type => 'S' }) . "\n";
 152     $ret .= "</form>\n\n";
 153
 154     my $getextra;
 155     $getextra = "?authas=$authas" unless $authas eq $remote->username;
 156     $ret .= "<form method='post' action='accountstatus.bml$getextra'>\n";
 157     $ret .= LJ::form_auth();
 158
 159     $ret .= "<?h1 $ML{'.journalstatus.head'} h1?><?p $ML{'.journalstatus.about'} p?>\n";
 160
 161     $ret .= LJ::run_hook("accountstatus_delete_text", $u);
 162
 163     my ($purge_comments, $purge_community_entries) = split /:/, $u->prop("purge_external_content");
 164
 165     if (($u->is_person || $u->is_identity) && !$u->is_suspended) {
 166         $ret .= '<h3>' . $ML{'.label.purge_external_content'} . '</h3>';
 167         $ret .= "<ul style='list-style:none;margin:0;padding:0;'><li><label for='purge_comments'>";
 168         $ret .= LJ::html_check({ 'name' => 'purge_comments', 'id' => 'purge_comments', 'selected' => $purge_comments });
 169         $ret .= "$ML{'.label.purge_comments'}</label></li>";
 170     }
 171
 172     if ($u->is_person && !$u->is_suspended) {
 173         $ret .= "<li><label for='purge_community_entries'>";
 174         $ret .= LJ::html_check({ 'name' => 'purge_community_entries', 'id' => 'purge_community_entries', 'selected' => $purge_community_entries });
 175         $ret .= "$ML{'.label.purge_community_entries'}</label></li></ul>";
 176     }
 177
 178     $ret .= "<p>$ML{'.journalstatus.select.head'}\n";
 179     $ret .= LJ::html_select({ 'name' => 'statusvis', 'selected' => $u->statusvis },
 180                               map { $_, $statusvis{$_} }
 181                               reverse sort keys %statusvis) . "\n";
 182     $ret .= LJ::html_submit(undef, $ML{'.btn.status'},
 183                             { 'disabled' => $u->is_suspended }) . "\n";
 184     $ret .= "</p>\n</form>\n";
 185
 186     return $ret;
 187 }
 188 _code?>
 189 <=body
 190 page?>
 191