Changeset 880

Timestamp:

12/26/11 16:18:59 (13 years ago)

Author:

nanardon

Message:

• add a check of database schema

Location:

LATMOS-Accounts

Files:

• lib/LATMOS/Accounts/Bases/Sql.pm (modified) (2 diffs)
• sqldata/1_to_3.sql (moved) (moved from LATMOS-Accounts/sqldata/up_to_3.sql) (1 diff)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm

@@ -14 +14 @@
 
 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0];
+
+my $SCHEMA_VERSION = 3;
 
 =head1 NAME
@@ -81 +83 @@
         $self->{_db}->do(q{set DATESTYLE to 'DMY'});
         $self->log(LA_DEBUG, 'New connection to DB');
+        my $sv = $self->get_global_value('schema_version') || 1;
+        if ($sv < $SCHEMA_VERSION) {
+            $self->log(LA_CRIT,
+                "Schema version %d found, %d is need, please update db for `%s' base",
+                $sv,
+                $SCHEMA_VERSION,
+                $self->label,
+            );
+            # return;
+        }
         return $self->{_db};
     }

LATMOS-Accounts/sqldata/1_to_3.sql

@@ -4 +4 @@
     DROP TRIGGER IF EXISTS check_zone_name_unity_tg ON netzone;
     DROP FUNCTION IF EXISTS check_zone_name_unity();
+    INSERT INTO settings(varname, val) VALUES ('schema_version', 3);
+
 commit;