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

Include CD number in the fill level markers.

This commit is contained in:
Petter Reinholdtsen 2006-09-02 10:57:48 +00:00
parent 758e9dc0bb
commit 13b0587c4d
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tools/get_diskusage.pl
View File

@ -24,13 +24,13 @@ open(LOG, $logfile) || die "Unable to open $logfile";
my $text = Text::Format->new(leftMargin => 16, my $text = Text::Format->new(leftMargin => 16,
rightMargin => 0, rightMargin => 0,
firstIndent => 0); firstIndent => 0);
my $curcd = 1;
my $markerstep = $opts{m} || 0; my $markerstep = $opts{m} || 0;
my $pkg; my $pkg;
my @order; my @order;
my %cdsize; my %cdsize;
my %size; my %size;
my %deps; my %deps;
my $curcd = 1;
my $curcdsize; my $curcdsize;
my $cursize; my $cursize;
my @excluded; my @excluded;
@ -54,7 +54,7 @@ while (<LOG>) {
$cursize = $2; $cursize = $2;
if ($markerstep) { if ($markerstep) {
while ($curcdsize > $nextmarker) { while ($curcdsize > $nextmarker) {
my $txt = sprintf("<=============== CD fill level passing %d KiB", my $txt = sprintf("<=============== CD $curcd fill level passing %d KiB",
$nextmarker / 1024); $nextmarker / 1024);
$size{$txt} = 0; $size{$txt} = 0;
$cdsize{$txt} = $curcdsize; $cdsize{$txt} = $curcdsize;
@ -72,6 +72,7 @@ while (<LOG>) {
} }
if (/Limit for CD (.+) is/) { if (/Limit for CD (.+) is/) {
last if $cdlimit == $1; last if $cdlimit == $1;
$curcd = $1;
my $txt = "<=============== start of CD $1"; my $txt = "<=============== start of CD $1";
$size{$txt} = 0; $size{$txt} = 0;
$cdsize{$txt} = 0; $cdsize{$txt} = 0;