Index: trunk/tools/czarpoll.pl
===================================================================
--- trunk/tools/czarpoll.pl	(revision 30274)
+++ trunk/tools/czarpoll.pl	(revision 30398)
@@ -46,4 +46,30 @@
 ###########################################################################
 #
+# Updates the dates from pantasks for all interested servers 
+#
+###########################################################################
+sub updateDates {
+
+    print "* Updating dates\n";
+    my @servers = ("stdscience", "registration");
+
+    my $server = undef;
+    $czarDb->emptyServerDates();
+    foreach $server (@servers) {
+
+        my @dates = @{$pantasks->getDates($server)};
+        if (@dates) { 
+
+            $czarDb->updateServerDates($server, \@dates);
+        }
+        else {
+
+            print "WARNING: No dates to update for '$server'\n";
+        }
+    }
+}
+
+###########################################################################
+#
 # Updates the labels from pantasks for all interested servers 
 #
@@ -59,10 +85,10 @@
         my @labels = @{$pantasks->getLabels($server)};
         if (@labels) { 
-        
+
             $czarDb->updateCurrentLabels($server, \@labels);
         }
         else {
-        
-             print "WARNING: No labels to update for '$server'\n";
+
+            print "WARNING: No labels to update for '$server'\n";
         }
     }
@@ -129,10 +155,10 @@
         # if after 18:00 today, then perform some daily tasks and start plots from 18:00 today
         else {
-            
+
             $begin = "$today $newDayTime";
 
             # check whether yesterday was cleaned. if not, cleanup tables and optimize
             if ($lastDayDailyTasks ne $yesterday) {
-   
+
                 print "* performing daily tasks (clean-up, metrics)";
 
@@ -164,4 +190,7 @@
         $plotter->plotDiskUsageHistogram();
         updateServerStatus();
+
+        # check pantasks dates
+        updateDates();
 
         # check labels