" ; $p_e = "
"; - $br = ""; $pr_e = ""; - $dl = "
) { - chop; - local ($cat, $desc, $responsible, $notify) = split(/:/); - push(@categories, $cat); - } -} - -sub read_gnats { - local($report) = @_[0]; - - open(Q, "query-pr $report 2>/dev/null |") || die "Cannot query the PR's\n"; - - while() { - chop; - if(/^>Number:/) { - $number = &getline($_); - - } elsif (/Arrival-Date:/) { - $date = &getline($_); - # strip timezone if any (between HH:MM:SS and YYYY at end of line): - $date =~ s/(\d\d:\d\d:\d\d)\D+(\d{4})$/\1 \2/; - ($dow,$mon,$day,$time,$year,$xtra) = split(/[ \t]+/, $date); - $day = "0$day" if $day =~ /^[0-9]$/; - $date = "$year/$mons{$mon}/$day"; - - } elsif (/>Last-Modified:/) { - $lastmod = &getline($_); - if ($lastmod =~ /^[ ]*$/) { - $lastmod = $date; - } else { - # strip timezone if any (between HH:MM:SS and YYYY at end of line): - $lastmod =~ s/(\d\d:\d\d:\d\d)\D+(\d{4})$/\1 \2/; - ($dow,$mon,$day,$time,$year,$xtra) = split(/[ \t]+/, $lastmod); - $day = "0$day" if $day =~ /^[0-9]$/; - $lastmod = "$year/$mons{$mon}/$day"; - } - - } elsif (/>Category:/) { - $cat = &getline($_); - - } elsif (/>Severity:/) { - $sev = &getline($_); - - } elsif (/>Responsible:/) { - $resp = &getline($_); - $resp =~ s/@.*//; - $resp =~ tr/A-Z/a-z/; - $resp = "" if ($resp =~ /$mail_unass/); - $resp =~ s/^$mail_prefix//; - - } elsif (/>State:/) { - $status = &getline($_); - $status =~ s/(.).*/\1/; - - } elsif (/>Synopsis:/) { - $syn = &getline($_); - $syn =~ s/[\t]+/ /g; - - } elsif (/^$/) { - $_ = sprintf("%s/%s", $cat, $number); - - $status{$_} = $status; - $date{$_} = $date; - $resp{$_} = $resp; - $syn{$_} = $syn; - $sev{$_} = $sev; - $lastmod{$_} = $lastmod; - push(@prs,$_); - } - } - close(Q); -} - -sub gnats_summary { - local($report) = @_[0]; - local($htmlmode) = @_[1]; - local($counter) = 0; - local($iteration)= 0; - - foreach (@prs) { - $state = $status{$_}; - $date = $date{$_}; - $lastmod = $lastmod{$_}; - $resp = $resp{$_}; - $syn = $syn{$_}; - $severity = $sev{$_}; - ($cat, $number) = m|^([^/]+)/(\d+)$|; - - next if (($report ne '') && (eval($report) == 0)); - next if ($cat eq 'ports'); - - print "${pr}\nS Modified Tracker Resp. Description${hr}" - if ($iteration++ == 0); - - $syn = &html_fixline($syn) if $htmlmode; - - if ($htmlmode) { - $title = '' . - $_ . ''; - } else { - $title = $_; - } - - print "$state [$lastmod] $title" . - (' ' x (11 - length($_))) . - $resp . (' ' x (9 - length($resp))) . - ($htmlmode ? $syn : substr($syn,0,41)) - . "\n"; - - ++$counter; - } - - print "${pr_e}\n" if $iteration; - - $counter; -} - -sub displayform { -print qq` -Please select the items you wish to search for. Multiple items are AND'ed -together. --
-`; -}