108 lines
2.5 KiB
Perl
Executable File
108 lines
2.5 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
#
|
|
# Author: Petter Reinholdtsen <pere@hungry.com>
|
|
# Date: 2001-11-20
|
|
#
|
|
# Parse logfile from Debian debian-cd build, and report how much each package
|
|
# added to the CD size.
|
|
|
|
use warnings;
|
|
use strict;
|
|
use Text::Format; # From debian package libtext-format-perl
|
|
use Getopt::Std;
|
|
|
|
my %opts;
|
|
getopts('cm:t', \%opts);
|
|
|
|
my $logfile = ($ARGV[0] ||
|
|
"$ENV{TDIR}/$ENV{CODENAME}-$ENV{ARCH}/log.list2cds");
|
|
my $cdlimit = ($ARGV[1] || 1) + 1;
|
|
|
|
open(LOG, $logfile) || die "Unable to open $logfile";
|
|
|
|
|
|
my $text = Text::Format->new(leftMargin => 16,
|
|
rightMargin => 0,
|
|
firstIndent => 0);
|
|
my $markerstep = $opts{m} || 0;
|
|
my $pkg;
|
|
my @order;
|
|
my %cdsize;
|
|
my %size;
|
|
my %deps;
|
|
my $curcd = 1;
|
|
my $curcdsize;
|
|
my $cursize;
|
|
my @excluded;
|
|
my $nextmarker = $markerstep;
|
|
while (<LOG>) {
|
|
chomp;
|
|
if (/^\+ Trying to add (.+)\.\.\./) {
|
|
}
|
|
if (/^ (.+) has been refused because of user choice/) {
|
|
push @excluded, $1;
|
|
}
|
|
if (/^Can\'t add (.+) \.\.\. one of the package needed has been refused/) {
|
|
my $txt = "REJECT $1 (" . join(" ", @excluded). ")";
|
|
$size{$txt} = 0;
|
|
$cdsize{$txt} = $curcdsize;
|
|
push(@order, $txt);
|
|
@excluded = ();
|
|
}
|
|
if (/ \$cd_size = (\d+), \$size = (\d+)/) {
|
|
$curcdsize = $1;
|
|
$cursize = $2;
|
|
if ($markerstep) {
|
|
while ($curcdsize > $nextmarker) {
|
|
my $txt = sprintf("<=============== CD $curcd fill level passing %d KiB",
|
|
$nextmarker / 1024);
|
|
$size{$txt} = 0;
|
|
$cdsize{$txt} = $curcdsize;
|
|
push(@order, $txt);
|
|
$nextmarker += $markerstep;
|
|
}
|
|
}
|
|
}
|
|
if (/^ Adding (.+) to CD \d+/) {
|
|
my ($pkg, $deplist) = split(/\s+/, $1, 2);
|
|
$cdsize{$pkg} = $curcdsize;
|
|
$size{$pkg} = $cursize;
|
|
push @order, $pkg;
|
|
$deps{$pkg} = $deplist;
|
|
}
|
|
if (/Limit for CD (.+) is/) {
|
|
last if $cdlimit == $1;
|
|
$curcd = $1;
|
|
my $txt = "<=============== start of CD $1";
|
|
$size{$txt} = 0;
|
|
$cdsize{$txt} = 0;
|
|
push @order, $txt;
|
|
$nextmarker = $markerstep;
|
|
}
|
|
# Add delimiter
|
|
if (/Standard system already takes (.\d+)/) {
|
|
my $txt = "<=============== end of standard pkgs";
|
|
$size{$txt} = 0;
|
|
$cdsize{$txt} = $1;
|
|
push @order, $txt;
|
|
}
|
|
}
|
|
close(LOG);
|
|
|
|
if ($opts{'c'}) {
|
|
print " +size cdsize pkgname\n";
|
|
} else {
|
|
print " +size pkgname\n";
|
|
$text->leftMargin(8);
|
|
}
|
|
print "-----------------------\n";
|
|
|
|
for $pkg (@order) {
|
|
if ($opts{'c'}) {
|
|
printf "%7d %7d %s\n", $size{$pkg} / 1024, $cdsize{$pkg} / 1024, $pkg;
|
|
} else {
|
|
printf "%7d %s\n", $size{$pkg} / 1024, $pkg;
|
|
}
|
|
print $text->format($deps{$pkg}) if ($opts{'t'} && $deps{$pkg});
|
|
}
|