From 2ad96d350530bab1af34c8cf1ddd4d1bc02a3c70 Mon Sep 17 00:00:00 2001
From: Thadeu Lima de Souza Cascardo <cascardo@cascardo.eti.br>
Date: Thu, 23 Apr 2015 22:40:16 -0300
Subject: [PATCH] Get package size and print it

Parse binary packages sizes and sum them up.
---
 debsort.pl | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/debsort.pl b/debsort.pl
index 79004d5..561144d 100644
--- 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";
-- 
2.20.1