\n";
if ($vendimg{$vendorid})
{ print "\t\t". ucfirst $vendorid ." | \n"; }
else { print "\t\t". ucfirst $vendorid ." | \n"; }
print "\t\t";
printf "%5d", $vendorstats{$vendorid."_files"};
print " | \n";
unless ($vendorstats{$vendorid."_filesize"}) { $vendorstats{$vendorid."_filesize"} = '0'; }
print "\t\t";
print &format_size($vendorstats{$vendorid."_filesize"});
print " | \n";
unless ($vendorstats{$vendorid."_cachehits"}) { $vendorstats{$vendorid."_cachehits"} = '0'; }
print "\t\t";
print &format_size($vendorstats{$vendorid."_cachehits"});
print " | \n";
print "\t\t";
printf "%5d", $vendorstats{$vendorid."_1"};
print " | \n";
print "\t\t";
printf "%5d", $vendorstats{$vendorid."_3"};
print " | \n";
print "\t\t";
printf "%5d", $vendorstats{$vendorid."_2"};
print " | \n";
print "\t\t";
printf "%5d", $vendorstats{$vendorid."_0"};
print " | \n";
print "\t
\n";
$id += 1;
}
}
}
}
# -------------------------------------------------------------------
# Initialize Repositorydata
# -------------------------------------------------------------------
sub inittblreposdata {
@sources = <$repository/download/*>;
undef @repositoryfiles;
foreach (@sources) {
if (-d) {
@updatelist = <$_/*>;
$vendorid = substr($_,rindex($_,"/")+1);
foreach(@updatelist) {
next if(/\.info$/);
$updatefile = substr($_,rindex($_,"/")+1);
$updatefile .= ":download/$vendorid/$updatefile";
$updatefile = " ".$updatefile;
push(@repositoryfiles,$updatefile);
}
}
}
undef (@sources);
foreach (<$repository/*>) {
if (-d $_) {
unless (/^$repository\/download$/) { push(@sources,$_); }
}
}
foreach (@sources) {
@updatelist=<$_/*>;
$vendorid = substr($_,rindex($_,"/")+1);
foreach(@updatelist) {
$uuid = substr($_,rindex($_,"/")+1);
if (-e "$_/source.url") {
open (FILE,"$_/source.url");
$sourceurl=