" ; $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. ++
+`; +}