Script to silence spammers

diff --git a/plugins/ActivitySpam/scripts/silencespammer.php b/plugins/ActivitySpam/scripts/silencespammer.php
new file mode 100644 (file)
index 0000000..2eb9461
--- /dev/null
+++ b/plugins/ActivitySpam/scripts/silencespammer.php
@@ -0,0 +1,114 @@
+<?php
+/*
+ * StatusNet - the distributed open-source microblogging tool
+ * Copyright (C) 2013 StatusNet, Inc.
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU Affero General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU Affero General Public License for more details.
+ *
+ * You should have received a copy of the GNU Affero General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+define('INSTALLDIR', realpath(dirname(__FILE__) . '/../../..'));
+
+$shortoptions = 'i:n:a';
+$longoptions = array('id=', 'nickname=', 'all');
+
+$helptext = <<<END_OF_SILENCESPAMMER_HELP
+silencespammer.php [options]
+Users who post a lot of spam get silenced
+
+  -i --id       ID of user to test and silence
+  -n --nickname nickname of the user to test and silence
+  -a --all      All users
+END_OF_SILENCESPAMMER_HELP;
+
+require_once INSTALLDIR.'/scripts/commandline.inc';
+
+function testAllUsers($filter, $minimum, $percent) {
+    $found = false;
+    $offset = 0;
+    $limit  = 1000;
+
+    do {
+
+        $user = new User();
+        $user->orderBy('created');
+        $user->limit($offset, $limit);
+
+        $found = $user->find();
+
+        if ($found) {
+            while ($user->fetch()) {
+                try {
+                    silencespammer($filter, $user, $minimum, $percent);
+                } catch (Exception $e) {
+                    printfnq("ERROR testing user %s\n: %s", $user->nickname, $e->getMessage());
+                }
+            }
+            $offset += $found;
+        }
+
+    } while ($found > 0);
+}
+
+function silencespammer($filter, $user, $minimum, $percent) {
+
+    printfnq("Testing user %s\n", $user->nickname);
+
+    $profile = Profile::staticGet('id', $user->id);
+
+    $cnt = $profile->noticeCount();
+
+    if ($cnt < $minimum) {
+        printfnq("Only %d notices posted (minimum %d); skipping\n", $cnt, $minimum);
+    }   
+
+    $ss = new Spam_score();
+
+    $ss->query(sprintf("SELECT count(*) as spam_count ".
+                       "FROM notice join spam_score on notice.id = spam_score.notice_id ".
+                       "WHERE notice.profile_id = %d", $profile->id));
+
+    while ($ss->fetch()) {
+        $spam_count = $ss->spam_count;
+    }                 
+
+    $spam_percent = ($spam_count * 100 / $cnt);
+
+    if ($spam_percent > $percent) {
+        printfnq("Silencing user %d (%0.2f%% spam)\n", $user->nickname, $spam_percent);
+        try {
+            $profile->silence();
+        } catch(Exception $e) {
+            printfnq("Error: %s", $e->getMessage());
+        }       
+    }    
+}
+
+try {
+    $filter = null;
+    $minimum = 5;
+    $percent = 80;
+    Event::handle('GetSpamFilter', array(&$filter));
+    if (empty($filter)) {
+        throw new Exception(_("No spam filter."));
+    }
+    if (have_option('a', 'all')) {
+        testAllUsers($filter, $minimum, $percent);
+    } else {
+        $user = getUser();
+        silencespammer($filter, $user, $minimum, $percent);
+    }
+} catch (Exception $e) {
+    print $e->getMessage()."\n";
+    exit(1);
+}