From 4d8289dad674e8396a127191045fb0a9edf6b1eb Mon Sep 17 00:00:00 2001
From: hjp <hjp>
Date: Mon, 16 Jul 2001 08:22:48 +0000
Subject: [PATCH] =?UTF-8?q?Erste=20Hinweise=20auf=20n=C3=B6tige=20=C3=84nd?=
 =?UTF-8?q?erungen=20-=20Funktioniert=20nicht!?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 quotacheck/quotagraph | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/quotacheck/quotagraph b/quotacheck/quotagraph
index 49d9d9d..3f432a8 100755
--- a/quotacheck/quotagraph
+++ b/quotacheck/quotagraph
@@ -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";
 }