#!/usr/bin/perl
@dirs = ('10.0', '9.2', '9.1', '9.0');
$| = 1;
open OUT, ">status.html";
print OUT qq|
kudla.org repository status
kudla.org urpmi repository status
| Package |
|;
for my $d (@dirs) {
print STDERR "\n$d";
my @l = `ls $d/i586/*.rpm`;
for my $f (@l) {
print STDERR ".";
chomp $f;
my $p = `rpm -qp --queryformat "%{NAME}" $f`;
$f =~ s|.*/||g;
$q{$d}->{$p} = $f;
$p{$p}++;
}
print OUT "$d | \n";
}
print OUT "
\n";
for my $p (sort keys %p) {
print OUT "| $p | \n";
for my $d (@dirs) {
print OUT "$q{$d}->{$p} | \n";
}
print OUT "
\n";
}
print OUT "
\n";
close OUT;
print STDERR "\n";