Changeset 14070 for trunk/cgi-bin/LJ/Console/Command/Unsuspend.pm

Timestamp:

07/23/08 23:30:03 (5 years ago)

Author:

janine

Message:

LJSUP-2512

Allow individual entries to be suspended/unsuspended without suspending/unsuspending an entire account.
* The entry poster can still view the entry, and can edit it to request an unsuspension.

Files:

• trunk/cgi-bin/LJ/Console/Command/Unsuspend.pm (modified) (3 diffs)

trunk/cgi-bin/LJ/Console/Command/Unsuspend.pm

@@ -7 +7 @@
 sub cmd { "unsuspend" }
 
-sub desc { "Unsuspend an account." }
+sub desc { "Unsuspend an account or entry." }
 
 sub args_desc { [
-                 'username or email address' => "The username of the account to unsuspend, or an email address to unsuspend all accounts at that address.",
-                 'reason' => "Why you're unsuspending the account.",
+                 'username or email address or entry url' => "The username of the account to unsuspend, or an email address to unsuspend all accounts at that address, or an entry URL to unsuspend a single entry within an account",
+                 'reason' => "Why you're unsuspending the account or entry",
                  ] }
 
-sub usage { '<username or email address> <reason>' }
+sub usage { '<username or email address or entry url> <reason>' }
 
 sub can_execute {
@@ -26 +26 @@
     return $self->error("This command takes two arguments. Consult the reference.")
         unless $user && $reason && scalar(@args) == 0;
+
+    my $remote = LJ::get_remote();
+    my $entry = LJ::Entry->new_from_url($user);
+    if ($entry) {
+        my $poster = $entry->poster;
+        my $journal = $entry->journal;
+
+        return $self->error("Invalid entry.")
+            unless $entry->valid;
+
+        return $self->error("Journal and/or poster is purged; cannot unsuspend entry.")
+            if $poster->is_expunged || $journal->is_expunged;
+
+        return $self->error("Entry is not currently suspended.")
+            if $entry->is_visible;
+
+        $entry->set_prop( statusvis => "V" );
+        $entry->set_prop( unsuspend_supportid => 0 )
+            if $entry->prop("unsuspend_supportid");
+
+        $reason = "entry: " . $entry->url . "; reason: $reason";
+        LJ::statushistory_add($journal, $remote, "unsuspend", $reason);
+        LJ::statushistory_add($poster, $remote, "unsuspend", $reason)
+            unless $journal->equals($poster);
+
+        return $self->print("Entry " . $entry->url . " unsuspended.");
+    }
 
     my @users;
@@ -72 +99 @@
         $u->{statusvis} = 'V';
 
-        my $remote = LJ::get_remote();
         LJ::statushistory_add($u, $remote, "unsuspend", $reason);
         eval { $u->fb_push };
         warn "Error running fb_push: $@\n" if $@ && $LJ::IS_DEV_SERVER;
 
-        $self->info("User '$username' unsuspended.");
+        $self->print("User '$username' unsuspended.");
     }