blob: f17bbc3d4112d99fb4e38d9b36f32b33ae62d477 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
#!/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!
|
