Changeset 34249 for trunk/ippMonitor/czartool/czartool/Plotter.pm

Timestamp:

Jul 31, 2012, 2:20:53 PM (14 years ago)

Author:

Serge CHASTEL

Message:

Enlarged nebulous view of the storage partitions

File:

• trunk/ippMonitor/czartool/czartool/Plotter.pm (modified) (1 diff)

trunk/ippMonitor/czartool/czartool/Plotter.pm

@@ -666 +666 @@
         "set title \"Nebulous disk use across IPP cluster ($totalPercent of total allocated)\";" .
         "set style fill solid 1.00 border -1;" .
+        "set key center top;" .
+        "set style histogram rowstacked;" .
+        "set style data histograms;" .
+        "set ylabel \"Space (TB)\";" .
+        "set xtic rotate by -90 scale 0;" .
+        "plot '".$tmpFile->filename."' " .
+        "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";
+    close GP;
+}
+
+###########################################################################
+#
+# Plots disk usage across cluster as a stacked histogram
+#
+###########################################################################
+sub plotDiskUsageHistogramLarge {
+    my ($self) = @_;
+
+    my $prefix = $self->{_outputPath} ? $self->{_outputPath} : "."; # TODO should be function for this
+        my $outputFile = "$prefix/czarplot_hosts_space_large.png";
+    my $limit = 97.0;
+    my $tmpFile = File::Temp->new( TEMPLATE => "czarplot_hosts_space.XXXXX", DIR => '/tmp', SUFFIX => 'dat');
+    $self->{_czarDb}->createHostsData($limit, $tmpFile);
+
+    my $totalUsed = $self->{_czarDb}->getTotalClusterStorageAsPercentage();
+
+    my $totalPercent = sprintf("%.1f%%", $totalUsed);
+
+    open (GP, "|$GNUPLOT -persist") or die "no gnuplot";
+    use FileHandle;
+    GP->autoflush(1);
+
+    if ($self->{_outputFormat} ne "X11") {print GP "set output \"$outputFile\";";}
+    print GP
+        "set term $self->{_outputFormat} size 1280,1024;" .
+        "set title \"Nebulous disk use across IPP cluster ($totalPercent of total allocated)\";" .
+        "set style fill solid 1.00 border -1;" .
+        "set bmarg 5; " .
         "set key center top;" .
         "set style histogram rowstacked;" .