hjp
/
simple
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Erste Hinweise auf nötige Änderungen - Funktioniert nicht!

This commit is contained in:
hjp 2001-07-16 08:22:48 +00:00
parent cd3d78bbb1
commit 4d8289dad6
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
quotacheck/quotagraph
View File

@ -29,16 +29,15 @@ while(<>) {
}
print "$date $time\n";
$ld = {};
$ld = [];
push(@data, [ $time, $ld ]);
$lastdate = $date;
}
$ld->{$user . $fs} = $bused if ($opts{"data"} eq "bused");
$ld->{$user . $fs} = $bsoft if ($opts{"data"} eq "bsoft");
$ld->{$user . $fs} = $bhard if ($opts{"data"} eq "bhard");
$ld->{$user . $fs} = $iused if ($opts{"data"} eq "iused");
$ld->{$user . $fs} = $isoft if ($opts{"data"} eq "isoft");
$ld->{$user . $fs} = $ihard if ($opts{"data"} eq "ihard");
if ($data eq "b") {
$ld = [ $bused, $bsoft, $bhard ];
} else {
...
}
}
}
@ -51,8 +50,8 @@ for (my $i = 0; $i <= $#data; $i++) {
my $data = ($data[$i])->[1];
print DATA $time;
for $j (@top) {
print DATA "\t", $data->{$j} + 0;
for $j (@$data) {
print DATA "\t", $j + 0;
}
print DATA "\n";
}