Changeset 34249 for trunk/ippMonitor/czartool/czarpoll.pl

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/czarpoll.pl (modified) (10 diffs)

trunk/ippMonitor/czartool/czarpoll.pl

@@ -30 +30 @@
 
 my $config = new czartool::Config();
-my $czarDb = $config->getCzarDbInstance(); 
+my $czarDb = $config->getCzarDbInstance();
 my $gpc1Db = $config->getGpc1Instance;
 my $nebulous = new czartool::Nebulous($czarDb);
 my $pantasks = new czartool::Pantasks();
-my $plotter = czartool::Plotter->new_file($config, $config->getGnuplotPath(), $save_temps); 
+my $plotter = czartool::Plotter->new_file($config, $config->getGnuplotPath(), $save_temps);
 
 
 my @stages = (
-        "chip", 
-        "cam", 
-        "fake", 
-        "warp", 
-        "stack", 
-        "staticsky", 
-        "diff", 
-        "dist", 
+        "chip",
+        "cam",
+        "fake",
+        "warp",
+        "stack",
+        "staticsky",
+        "diff",
+        "dist",
         "pub",
         "chipbackground");
@@ -65 +65 @@
 ###########################################################################
 #
-# Updates the dates from pantasks for all interested servers 
+# Updates the dates from pantasks for all interested servers
 #
 ###########################################################################
@@ -78 +78 @@
 
         my @dates = @{$pantasks->getDates($server)};
-        if (@dates) { 
+        if (@dates) {
 
             $czarDb->updateServerDates($server, \@dates);
@@ -91 +91 @@
 ###########################################################################
 #
-# Updates the labels from pantasks for all interested servers 
+# Updates the labels from pantasks for all interested servers
 #
 ###########################################################################
@@ -103 +103 @@
 
         my @labels = @{$pantasks->getLabels($server)};
-        if (@labels) { 
+        if (@labels) {
 
             $czarDb->updateCurrentLabels($server, \@labels);
@@ -116 +116 @@
 ###########################################################################
 #
-# Updates pantasks server status TODO should really get info for all servers at once 
+# Updates pantasks server status TODO should really get info for all servers at once
 #
 ###########################################################################
@@ -136 +136 @@
 ###########################################################################
 #
-# Polls with provided period (seconds) 
+# Polls with provided period (seconds)
 #
 ###########################################################################
@@ -184 +184 @@
                 # create metrics for last 24 hours
                 print "* Creating metrics for last 24 hours\n";
-                my $dayMetrics = new czartool::DayMetrics($config, 1, 0, $today); 
+                my $dayMetrics = new czartool::DayMetrics($config, 1, 0, $today);
                 $dayMetrics->writeHTML();
 
                 # now update metrics index page
-                my $metricsIndex = new czartool::MetricsIndex($config, 1, 0); 
+                my $metricsIndex = new czartool::MetricsIndex($config, 1, 0);
                 $metricsIndex->writeHTML();
 
@@ -210 +210 @@
         $plotter->plotStorageTimeSeries($czarDb->subtractInterval($begin, "1 WEEK") , $end);
         $plotter->plotDiskUsageHistogram();
+        $plotter->plotDiskUsageHistogramLarge();
         updateServerStatus();
 
@@ -269 +270 @@
     $czarDb->getCurrentIppToPspsLabels($begin, $end, \$ippToPspsLabels);
     $plotter->setIppToPspsMode();
-    
+
     # create ippToPsps labels
     foreach $stage (@ippToPspsStages) {
         foreach $row ( @{$ippToPspsLabels} ) {
             my ($label) = @{$row};
-            
+
             chomp($label);
             $plotter->createTimeSeries($label, $stage, $begin, $end, 1, 0, 1);