cgi/common.pl

   1 #!/usr/bin/perl -w
   2
   3 use DB_File;
   4 use Fcntl qw/O_RDONLY/;
   5
   6 my $common_archive = 0;
   7 my $common_repeatmerged = 1;
   8 my %common_include = ();
   9 my %common_exclude = ();
  10 my $common_raw_sort = 0;
  11 my $common_bug_reverse = 0;
  12 my $common_pending_reverse = 0;
  13 my $common_severity_reverse = 0;
  14
  15 my @common_pending_include = ();
  16 my @common_pending_exclude = ();
  17 my @common_severity_include = ();
  18 my @common_severity_exclude = ();
  19
  20 my $debug = 0;
  21
  22 sub set_option {
  23     my ($opt, $val) = @_;
  24     if ($opt eq "archive") { $common_archive = $val; }
  25     if ($opt eq "repeatmerged") { $common_repeatmerged = $val; }
  26     if ($opt eq "exclude") { %common_exclude = %{$val}; }
  27     if ($opt eq "include") { %common_include = %{$val}; }
  28     if ($opt eq "raw") { $common_raw_sort = $val; }
  29     if ($opt eq "bug-rev") { $common_bug_reverse = $val; }
  30     if ($opt eq "pend-rev") { $common_pending_reverse = $val; }
  31     if ($opt eq "sev-rev") { $common_severity_reverse = $val; }
  32     if ($opt eq "pend-exc") {
  33         my @vals;
  34         @vals = ( $val ) if (ref($val) eq "" && $val );
  35         @vals = ( $$val ) if (ref($val) eq "SCALAR" && $$val );
  36         @vals = @{$val} if (ref($val) eq "ARRAY" );
  37         @common_pending_exclude = @vals if (@vals);
  38     }
  39     if ($opt eq "pend-inc") {
  40         my @vals;
  41         @vals = ( $val, ) if (ref($val) eq "" && $val );
  42         @vals = ( $$val, ) if (ref($val) eq "SCALAR" && $$val );
  43         @vals = @{$val} if (ref($val) eq "ARRAY" );
  44         @common_pending_include = @vals if (@vals);
  45     }
  46     if ($opt eq "sev-exc") {
  47         my @vals;
  48         @vals = ( $val ) if (ref($val) eq "" && $val );
  49         @vals = ( $$val ) if (ref($val) eq "SCALAR" && $$val );
  50         @vals = @{$val} if (ref($val) eq "ARRAY" );
  51         @common_severity_exclude = @vals if (@vals);
  52     }
  53     if ($opt eq "sev-inc") {
  54         my @vals;
  55         @vals = ( $val ) if (ref($val) eq "" && $val );
  56         @vals = ( $$val ) if (ref($val) eq "SCALAR" && $$val );
  57         @vals = @{$val} if (ref($val) eq "ARRAY" );
  58         @common_severity_include = @vals if (@vals);
  59     }
  60 }
  61
  62 sub readparse {
  63     my ($in, $key, $val, %ret);
  64     if (defined $ENV{"QUERY_STRING"} && $ENV{"QUERY_STRING"} ne "") {
  65         $in=$ENV{QUERY_STRING};
  66     } elsif(defined $ENV{"REQUEST_METHOD"}
  67         && $ENV{"REQUEST_METHOD"} eq "POST")
  68     {
  69         read(STDIN,$in,$ENV{CONTENT_LENGTH});
  70     } else {
  71         return;
  72     }
  73     foreach (split(/[&;]/,$in)) {
  74         s/\+/ /g;
  75         ($key, $val) = split(/=/,$_,2);
  76         $key=~s/%(..)/pack("c",hex($1))/ge;
  77         $val=~s/%(..)/pack("c",hex($1))/ge;
  78         if ( exists $ret{$key} ) {
  79             if ( !exists $ret{"&$key"} ) {
  80                 $ret{"&$key"} = [ $ret{$key} ];
  81             }
  82             push @{$ret{"&$key"}},$val;
  83         }
  84         $ret{$key}=$val;
  85     }
  86 $debug = 1 if (defined $ret{"debug"} && $ret{"debug"} eq "aj");
  87     return %ret;
  88 }
  89
  90 sub quit {
  91     my $msg = shift;
  92     print "Content-Type: text/html\n\n";
  93     print "<HTML><HEAD><TITLE>Error</TITLE></HEAD><BODY>\n";
  94     print "An error occurred. Dammit.\n";
  95     print "Error was: $msg.\n";
  96     print "</BODY></HTML>\n";
  97     exit 0;
  98 }
  99
 100 #sub abort {
 101 #    my $msg = shift;
 102 #    my $Archive = $common_archive ? "archive" : "";
 103 #    print header . start_html("Sorry");
 104 #    print "Sorry bug #$msg doesn't seem to be in the $Archive database.\n";
 105 #    print end_html;
 106 #    exit 0;
 107 #}
 108
 109 # Split a package string from the status file into a list of package names.
 110 sub splitpackages {
 111     my $pkgs = shift;
 112     return unless defined $pkgs;
 113     return split /[ \t?,()]+/, $pkgs;
 114 }
 115
 116 # Generate a comma-separated list of HTML links to each package given in
 117 # $pkgs. $pkgs may be empty, in which case an empty string is returned, or
 118 # it may be a comma-separated list of package names.
 119 sub htmlpackagelinks {
 120     my $pkgs = shift;
 121     return unless defined $pkgs and $pkgs ne '';
 122     my $strong = shift;
 123     my @pkglist = splitpackages($pkgs);
 124
 125     my $openstrong  = $strong ? '<strong>' : '';
 126     my $closestrong = $strong ? '</strong>' : '';
 127
 128     return 'Package' . (@pkglist > 1 ? 's' : '') . ': ' .
 129            join(', ',
 130                 map {
 131                     '<a href="' . pkgurl($_) . '">' .
 132                     $openstrong . htmlsanit($_) . $closestrong . '</a>'
 133                 } @pkglist
 134            ) . ";\n";
 135 }
 136
 137 sub htmlindexentry {
 138     my $ref = shift;
 139     my %status = %{getbugstatus($ref)};
 140     return htmlindexentrystatus(%status) if (%status);
 141     return "";
 142 }
 143
 144 sub htmlindexentrystatus {
 145     my $s = shift;
 146     my %status = %{$s};
 147
 148     my $result = "";
 149
 150     if  ($status{severity} eq 'normal') {
 151         $showseverity = '';
 152     } elsif (grep($status{severity} eq $_, @debbugs::gStrongSeverities)) {
 153         $showseverity = "<strong>Severity: $status{severity}</strong>;\n";
 154     } else {
 155         $showseverity = "Severity: <em>$status{severity}</em>;\n";
 156     }
 157
 158     $result .= htmlpackagelinks($status{"package"}, 1);
 159     $result .= $showseverity;
 160     $result .= "Reported by: <a href=\"" . submitterurl($status{originator})
 161                . "\">" . htmlsanit($status{originator}) . "</a>";
 162     $result .= ";\nTags: <strong>"
 163                  . htmlsanit(join(", ", sort(split(/\s+/, $status{tags}))))
 164                  . "</strong>"
 165                        if (length($status{tags}));
 166
 167     my @merged= split(/ /,$status{mergedwith});
 168     my $mseparator= ";\nmerged with ";
 169     for my $m (@merged) {
 170         $result .= $mseparator."<A href=\"" . bugurl($m) . "\">#$m</A>";
 171         $mseparator= ", ";
 172     }
 173
 174     if (length($status{done})) {
 175         $result .= ";\n<strong>Done:</strong> " . htmlsanit($status{done});
 176     } else {
 177         if (length($status{forwarded})) {
 178             $result .= ";\n<strong>Forwarded</strong> to "
 179                        . htmlsanit($status{forwarded});
 180         }
 181         my $daysold = int((time - $status{date}) / 86400);   # seconds to days
 182         if ($daysold >= 7) {
 183             my $font = "";
 184             my $efont = "";
 185             $font = "em" if ($daysold > 30);
 186             $font = "strong" if ($daysold > 60);
 187             $efont = "</$font>" if ($font);
 188             $font = "<$font>" if ($font);
 189
 190             my $yearsold = int($daysold / 364);
 191             $daysold = $daysold - $yearsold * 364;
 192
 193             $result .= ";\n $font";
 194             my @age;
 195             push @age, "1 year" if ($yearsold == 1);
 196             push @age, "$yearsold years" if ($yearsold > 1);
 197             push @age, "1 day" if ($daysold == 1);
 198             push @age, "$daysold days" if ($daysold > 1);
 199             $result .= join(" and ", @age);
 200             $result .= " old$efont";
 201         }
 202     }
 203
 204     $result .= ".";
 205
 206     return $result;
 207 }
 208
 209 sub submitterurl {
 210     my $ref = shift || "";
 211     my $params = "submitter=" . emailfromrfc822($ref);
 212     $params .= "&archive=yes" if ($common_archive);
 213     $params .= "&repeatmerged=no" unless ($common_repeatmerged);
 214     return urlsanit($debbugs::gCGIDomain . "pkgreport.cgi" . "?" . $params);
 215 }
 216
 217 sub mainturl {
 218     my $ref = shift || "";
 219     my $params = "maint=" . emailfromrfc822($ref);
 220     $params .= "&archive=yes" if ($common_archive);
 221     $params .= "&repeatmerged=no" unless ($common_repeatmerged);
 222     return urlsanit($debbugs::gCGIDomain . "pkgreport.cgi" . "?" . $params);
 223 }
 224
 225 sub pkgurl {
 226     my $ref = shift;
 227     my $params = "pkg=$ref";
 228     $params .= "&archive=yes" if ($common_archive);
 229     $params .= "&repeatmerged=no" unless ($common_repeatmerged);
 230
 231     return urlsanit($debbugs::gCGIDomain . "pkgreport.cgi" . "?" . "$params");
 232 }
 233
 234 sub srcurl {
 235     my $ref = shift;
 236     my $params = "src=$ref";
 237     $params .= "&archive=yes" if ($common_archive);
 238     $params .= "&repeatmerged=no" unless ($common_repeatmerged);
 239     return urlsanit($debbugs::gCGIDomain . "pkgreport.cgi" . "?" . "$params");
 240 }
 241
 242 sub urlsanit {
 243     my $url = shift;
 244     $url =~ s/%/%25/g;
 245     $url =~ s/\+/%2b/g;
 246     my %saniarray = ('<','lt', '>','gt', '&','amp', '"','quot');
 247     $url =~ s/([<>&"])/\&$saniarray{$1};/g;
 248     return $url;
 249 }
 250
 251 sub htmlsanit {
 252     my %saniarray = ('<','lt', '>','gt', '&','amp', '"','quot');
 253     my $in = shift || "";
 254     $in =~ s/([<>&"])/\&$saniarray{$1};/g;
 255     return $in;
 256 }
 257
 258 sub bugurl {
 259     my $ref = shift;
 260     my $params = "bug=$ref";
 261     foreach my $val (@_) {
 262         $params .= "\&msg=$1" if ($val =~ /^msg=([0-9]+)/);
 263         $params .= "\&archive=yes" if (!$common_archive && $val =~ /^archive.*$/);
 264     }
 265     $params .= "&archive=yes" if ($common_archive);
 266     $params .= "&repeatmerged=no" unless ($common_repeatmerged);
 267
 268     return urlsanit($debbugs::gCGIDomain . "bugreport.cgi" . "?" . "$params");
 269 }
 270
 271 sub dlurl {
 272     my $ref = shift;
 273     my $params = "bug=$ref";
 274     my $filename = '';
 275     foreach my $val (@_) {
 276         $params .= "\&$1=$2" if ($val =~ /^(msg|att)=([0-9]+)/);
 277         $filename = $1 if ($val =~ /^filename=(.*)$/);
 278     }
 279     $params .= "&archive=yes" if ($common_archive);
 280
 281     return urlsanit($debbugs::gCGIDomain . "bugreport.cgi/$filename?$params");
 282 }
 283
 284 sub mboxurl {
 285     my $ref = shift;
 286     return urlsanit($debbugs::gCGIDomain . "bugreport.cgi" . "?" . "bug=$ref&mbox=yes");
 287 }
 288
 289 sub allbugs {
 290     my @bugs = ();
 291
 292     opendir(D, "$debbugs::gSpoolDir/db") or &quit("opendir db: $!");
 293     @bugs = sort {$a<=>$b} grep s/\.status$//,
 294                  (grep m/^[0-9]+\.status$/,
 295                  (readdir(D)));
 296     closedir(D);
 297
 298     return @bugs;
 299 }
 300
 301 sub htmlizebugs {
 302     $b = $_[0];
 303     my @bugs = @$b;
 304     my @rawsort;
 305
 306     my %section = ();
 307
 308     my %displayshowpending = ("pending", "outstanding",
 309                               "pending-fixed", "pending upload",
 310                               "fixed", "fixed in NMU",
 311                               "done", "resolved",
 312                               "forwarded", "forwarded to upstream software authors");
 313
 314     if (@bugs == 0) {
 315         return "<HR><H2>No reports found!</H2></HR>\n";
 316     }
 317
 318     if ( $common_bug_reverse ) {
 319         @bugs = sort {$b<=>$a} @bugs;
 320     } else {
 321         @bugs = sort {$a<=>$b} @bugs;
 322     }
 323     foreach my $bug (@bugs) {
 324         my %status = %{getbugstatus($bug)};
 325         next unless %status;
 326         my @merged = sort {$a<=>$b} ($bug, split(/ /, $status{mergedwith}));
 327         next unless ($common_repeatmerged || $bug == $merged[0]);
 328         if (%common_include) {
 329             my $okay = 0;
 330             foreach my $t (split /\s+/, $status{tags}) {
 331                 $okay = 1, last if (defined $common_include{$t});
 332             }
 333             if (defined $common_include{subj}) {
 334                 if (index($status{subject}, $common_include{subj}) > -1) {
 335                     $okay = 1;
 336                 }
 337             }
 338             next unless ($okay);
 339         }
 340         if (%common_exclude) {
 341             my $okay = 1;
 342             foreach my $t (split /\s+/, $status{tags}) {
 343                 $okay = 0, last if (defined $common_exclude{$t});
 344             }
 345             if (defined $common_exclude{subj}) {
 346                 if (index($status{subject}, $common_exclude{subj}) > -1) {
 347                     $okay = 0;
 348                 }
 349             }
 350             next unless ($okay);
 351         }
 352         next if @common_pending_include and
 353              not grep { $_ eq $status{pending} } @common_pending_include;
 354         next if @common_severity_include and
 355              not grep { $_ eq $status{severity} } @common_severity_include;
 356         next if grep { $_ eq $status{pending} } @common_pending_exclude;
 357         next if grep { $_ eq $status{severity} } @common_severity_exclude;
 358
 359         my $html = sprintf "<li><a href=\"%s\">#%d: %s</a>\n<br>",
 360             bugurl($bug), $bug, htmlsanit($status{subject});
 361         $html .= htmlindexentrystatus(\%status) . "\n";
 362         $section{$status{pending} . "_" . $status{severity}} .= $html;
 363         push @rawsort, $html if $common_raw_sort;
 364     }
 365
 366     my $result = "";
 367     my $anydone = 0;
 368     if ($common_raw_sort) {
 369         $result .= "<UL>\n" . join("", @rawsort ) . "</UL>\n";
 370     } else {
 371         my @pendingList = qw(pending forwarded pending-fixed fixed done);
 372         @pendingList = reverse @pendingList if $common_pending_reverse;
 373 #print STDERR join(",",@pendingList)."\n";
 374 #print STDERR join(",",@common_pending_include).":$#common_pending_include\n";
 375     foreach my $pending (@pendingList) {
 376         my @severityList = @debbugs::gSeverityList;
 377         @severityList = reverse @severityList if $common_severity_reverse;
 378 #print STDERR join(",",@severityList)."\n";
 379
 380 #        foreach my $severity(@debbugs::gSeverityList) {
 381         foreach my $severity(@severityList) {
 382             $severity = $debbugs::gDefaultSeverity if ($severity eq '');
 383             next unless defined $section{${pending} . "_" . ${severity}};
 384             $result .= "<HR><H2>$debbugs::gSeverityDisplay{$severity} - $displayshowpending{$pending}</H2>\n";
 385             #$result .= "(A list of <a href=\"http://${debbugs::gWebDomain}/db/si/$pending$severity\">all such bugs</a> is available).\n";
 386             #$result .= "(A list of all such bugs used to be available).\n";
 387             $result .= "<UL>\n";
 388             $result .= $section{$pending . "_" . $severity};
 389             $result .= "</UL>\n";
 390             $anydone = 1 if ($pending eq "done");
 391          }
 392     }
 393
 394     }
 395     $result .= $debbugs::gHTMLExpireNote if ($anydone);
 396     return $result;
 397 }
 398
 399 sub countbugs {
 400     my $bugfunc = shift;
 401     if ($common_archive) {
 402         open I, "<$debbugs::gSpoolDir/index.archive" or &quit("bugindex: $!");
 403     } else {
 404         open I, "<$debbugs::gSpoolDir/index.db" or &quit("bugindex: $!");
 405     }
 406
 407     my %count = ();
 408     while(<I>)
 409     {
 410         if (m/^(\S+)\s+(\d+)\s+(\d+)\s+(\S+)\s+\[\s*([^]]*)\s*\]\s+(\w+)\s+(.*)$/) {
 411             my $x = $bugfunc->(pkg => $1, bug => $2, status => $4,
 412                                submitter => $5, severity => $6, tags => $7);
 413             $count{$x}++;
 414         }
 415     }
 416     close I;
 417     return %count;
 418 }
 419
 420 sub getbugs {
 421     my $bugfunc = shift;
 422     my $opt = shift;
 423
 424     my @result = ();
 425
 426     if (!$common_archive && defined $opt &&
 427         -e "$debbugs::gSpoolDir/by-$opt.idx")
 428     {
 429         my %lookup;
 430 print STDERR "optimized\n" if ($debug);
 431         tie %lookup, DB_File => "$debbugs::gSpoolDir/by-$opt.idx", O_RDONLY
 432             or die "$0: can't open $debbugs::gSpoolDir/by-$opt.idx ($!)\n";
 433         while ($key = shift) {
 434             my $bugs = $lookup{$key};
 435             if (defined $bugs) {
 436                 push @result, (unpack 'N*', $bugs);
 437             }
 438         }
 439         untie %lookup;
 440 print STDERR "done optimized\n" if ($debug);
 441     } else {
 442         if ( $common_archive ) {
 443             open I, "<$debbugs::gSpoolDir/index.archive"
 444                 or &quit("bugindex: $!");
 445         } else {
 446             open I, "<$debbugs::gSpoolDir/index.db"
 447                 or &quit("bugindex: $!");
 448         }
 449         while(<I>) {
 450             if (m/^(\S+)\s+(\d+)\s+(\d+)\s+(\S+)\s+\[\s*([^]]*)\s*\]\s+(\w+)\s+(.*)$/) {
 451                 if ($bugfunc->(pkg => $1, bug => $2, status => $4,
 452                             submitter => $5, severity => $6, tags => $7))
 453                 {
 454                     push (@result, $2);
 455                 }
 456             }
 457         }
 458         close I;
 459     }
 460     @result = sort {$a <=> $b} @result;
 461     return \@result;
 462 }
 463
 464 sub emailfromrfc822 {
 465     my $email = shift;
 466     $email =~ s/\s*\(.*\)\s*//;
 467     $email = $1 if ($email =~ m/<(.*)>/);
 468     return $email;
 469 }
 470
 471 sub maintencoded {
 472     my $input = shift;
 473     my $encoded = '';
 474
 475     while ($input =~ m/\W/) {
 476         $encoded.=$`.sprintf("-%02x_",unpack("C",$&));
 477         $input= $';
 478     }
 479
 480     $encoded.= $input;
 481     $encoded =~ s/-2e_/\./g;
 482     $encoded =~ s/^([^,]+)-20_-3c_(.*)-40_(.*)-3e_/$1,$2,$3,/;
 483     $encoded =~ s/^(.*)-40_(.*)-20_-28_([^,]+)-29_$/,$1,$2,$3/;
 484     $encoded =~ s/-20_/_/g;
 485     $encoded =~ s/-([^_]+)_-/-$1/g;
 486     return $encoded;
 487 }
 488
 489 my $_maintainer;
 490 sub getmaintainers {
 491     return $_maintainer if $_maintainer;
 492     my %maintainer;
 493
 494     open(MM,"$gMaintainerFile") or &quit("open $gMaintainerFile: $!");
 495     while(<MM>) {
 496         next unless m/^(\S+)\s+(\S.*\S)\s*$/;
 497         ($a,$b)=($1,$2);
 498         $a =~ y/A-Z/a-z/;
 499         $maintainer{$a}= $b;
 500     }
 501     close(MM);
 502     open(MM,"$gMaintainerFileOverride") or &quit("open $gMaintainerFileOverride: $!");
 503     while(<MM>) {
 504         next unless m/^(\S+)\s+(\S.*\S)\s*$/;
 505         ($a,$b)=($1,$2);
 506         $a =~ y/A-Z/a-z/;
 507         $maintainer{$a}= $b;
 508     }
 509     close(MM);
 510     $_maintainer = \%maintainer;
 511     return $_maintainer;
 512 }
 513
 514 my $_pkgsrc;
 515 my $_pkgcomponent;
 516 sub getpkgsrc {
 517     return $_pkgsrc if $_pkgsrc;
 518     my %pkgsrc;
 519     my %pkgcomponent;
 520
 521     open(MM,"$gPackageSource") or &quit("open $gPackageSource: $!");
 522     while(<MM>) {
 523         next unless m/^(\S+)\s+(\S+)\s+(\S.*\S)\s*$/;
 524         ($a,$b,$c)=($1,$2,$3);
 525         $a =~ y/A-Z/a-z/;
 526         $pkgsrc{$a}= $c;
 527         $pkgcomponent{$a}= $b;
 528     }
 529     close(MM);
 530     $_pkgsrc = \%pkgsrc;
 531     $_pkgcomponent = \%pkgcomponent;
 532     return $_pkgsrc;
 533 }
 534
 535 sub getpkgcomponent {
 536     return $_pkgcomponent if $_pkgcomponent;
 537     getpkgsrc();
 538     return $_pkgcomponent;
 539 }
 540
 541 my $_pseudodesc;
 542 sub getpseudodesc {
 543     return $_pseudodesc if $_pseudodesc;
 544     my %pseudodesc;
 545
 546     open(PSEUDO, "< $gPseudoDescFile") or &quit("open $gPseudoDescFile: $!");
 547     while(<PSEUDO>) {
 548         next unless m/^(\S+)\s+(\S.*\S)\s*$/;
 549         $pseudodesc{lc $1} = $2;
 550     }
 551     close(PSEUDO);
 552     $_pseudodesc = \%pseudodesc;
 553     return $_pseudodesc;
 554 }
 555
 556 sub getbugdir {
 557     my ( $bugnum, $ext ) = @_;
 558     my $archdir = sprintf "%02d", $bugnum % 100;
 559     foreach ( ( "$gSpoolDir/db-h/$archdir", "$gSpoolDir/db", "$gSpoolDir/archive/$archdir", "/debian/home/joeyh/tmp/infomagic-95/$archdir" ) ) {
 560         return $_ if ( -r "$_/$bugnum.$ext" );
 561     }
 562     return undef;
 563 }
 564
 565 sub getbugstatus {
 566     my $bugnum = shift;
 567
 568     my %status;
 569
 570     my $dir = getbugdir( $bugnum, "status" );
 571     return {} if ( !$dir );
 572     open S, "< $dir/$bugnum.status";
 573     my @lines = qw(originator date subject msgid package tags done
 574                         forwarded mergedwith severity);
 575     while(<S>) {
 576         chomp;
 577         $status{shift @lines} = $_;
 578     }
 579     close(S);
 580     $status{shift @lines} = '' while(@lines);
 581
 582     $status{"package"} =~ s/\s*$//;
 583     $status{"package"} = 'unknown' if ($status{"package"} eq '');
 584     $status{"severity"} = 'normal' if ($status{"severity"} eq '');
 585
 586     $status{"pending"} = 'pending';
 587     $status{"pending"} = 'forwarded'        if (length($status{"forwarded"}));
 588     $status{"pending"} = 'pending-fixed'    if ($status{"tags"} =~ /\bpending\b/);
 589     $status{"pending"} = 'fixed'            if ($status{"tags"} =~ /\bfixed\b/);
 590     $status{"pending"} = 'done'             if (length($status{"done"}));
 591
 592     return \%status;
 593 }
 594
 595 sub getsrcpkgs {
 596     my $src = shift;
 597     return () if !$src;
 598     my %pkgsrc = %{getpkgsrc()};
 599     my @pkgs;
 600     foreach ( keys %pkgsrc ) {
 601         push @pkgs, $_ if $pkgsrc{$_} eq $src;
 602     }
 603     return @pkgs;
 604 }
 605
 606 sub buglog {
 607     my $bugnum = shift;
 608
 609     my $dir = getbugdir( $bugnum, "log" );
 610     return "" if ( !$dir );
 611     return "$dir/$bugnum.log";
 612 }
 613
 614 1;