IGNORE ABOVE: My perl script to show remaining package download size.

pkg-dlsize.pl (text/plain), 677 bytes, created by Alex Walker on 2002-07-25 10:54:46 UTC

#!/usr/bin/perl -w
use strict;
use Digest::MD5;

unless ($ARGV[0] && $ARGV[1]) {
	print "Need two arguments!\n";
	exit
}

my ($category, $package) = split('/',"$ARGV[0]",2);
my $version = "$ARGV[1]";
my $digestfile = "/usr/portage/$category/$package/files/digest-$package-$version";
my $distfilepath = "/usr/portage/distfiles/";

open(DIGEST,'<',$digestfile)
  or die "Can't open digest file file!";

my $tot = 0;
	
while (<DIGEST>) {
	chomp $_;

	my (undef,$md5,$file,$size) = split (' ',$_,4);

	if (open(FILE, "$distfilepath/$file")) {
		binmode(FILE);
		if (Digest::MD5->new->addfile(*FILE)->hexdigest eq $md5) {
			next;
		}
		$tot = $tot + $size;
	}
}
			
print "$tot\n"