elsif ($ARGV[0] =~ m/^-lastrun\=([0-9.]+)$/) { $lastrun= $1; undef $stampfile; }
elsif ($ARGV[0] =~ m/^-full$/) { undef $lastrun; undef $stampfile; }
elsif ($ARGV[0] =~ m/^-stampfile\=(\S+)$/) { $stampfile= $1; }
elsif ($ARGV[0] =~ m/^-lastrun\=([0-9.]+)$/) { $lastrun= $1; undef $stampfile; }
elsif ($ARGV[0] =~ m/^-full$/) { undef $lastrun; undef $stampfile; }
elsif ($ARGV[0] =~ m/^-stampfile\=(\S+)$/) { $stampfile= $1; }
@dirs = grep(s#^#db-h/#,grep(/^\d+$/,readdir(D)));
closedir(D);
foreach my $dir (@dirs) {
@dirs = grep(s#^#db-h/#,grep(/^\d+$/,readdir(D)));
closedir(D);
foreach my $dir (@dirs) {
for $pending (qw(pending done forwarded))
{ for $severity (@showseverities)
{ eval "\$index${pending}${severity}= \$iiindex${pending}${severity}= ''; 1;"
for $pending (qw(pending done forwarded))
{ for $severity (@showseverities)
{ eval "\$index${pending}${severity}= \$iiindex${pending}${severity}= ''; 1;"
$indexadd .= "<!--/iid-->" if defined($iiref);
$indexadd .= "\n";
$estr= "\$index$indexpart = \$indexadd.\$index$indexpart; 1;";
$indexadd .= "<!--/iid-->" if defined($iiref);
$indexadd .= "\n";
$estr= "\$index$indexpart = \$indexadd.\$index$indexpart; 1;";
#print STDERR ">$estr|$indexadd<\n";
$indexadd= "<!--ii $iiref-->\n" if defined($iiref);
eval("\$iiindex$indexpart = \$indexadd.\$iiindex$indexpart; 1;") ||
#print STDERR ">$estr|$indexadd<\n";
$indexadd= "<!--ii $iiref-->\n" if defined($iiref);
eval("\$iiindex$indexpart = \$indexadd.\$iiindex$indexpart; 1;") ||
if (defined($tmaint))
{ $countpermaint{$tmaint} += length($data->{done}) ? 0 : length($data->{forwarded}) ? 0 : 1;
eval("\$permaint${indexpart}{\$tmaint} .= \$indexadd; 1;") ||
if (defined($tmaint))
{ $countpermaint{$tmaint} += length($data->{done}) ? 0 : length($data->{forwarded}) ? 0 : 1;
eval("\$permaint${indexpart}{\$tmaint} .= \$indexadd; 1;") ||
}
if (defined($tpack))
{ $countperpack{$tpack} += length($data->{done}) ? 0 : length($data->{forwarded}) ? 0 : 1;
eval("\$perpack${indexpart}{\$tpack} .= \$indexadd; 1;") ||
}
if (defined($tpack))
{ $countperpack{$tpack} += length($data->{done}) ? 0 : length($data->{forwarded}) ? 0 : 1;
eval("\$perpack${indexpart}{\$tpack} .= \$indexadd; 1;") ||
}
if ($preserveonly) { &preserve("$linkto.html"); &preserve("$linkto-b.html"); &unfilelock; next; }
my $hash = get_hashname($ref);
}
if ($preserveonly) { &preserve("$linkto.html"); &preserve("$linkto-b.html"); &unfilelock; next; }
my $hash = get_hashname($ref);
$normstate= 'html'; $this= '';
} elsif ($normstate eq 'incoming-recv') {
$pl= $_; $pl =~ s/\n+$//;
m/^Received: \(at (\S+)\) by (\S+)\;/ ||
$normstate= 'html'; $this= '';
} elsif ($normstate eq 'incoming-recv') {
$pl= $_; $pl =~ s/\n+$//;
m/^Received: \(at (\S+)\) by (\S+)\;/ ||
#print STDERR ">$$value<\n";
next unless length($$value);
$text.= "<hr>\n<h2>".&heading($pending,$severity).":</h2>\n".
#print STDERR ">$$value<\n";
next unless length($$value);
$text.= "<hr>\n<h2>".&heading($pending,$severity).":</h2>\n".
for $pending (qw(pending forwarded done)) {
for $severity (@showseverities) {
eval "\$value= \\\$iiindex${pending}${severity}; 1;"
for $pending (qw(pending forwarded done)) {
for $severity (@showseverities) {
eval "\$value= \\\$iiindex${pending}${severity}; 1;"
$value= \$nobugs_html if !length($$value);
$headstring= &heading($pending,$severity);
&file("si/$pending$severity.html",'ref',
$value= \$nobugs_html if !length($$value);
$headstring= &heading($pending,$severity);
&file("si/$pending$severity.html",'ref',
$tail_html."</body></html>\n");
open(P,"$gPseudoDescFile") ||
$tail_html."</body></html>\n");
open(P,"$gPseudoDescFile") ||
$ppd=''; while(<P>) { s/\s*\n$//; $ppd.= &sani($_)."\n"; } close(P);
&file('ix/pseudopackages.html','non',
$gPseudoIndex.
$ppd=''; while(<P>) { s/\s*\n$//; $ppd.= &sani($_)."\n"; } close(P);
&file('ix/pseudopackages.html','non',
$gPseudoIndex.
if (!$c) {
open(Q,"|diff -e $cmppath -") or die "pipe/fork II for diff: $!\n";
print Q $file or die "write orig to diff: $!\n";
if (!$c) {
open(Q,"|diff -e $cmppath -") or die "pipe/fork II for diff: $!\n";
print Q $file or die "write orig to diff: $!\n";
}
$v= (split(/\n/,$difftxt));
print "diff $v $ii $name\n${difftxt}thatdiff $name\n"
}
$v= (split(/\n/,$difftxt));
print "diff $v $ii $name\n${difftxt}thatdiff $name\n"