#!/usr/bin/perl
$chkf=shift;
$dstf=shift;
if ($dstf ne '') {
$inf=`basename $dstf`; chop $inf;
$inf=~s/00check/00install/;
open OUT, ">$dstf";
}
$pkg='';
$pkg=$1 if ($inf=~/([A-Za-z0-9]+)-00/);
print OUT "\n$pkg - check result\n\n\n";
open IN, $chkf;
while () {
s/[\r\n]+//g;
s/$prefix//g;
s/\/00_pkg_src//;
s/ERROR/ERROR<\/b><\/font>/g;
s/WARNING/WARNING<\/b><\/font>/g;
s/^(\*.*OK)$/$1<\/font>/g;
s/\/Builds.*\/results//g;
s/([a-zA-Z0-9\/.]+00install.out)/$1<\/a>/g;
if ($dstf eq '') {
print "$_
\n";
} else {
print OUT "$_
\n";
}
}
close IN;
print OUT "\n