summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
9ba04d7)
Parse binary packages sizes and sum them up.
my %depends = ();
my %priority = ();
my %essential = ();
my %depends = ();
my %priority = ();
my %essential = ();
sub add_depends {
my ($package, $depends) = @_;
sub add_depends {
my ($package, $depends) = @_;
if (/^Essential: yes/) {
$essential{$package} = "yes";
}
if (/^Essential: yes/) {
$essential{$package} = "yes";
}
+ if (/^Size: (.*)/) {
+ $size{$package} = $1;
+ }
+ $size{$i} = 0 if (!defined($size{$i}));
+ print "$size{$i} $i\n";
+ $tsize += $size{$i};
+
+print "$tsize Total\n";