From 730ca1270c21d9a0af01e304479ddc4e6b1a4fa6 Mon Sep 17 00:00:00 2001
From: David Lawrence <dkl@mozilla.com>
Date: Fri, 17 Feb 2017 21:30:02 +0000
Subject: Bug 1336563 - Clean up accidental Pulsebot spam from Servo vendoring

---
 scripts/delete_comments_csv.pl | 55 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100755 scripts/delete_comments_csv.pl

(limited to 'scripts')

diff --git a/scripts/delete_comments_csv.pl b/scripts/delete_comments_csv.pl
new file mode 100755
index 000000000..5e3c0c3df
--- /dev/null
+++ b/scripts/delete_comments_csv.pl
@@ -0,0 +1,55 @@
+#!/usr/bin/perl
+# This Source Code Form is subject to the terms of the Mozilla Public
+# License, v. 2.0. If a copy of the MPL was not distributed with this
+# file, You can obtain one at http://mozilla.org/MPL/2.0/.
+#
+# This Source Code Form is "Incompatible With Secondary Licenses", as
+# defined by the Mozilla Public License, v. 2.0.
+
+use 5.10.1;
+use strict;
+use warnings;
+use lib qw(. lib local/lib/perl5);
+
+use Bugzilla;
+use Bugzilla::Comment;
+use Bugzilla::Constants;
+
+use Text::CSV_XS;
+
+Bugzilla->usage_mode(USAGE_MODE_CMDLINE);
+
+my $auto_user = Bugzilla::User->check({ name => 'automation@bmo.tld' });
+Bugzilla->set_user($auto_user);
+
+my $dbh = Bugzilla->dbh;
+
+my $filename = shift;
+$filename || die "No CSV file provided.\n";
+
+open(CSV, $filename) || die "Could not open CSV file: $!\n";
+
+$dbh->bz_start_transaction;
+
+my $csv = Text::CSV_XS->new();
+while (my $line = <CSV>) {
+    $csv->parse($line);
+    my @values = $csv->fields();
+    next if !@values;
+    my ($bug_id, $comment_id) = @values;
+    next if $bug_id !~ /^\d+$/;
+    print "Deleting comment '$comment_id' from bug '$bug_id' ";
+    my $bug = Bugzilla::Bug->check({ id => $bug_id });
+    my $comment = Bugzilla::Comment->new($comment_id);
+    if (!$comment || $comment->bug_id ne $bug_id) {
+        print "... commment '$comment_id' does not exist ... skipping.\n";
+        next;
+    }
+    $comment->remove_from_db();
+    $bug->_sync_fulltext( update_comments => 1 );
+    print "... done.\n";
+}
+
+$dbh->bz_commit_transaction;
+
+close(CSV) || die "Could not close CSV file: $!\n";
-- 
cgit v1.2.3-24-g4f1b