Changeset 28862 for trunk/tools/czartool/Czarplot.pm

Timestamp:

Aug 6, 2010, 4:44:37 PM (16 years ago)

Author:

rhenders

Message:

Nebulous cluster space plot added

File:

• trunk/tools/czartool/Czarplot.pm (modified) (3 diffs)

trunk/tools/czartool/Czarplot.pm

@@ -347 +347 @@
     my ($self) = @_;
 
-    my $outputFile = "/tmp/czarplot_hosts.png";
-
-    my $inputFile = $self->{_czarDb}->createHostsData();
+    my $outputFile = "/tmp/czarplot_hosts_space.png";
+    my $limit = 97.0;
+    my $inputFile = $self->{_czarDb}->createHostsData($limit);
+
+    my $totalUsed = $self->{_czarDb}->getTotalClusterStorageAsPercentage();
+
+my $totalPercent = sprintf("%.1f%%", $totalUsed);
 
     open (GP, "|/usr/bin/gnuplot -persist") or die "no gnuplot";
@@ -358 +362 @@
         "set term $self->{_outputFormat};" .
         "set output \"$outputFile\";" .
-        "set title \"Nebulous disk use across IPP cluster\";" .
+        "set title \"Nebulous disk use across IPP cluster ($totalPercent of total allocated)\";" .
         "set style fill solid 1.00 border -1;" .
         "set style histogram rowstacked;" .
@@ -364 +368 @@
         "set ylabel \"Space (TB)\";" .
         "set xtic rotate by -90 scale 0;" .
-        "plot '$inputFile' using 2:xtic(1) t \"Used\" , '' using 3 t \"Available\";" .
+        "plot '$inputFile' " .
+        "using 2:xtic(1) t \"Used\" lt 7," .
+        "'' using 3 t \"Over $limit% used\" lt 1," . 
+        "'' using 4 t \"Unavailable\" fs solid 0.50 lt -1 ," . 
+        "'' using 5 t \"Free\" lt 2," . 
+        "'' using 6 notitle fs solid 0.50 lt -1" . 
+        ";" .
 
         "\n";