Get package size and print it

Parse binary packages sizes and sum them up.

diff --git a/debsort.pl b/debsort.pl
index 79004d5..561144d 100644 (file)
--- a/debsort.pl
+++ b/debsort.pl
@@ -25,6 +25,7 @@ my @packages = ();
 my %depends = ();
 my %priority = ();
 my %essential = ();
+my %size = ();
 
 sub add_depends {
        my ($package, $depends) = @_;
@@ -52,6 +53,9 @@ while (<PACKAGES>) {
        if (/^Essential: yes/) {
                $essential{$package} = "yes";
        }
+       if (/^Size: (.*)/) {
+               $size{$package} = $1;
+       }
 }
 
 close(PACKAGES);
@@ -134,6 +138,11 @@ while (@visit) {
        }
 }
 
+my $tsize = 0;
 for my $i (@pp) {
-       print "$i\n";
+       $size{$i} = 0 if (!defined($size{$i}));
+       print "$size{$i} $i\n";
+       $tsize += $size{$i};
 }
+
+print "$tsize Total\n";