Changeset 30398
- Timestamp:
- Jan 27, 2011, 3:58:01 PM (15 years ago)
- File:
-
- 1 edited
-
trunk/tools/czarpoll.pl (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/tools/czarpoll.pl
r30274 r30398 46 46 ########################################################################### 47 47 # 48 # Updates the dates from pantasks for all interested servers 49 # 50 ########################################################################### 51 sub updateDates { 52 53 print "* Updating dates\n"; 54 my @servers = ("stdscience", "registration"); 55 56 my $server = undef; 57 $czarDb->emptyServerDates(); 58 foreach $server (@servers) { 59 60 my @dates = @{$pantasks->getDates($server)}; 61 if (@dates) { 62 63 $czarDb->updateServerDates($server, \@dates); 64 } 65 else { 66 67 print "WARNING: No dates to update for '$server'\n"; 68 } 69 } 70 } 71 72 ########################################################################### 73 # 48 74 # Updates the labels from pantasks for all interested servers 49 75 # … … 59 85 my @labels = @{$pantasks->getLabels($server)}; 60 86 if (@labels) { 61 87 62 88 $czarDb->updateCurrentLabels($server, \@labels); 63 89 } 64 90 else { 65 66 print "WARNING: No labels to update for '$server'\n";91 92 print "WARNING: No labels to update for '$server'\n"; 67 93 } 68 94 } … … 129 155 # if after 18:00 today, then perform some daily tasks and start plots from 18:00 today 130 156 else { 131 157 132 158 $begin = "$today $newDayTime"; 133 159 134 160 # check whether yesterday was cleaned. if not, cleanup tables and optimize 135 161 if ($lastDayDailyTasks ne $yesterday) { 136 162 137 163 print "* performing daily tasks (clean-up, metrics)"; 138 164 … … 164 190 $plotter->plotDiskUsageHistogram(); 165 191 updateServerStatus(); 192 193 # check pantasks dates 194 updateDates(); 166 195 167 196 # check labels
Note:
See TracChangeset
for help on using the changeset viewer.
