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