+++ /dev/null
-=pod
-
-=head1 NAME $RCSfile: BugzillaUtils.pm,v $
-
-Some shared functions dealing with Bugzilla. Note this uses DBI to directly
-access Bugzilla's database. This requires that your userid was granted access.
-For this I setup adefaria with pretty much read only access.
-
-=head1 VERSION
-
-=over
-
-=item Author
-
-Andrew DeFaria <Andrew@ClearSCM.com>
-
-=item Revision
-
-$Revision: 1.0 $
-
-=item Created
-
-Fri Mar 12 10:17:44 PST 2004
-
-=item Modified
-
-$Date: 2013/05/30 15:48:06 $
-
-=head1 ROUTINES
-
-The following routines are exported:
-
-=cut
-
-package BugzillaUtils;
-
-use strict;
-use warnings;
-
-use base 'Exporter';
-
-use FindBin;
-use Display;
-use Carp;
-use DBI;
-
-use lib 'lib';
-
-use JIRAUtils;
-
-our $bugzilla;
-
-our @EXPORT = qw (
- openBugzilla
- getRelationships
- getDependencies
- getBlockers
- getDuplicates
- getRelated
- getBug
- getBugComments
- getWatchers
-);
-
-sub _checkDBError ($$) {
- my ($msg, $statement) = @_;
-
- my $dberr = $bugzilla->err;
- my $dberrmsg = $bugzilla->errstr;
-
- $dberr ||= 0;
- $dberrmsg ||= 'Success';
-
- my $message = '';
-
- if ($dberr) {
- my $function = (caller (1)) [3];
-
- $message = "$function: $msg\nError #$dberr: $dberrmsg\n"
- . "SQL Statement: $statement";
- } # if
-
- $main::log->err ($message, $dberr) if $dberr;
-
- return;
-} # _checkDBError
-
-sub openBugzilla (;$$$$) {
- my ($dbhost, $dbname, $dbuser, $dbpass) = @_;
-
- $dbhost //= 'jira-dev';
- $dbname //= 'bugzilla';
- $dbuser //= 'adefaria';
- $dbpass //= 'reader';
-
- $main::log->msg ("Connecting to Bugzilla ($dbuser\@$dbhost)");
-
- $bugzilla = DBI->connect (
- "DBI:mysql:$dbname:$dbhost",
- $dbuser,
- $dbpass, {
- PrintError => 0,
- RaiseError => 1,
- },
- );
-
- _checkDBError 'Unable to execute statement', 'Connect';
-
- return $bugzilla;
-} # openBugzilla
-
-sub getBug ($;@) {
- my ($bugid, @fields) = @_;
-
- push @fields, 'short_desc' unless @fields;
-
- my $statement = 'select ' . join (',', @fields) .
- " from bugs where bug_id = $bugid";
-
- my $sth = $bugzilla->prepare ($statement);
-
- _checkDBError 'Unable to prepare statement', $statement;
-
- _checkDBError 'Unable to execute statement', $statement;
-
- $sth->execute;
-
- return $sth->fetchrow_hashref;
-} # getBug
-
-sub getBugComments ($) {
- my ($bugid) = @_;
-
- my $statement = <<"END";
-select
- bug_id,
- bug_when,
- substring_index(login_name,'\@',1) as username,
- thetext
-from
- longdescs,
- profiles
-where
- who = userid and
- bug_id = $bugid
-END
-
- my $sth = $bugzilla->prepare ($statement);
-
- _checkDBError 'Unable to prepare statement', $statement;
-
- $sth->execute;
-
- _checkDBError 'Unable to execute statement', $statement;
-
- my @comments;
-
- while (my $comment = $sth->fetchrow_hashref) {
- my $commentText = <<"END";
-The following comment was entered by [~$comment->{username}] on $comment->{bug_when}:
-
-$comment->{thetext}
-END
-
- push @comments, $commentText;
- } # while
-
- return \@comments;
-} # getBugComments
-
-sub getRelationships ($$$$@) {
- my ($table, $returnField, $testField, $relationshipType, @bugs) = @_;
-
- $main::log->msg ("Getting $relationshipType");
-
- my $statement = "select $returnField from $table where $table.$testField = ?";
-
- my $sth = $bugzilla->prepare ($statement);
-
- _checkDBError 'Unable to prepare statement', $statement;
-
- my %relationships;
-
- my %bugmap;
-
- map {$bugmap{$_} = 1} @bugs unless %bugmap;
-
- for my $bugid (@bugs) {
- $sth->execute ($bugid);
-
- _checkDBError 'Unable to exit statement', $statement;
-
- my $result = JIRAUtils::findIssue ($bugid, %bugmap);
-
- if ($result =~ /^Unable/) {
- $main::log->warn ($result);
-
- $main::total{'Missing JIRA Issues'}++;
-
- undef $result;
- } elsif ($result =~ /^Future/) {
- $main::total{'Future JIRA Issues'}++;
-
- undef $result;
- } # if
-
- my $jiraIssue = $result;
- my $key = $jiraIssue || $bugid;
-
- my @relationships;
- my $relations = $sth->fetchall_arrayref;
- my @relations;
-
- map {push @relations, $_->[0]} @$relations;
-
- for my $relation (@relations) {
- $jiraIssue = JIRAUtils::findIssue ($relation);
-
- if ($jiraIssue =~ /^Unable/ || $jiraIssue =~ /^Future/) {
- $main::log->warn ($jiraIssue);
-
- $main::total{'Missing JIRA Issues'}++ if $jiraIssue =~ /^Unable/;
- $main::total{'Future JIRA Issues'}++ if $jiraIssue =~ /^Future/;
-
- push @relationships, $relation;
- } else {
- push @relationships, $jiraIssue;
- } # if
- } # for
-
- push @{$relationships{$key}}, @relationships if @relationships;
- } # for
-
- $main::total{$relationshipType} = keys %relationships;
-
- return \%relationships;
-} # getRelationships
-
-sub getDependencies (@) {
- my (@bugs) = @_;
-
- return getRelationships (
- 'dependencies', # table
- 'dependson', # returned field
- 'blocked', # test field
- 'Depends on', # relationship
- @bugs
- );
-} # getDependencies
-
-sub getBlockers (@) {
- my (@bugs) = @_;
-
- return getRelationships (
- 'dependencies',
- 'blocked',
- 'dependson',
- 'Blocks',
- @bugs
- );
-} # getBlockers
-
-sub getDuplicates (@) {
- my (@bugs) = @_;
-
- return getRelationships (
- 'duplicates',
- 'dupe',
- 'dupe_of',
- 'Duplicates',
- @bugs
- );
-} # getDuplicates
-
-sub getRelated (@) {
- my (@bugs) = @_;
-
- return getRelationships (
- 'bug_see_also',
- 'value',
- 'bug_id',
- 'Relates',
- @bugs
- );
-} # getRelated
-
-sub getWatchers ($) {
- my ($bugid) = @_;
-
- my $statement = <<"END";
-select
- profiles.login_name
-from
- cc,
- profiles
-where
- cc.who = profiles.userid and
- bug_id = ?
-END
-
- my $sth = $bugzilla->prepare ($statement);
-
- _checkDBError 'Unable to prepare statement', $statement;
-
- $sth->execute ($bugid);
-
- _checkDBError 'Unable to execute statement', $statement;
-
- my @rows = @{$sth->fetchall_arrayref};
-
- my %watchers;
-
- for (@rows) {
- if ($$_[0] =~ /(.*)\@/) {
- $watchers{$1} = 1;
- } # if
-
- $main::total{'Watchers Processed'}++;
- } # for
-
- return %watchers;
-} # getWatchers
\ No newline at end of file
projects / clearscm.git / blobdiff