Changeset 30397

Timestamp:

Jan 27, 2011, 3:57:22 PM (15 years ago)

Author:

rhenders

Message:

new Db version with table for server dates; added update and delete function for new table

File:

• trunk/tools/czartool/CzarDb.pm (modified) (5 diffs)

trunk/tools/czartool/CzarDb.pm

@@ -152 +152 @@
 
     $query->execute;
+}
+
+###########################################################################
+#
+# Cleans out server_dates table
+#
+###########################################################################
+sub emptyServerDates {
+    my ($self, $server, $dates) = @_;
+
+    my $query = $self->{_db}->prepare(<<SQL);
+    DELETE FROM server_dates;
+SQL
+
+    $query->execute;
+}
+
+###########################################################################
+#
+# Updates current_labels table
+#
+###########################################################################
+sub updateServerDates {
+    my ($self, $server, $dates) = @_;
+
+    my $size = scalar @{$dates};
+    if ($size < 1) { return; }
+
+    my $date = undef;
+
+    foreach $date (@{$dates}) {
+
+        my $query = $self->{_db}->prepare(<<SQL);
+        INSERT INTO server_dates
+            (server, date)
+            VALUES
+            ('$server', '$date');
+SQL
+
+       $query->execute;
+    }
 }
 
@@ -1243 +1284 @@
         elsif ($currentRevision == 10) {$self->createRevision_11();}
         elsif ($currentRevision == 11) {$self->createRevision_12();}
+        elsif ($currentRevision == 12) {$self->createRevision_13();}
         else {last;}
     }
@@ -1602 +1644 @@
 # Create revision 12 of the database 
 #
+# - adding nightlyscience table
+#
 #######################################################################################
 sub createRevision_12 {
@@ -1608 +1652 @@
     print "* Creating revision 12 of '$self->{_dbName}'\n";
 
-    # same shape as other stage tables to enable easy update
     my $query = $self->{_db}->prepare(<<SQL);
     CREATE TABLE nightlyscience (
@@ -1619 +1662 @@
     $self->setRevision(12);
 }
+#######################################################################################
+# 
+# Create revision 13 of the database 
+#
+# adding server_dates table
+#
+#######################################################################################
+sub createRevision_13 {
+    my ($self) = @_;
+
+    print "* Creating revision 13 of '$self->{_dbName}'\n";
+
+    my $query = $self->{_db}->prepare(<<SQL);
+    CREATE TABLE server_dates (
+            timestamp TIMESTAMP DEFAULT NOW(),
+            server VARCHAR(64) DEFAULT "NONE", 
+            date VARCHAR(64) DEFAULT "NONE"); 
+SQL
+
+        $query->execute;
+
+    $self->setRevision(13);
+}
 1;