+#!/usr/bin/perl
+use strict;
+use warnings;
+
+=pod
+
+=head1 NAME importComments.pl
+
+This will import the comments from Bugzilla and update the corresponding JIRA
+Issues.
+
+=head1 VERSION
+
+=over
+
+=item Author
+
+Andrew DeFaria <Andrew@ClearSCM.com>
+
+=item Revision
+
+$Revision: #1 $
+
+=item Created
+
+Thu Mar 20 10:11:53 PDT 2014
+
+=item Modified
+
+$Date: 2014/05/23 $
+
+=back
+
+=head1 SYNOPSIS
+
+ $ importComments.pl [-bugzillaserver <bugshost>] [-login <login email>]
+ [-jiraserver <server>]
+ [-username <username>] [-password <password>]
+ [-bugids bugid,bugid,... | -file <filename>]
+ [-[no]exec]
+ [-verbose] [-help] [-usage]
+
+ Where:
+
+ -v|erbose: Display progress output
+ -he|lp: Display full help
+ -usa|ge: Display usage
+ -[no]e|xec: Whether or not to update JIRA. -noexec says only
+ tell me what you would have updated.
+ -use|rname: Username to log into JIRA with (Default: jira-admin)
+ -p|assword: Password to log into JIRA with (Default: jira-admin's
+ password)
+ -bugzillaserver: Machine where Bugzilla lives (Default: bugs-dev)
+ -jiraserver: Machine where Jira lives (Default: jira-dev)
+ -bugi|ds: Comma separated list of BugIDs to process
+ -f|ile: File of BugIDs, one per line
+
+=head1 DESCRIPTION
+
+This will import the comments from Bugzilla and update the corresponding JIRA
+Issues.
+
+=cut
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+
+$| = 1;
+
+use DBI;
+use Display;
+use Logger;
+use TimeUtils;
+use Utils;
+use JIRAUtils;
+use BugzillaUtils;
+
+use Getopt::Long;
+use Pod::Usage;
+
+our %opts = (
+ exec => 0,
+ bugzillaserver => $ENV{BUGZILLASERVER} || 'bugs-dev',
+ jiraserver => $ENV{JIRASERVER} || 'jira-dev:8081',
+ username => $ENV{USERNAME},
+ password => $ENV{PASSWORD},
+ usage => sub { pod2usage },
+ help => sub { pod2usage (-verbose => 2)},
+ verbose => sub { set_verbose },
+ quiet => 0,
+);
+
+our ($log, %total);
+
+sub sanitize ($) {
+ my ($str) = @_;
+
+ my $p4web = 'http://p4web.audience.local:8080/@md=d&cd=//&c=vLW@/';
+ my $bugzilla = 'http://bugs.audience.com/show_bug.cgi?id=';
+
+ # 0x93 (147) and 0x94 (148) are "smart" quotes
+ $str =~ s/[\x93\x94]/"/gm;
+ # 0x91 (145) and 0x92 (146) are "smart" singlequotes
+ $str =~ s/[\x91\x92]/'/gm;
+ # 0x96 (150) and 0x97 (151) are emdashes
+ $str =~ s/[\x96\x97]/--/gm;
+ # 0x85 (133) is an ellipsis
+ $str =~ s/\x85/.../gm;
+ # 0x95 • replacement for unordered list
+ $str =~ s/\x95/*/gm;
+
+ # Make P4Web links for "CL (\d{3,6}+)"
+ $str =~ s/CL\s*(\d{3,6}+)/CL \[$1|${p4web}$1\?ac=10\]/igm;
+
+ # Make Bugzilla links for "Bug ID (\d{1,5}+)"
+ $str =~ s/Bug\s*ID\s*(\d{1,5}+)/Bug \[$1|${bugzilla}$1\]/igm;
+
+ # Make Bugzilla links for "Bug # (\d{1,5}+)"
+ $str =~ s/Bug\s*#\s*(\d{1,5}+)/Bug \[$1|${bugzilla}$1\]/igm;
+
+ # Make Bugzilla links for "Bug (\d{1,5}+)"
+ $str =~ s/Bug\s*(\d{1,5}+)/Bug \[$1|${bugzilla}$1\]/igm;
+
+ # Convert bug URLs to be more proper
+ $str =~ s/https\:\/\/bugs\.audience\.com\/show_bug\.cgi\?id=(\d{1,5}+)/Bug \[$1|${bugzilla}$1\]/igm;
+
+ return $str;
+} # sanitize
+
+sub addComments ($$) {
+ my ($jiraIssue, $bugid) = @_;
+
+ my @comments = @{getBugComments ($bugid)};
+
+ # Note: In Bugzilla the first comment is considered the description.
+ my $description = shift @comments;
+
+ my $result = addDescription $jiraIssue, sanitize $description;
+
+ $total{'Descriptions added'}++;
+
+ return $result if $result =~ /^Unable to add comment/;
+
+ # Process the remaining comments
+ for (@comments) {
+ $result = addJIRAComment $jiraIssue, sanitize $_;
+
+ if ($result =~ /Comment added/) {
+ $total{'Comments imported'}++;
+ } else {
+ return $result;
+ } # if
+ } # for
+
+ $result = '' unless $result;
+
+ return $result;
+} # addComments
+
+sub main () {
+ my $startTime = time;
+
+ GetOptions (
+ \%opts,
+ 'verbose',
+ 'usage',
+ 'help',
+ 'exec!',
+ 'quiet',
+ 'username=s',
+ 'password=s',
+ 'bugids=s@',
+ 'file=s',
+ 'jiraserver=s',
+ 'bugzillaserver=s',
+ 'linkbugzilla',
+ 'relinkbugzilla'
+ ) or pod2usage;
+
+ $log = Logger->new;
+
+ if ($opts{file}) {
+ open my $file, '<', $opts{file}
+ or $log->err ("Unable to open $opts{file} - $!", 1);
+
+ $opts{bugids} = [<$file>];
+
+ chomp @{$opts{bugids}};
+ } else {
+ my @bugids;
+
+ push @bugids, (split /,/, join (',', $_)) for (@{$opts{bugids}});
+
+ $opts{bugids} = [@bugids];
+ } # if
+
+ pod2usage 'Must specify -bugids <bugid>[,<bugid>,...] or -file <filename>'
+ unless $opts{bugids};
+
+ openBugzilla $opts{bugzillaserver}
+ or $log->err ("Unable to connect to $opts{bugzillaserver}", 1);
+
+ Connect2JIRA ($opts{username}, $opts{password}, $opts{jiraserver})
+ or $log->err ("Unable to connect to $opts{jiraserver}", 1);
+
+ $log->msg ("Processing comments");
+
+ for (@{$opts{bugids}}) {
+ my $jiraIssue = findIssue $_;
+
+ if ($jiraIssue =~ /^[A-Z]{1,5}-\d+$/) {
+ my $result = addComments $jiraIssue, $_;
+
+ if ($result =~ /^Unable/) {
+ $total{'Comment failures'}++;
+
+ $log->err ("Unable to add comments for $jiraIssue ($_)\n$result");
+ } elsif ($result =~ /^Comment added/) {
+ $log->msg ("Added comments for $jiraIssue ($_)");
+ } elsif ($result =~ /^Would have linked/) {
+ $total{'Comments would be added'}++;
+ } # if
+ } else {
+ $total{'Missing JIRA Issues'}++;
+
+ $log->err ("Unable to find JIRA Issue for Bug $_");
+ } # if
+ } # for
+
+ display_duration $startTime, $log;
+
+ Stats (\%total, $log) unless $opts{quiet};
+
+ return 0;
+} # main
+
+exit main;