Peppermint
/
debian-cd-clone
mirror of https://salsa.debian.org/images-team/debian-cd.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Add support for listing dependencies.

This commit is contained in:
Petter Reinholdtsen 2006-08-06 11:14:18 +00:00
parent 3a1e680fb8
commit fb0991bf79
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tools/get_diskusage.pl
View File

@ -8,6 +8,11 @@
use warnings; use warnings;
use strict; use strict;
use Text::Format; # From debian package libtext-format-perl
use Getopt::Std;
my %opts;
getopts('t', \%opts);
my $logfile = ($ARGV[0] || my $logfile = ($ARGV[0] ||
"/skolelinux/developer/local0/ftp/tmp/woody-i386/log.list2cds"); "/skolelinux/developer/local0/ftp/tmp/woody-i386/log.list2cds");
@ -15,11 +20,16 @@ my $cdlimit = ($ARGV[1] || 1) + 1;
open(LOG, $logfile) || die "Unable to open $logfile"; open(LOG, $logfile) || die "Unable to open $logfile";
my $text = Text::Format->new(leftMargin => 16,
rightMargin => 0,
firstIndent => 0);
my $curcd = 1; my $curcd = 1;
my $pkg; my $pkg;
my @order; my @order;
my %cdsize; my %cdsize;
my %size; my %size;
my %deps;
my $curcdsize; my $curcdsize;
my $cursize; my $cursize;
while (<LOG>) { while (<LOG>) {
@ -29,11 +39,12 @@ while (<LOG>) {
$curcdsize = $1; $curcdsize = $1;
$cursize = $2; $cursize = $2;
} }
if (/^ Adding (\S+) .+/) { if (/^ Adding (\S+) (.+) to CD \d+/) {
$pkg = $1; $pkg = $1;
$cdsize{$pkg} = $curcdsize; $cdsize{$pkg} = $curcdsize;
$size{$pkg} = $cursize; $size{$pkg} = $cursize;
push @order, $pkg; push @order, $pkg;
$deps{$pkg} = $2;
} }
if (/Limit for CD (.+) is/) { if (/Limit for CD (.+) is/) {
last if $cdlimit == $1; last if $cdlimit == $1;
@ -57,4 +68,5 @@ print "-----------------------\n";
for $pkg (@order) { for $pkg (@order) {
printf "%7d %7d %s\n", $size{$pkg} / 1024, $cdsize{$pkg} / 1024, $pkg; printf "%7d %7d %s\n", $size{$pkg} / 1024, $cdsize{$pkg} / 1024, $pkg;
print $text->format($deps{$pkg}) if ($opts{'t'} && $deps{$pkg});
} }