diff options
Diffstat (limited to 'contrib/fix_comment_text.pl')
-rwxr-xr-x | contrib/fix_comment_text.pl | 75 |
1 files changed, 0 insertions, 75 deletions
diff --git a/contrib/fix_comment_text.pl b/contrib/fix_comment_text.pl deleted file mode 100755 index f17bbc3d4..000000000 --- a/contrib/fix_comment_text.pl +++ /dev/null @@ -1,75 +0,0 @@ -#!/usr/bin/perl -# -*- Mode: perl; indent-tabs-mode: nil -*- -# -# The contents of this file are subject to the Mozilla Public -# License Version 1.1 (the "License"); you may not use this file -# except in compliance with the License. You may obtain a copy of -# the License at http://www.mozilla.org/MPL/ -# -# Software distributed under the License is distributed on an "AS -# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or -# implied. See the License for the specific language governing -# rights and limitations under the License. -# -# The Initial Developer of the Original Code is Mozilla Foundation -# Portions created by the Initial Developer are Copyright (C) 2011 the -# Initial Developer. All Rights Reserved. -# -#=============================================================================== -# -# FILE: fix_comment_text.pl -# -# USAGE: ./fix_comment_text.pl <comment_id> -# -# DESCRIPTION: Updates a comment in Bugzilla with the text after __DATA__ -# -# OPTIONS: <comment_id> - The comment id from longdescs with the comment -# to be replaced. -# REQUIREMENTS: --- -# BUGS: --- -# NOTES: --- -# AUTHOR: David Lawrence (:dkl), dkl@mozilla.com -# COMPANY: Mozilla Foundation -# VERSION: 1.0 -# CREATED: 06/20/2011 03:40:22 PM -# REVISION: --- -#=============================================================================== - -use strict; -use warnings; - -use lib "."; - -use Bugzilla; -use Bugzilla::Util qw(detaint_natural); - -my $comment_id = shift; - -if (!detaint_natural($comment_id)) { - print "Error: invalid comment id or comment id not provided.\n" . - "Usage: ./fix_comment_text.pl <comment_id>\n"; - exit(1); -} - -my $dbh = Bugzilla->dbh; - -my $comment = join("", <DATA>); - -if ($comment =~ /ENTER NEW COMMENT TEXT HERE/) { - print "Please enter the new comment text in the script " . - "after the __DATA__ marker.\n"; - exit(1); -} - -$dbh->bz_start_transaction; - -Bugzilla->dbh->do( - "UPDATE longdescs SET thetext = ? WHERE comment_id = ?", - undef, $comment, $comment_id); - -$dbh->bz_commit_transaction; - -exit(0); - -__DATA__ -ENTER NEW COMMENT TEXT HERE BELOW THE __DATA__ MARKER! |