Changeset 237

Timestamp:

Jun 22, 2018, 7:27:32 PM (6 years ago)

Author:

g7moreau

Message:

• Add very basic database version number

File:

• trunk/ddt/ddt (modified) (21 diffs)

trunk/ddt/ddt

@@ -132 +132 @@
    my $database_file = shift;
 
-   my $computerdb = YAML::Syck::LoadFile($database_file);
-
-   return $computerdb;
+   my $computer_db = YAML::Syck::LoadFile($database_file);
+
+   # add database version if not exist
+   if (not exists $computer_db->{'version'}) {
+      $computer_db->{'version'} = 1;
+      }
+
+   return $computer_db;
    }
 
@@ -141 +146 @@
 
 sub ipamdb_save {
-   my ($database_file, $computerdb) = @_;
+   my ($database_file, $computer_db) = @_;
 
    my $dirdb = $database_file;
       $dirdb =~ s{ / [^/]* $}{}xms;
    mkdir "$dirdb", 0755 unless -d "$dirdb";
-   YAML::Syck::DumpFile($database_file, $computerdb);
-
-   return $computerdb;
+   YAML::Syck::DumpFile($database_file, $computer_db);
+
+   return $computer_db;
    }
 
@@ -213 +218 @@
       next if $domainset_current eq 'pxe';
       next if $domainset_current eq 'tag';
+      next if $domainset_current eq 'version';
 
       my @domainsetdb = @{$COMPUTER_DB->{$domainset_current}};
@@ -240 +246 @@
       next if $domainset_current eq 'pxe';
       next if $domainset_current eq 'tag';
+      next if $domainset_current eq 'version';
 
       for my $value (@{$COMPUTER_DB->{$domainset_current}}) {
@@ -989 +996 @@
       next if $domainset_current eq 'pxe';
       next if $domainset_current eq 'tag';
+      next if $domainset_current eq 'version';
 
       my @domainsetdb = @{$COMPUTER_DB->{$domainset_current}};
@@ -1096 +1104 @@
          next if $domainset_current eq 'pxe';
          next if $domainset_current eq 'tag';
+         next if $domainset_current eq 'version';
 
          my @domainsetdb = @{$COMPUTER_DB->{$domainset_current}};
@@ -1161 +1170 @@
       next if $domainset_current eq 'pxe';
       next if $domainset_current eq 'tag';
+      next if $domainset_current eq 'version';
 
       my @domainsetdb = @{$COMPUTER_DB->{$domainset_current}};
@@ -1210 +1220 @@
          next if $domainset_current eq 'pxe';
          next if $domainset_current eq 'tag';
+         next if $domainset_current eq 'version';
 
          my @domainsetdb = @{$COMPUTER_DB->{$domainset_current}};
@@ -1273 +1284 @@
       next if $domainset_current eq 'pxe';
       next if $domainset_current eq 'tag';
+      next if $domainset_current eq 'version';
 
       my @domainsetdb = @{$COMPUTER_DB->{$domainset_current}};
@@ -1471 +1483 @@
       next if $domainset_current eq 'pxe';
       next if $domainset_current eq 'tag';
+      next if $domainset_current eq 'version';
 
       my @domainsetdb = @{$COMPUTER_DB->{$domainset_current}};
@@ -1747 +1760 @@
       next if $domainset_current eq 'pxe';
       next if $domainset_current eq 'tag';
+      next if $domainset_current eq 'version';
 
       LOOP_ON_COMPUTER:
@@ -1825 +1839 @@
          next if $domainset_current eq 'pxe';
          next if $domainset_current eq 'tag';
+         next if $domainset_current eq 'version';
 
          my $cpt_mac = 0;
@@ -1904 +1919 @@
          next if $domainset_current eq 'pxe';
          next if $domainset_current eq 'tag';
+         next if $domainset_current eq 'version';
 
          my $cpt_mac = 0;
@@ -2019 +2035 @@
       next if $domainset_current eq 'pxe';
       next if $domainset_current eq 'tag';
+      next if $domainset_current eq 'version';
 
       LOOP_ON_COMPUTER:
@@ -2068 +2085 @@
       next if $domainset_current eq 'pxe';
       next if $domainset_current eq 'tag';
+      next if $domainset_current eq 'version';
 
       my @domainsetdb = @{$COMPUTER_DB->{$domainset_current}};
@@ -2106 +2124 @@
       next if $domainset_current eq 'pxe';
       next if $domainset_current eq 'tag';
+      next if $domainset_current eq 'version';
 
       print "$domainset_current\n";
@@ -2136 +2155 @@
       next if $domainset_current eq 'pxe';
       next if $domainset_current eq 'tag';
+      next if $domainset_current eq 'version';
 
       my @domainsetdb = @{$COMPUTER_DB->{$domainset_current}};
@@ -2186 +2206 @@
       next if $domainset_current eq 'pxe';
       next if $domainset_current eq 'tag';
+      next if $domainset_current eq 'version';
 
       print "\n# *** List of computers in the domain set: $domainset_current ***\n";
@@ -2289 +2310 @@
       next if $domainset_current eq 'pxe';
       next if $domainset_current eq 'tag';
+      next if $domainset_current eq 'version';
 
       open FILE_VLAN, '>', "$FOLDER_GEN_DHCP/$domainset_current";
@@ -2392 +2414 @@
       next if $domainset_current eq 'pxe';
       next if $domainset_current eq 'tag';
+      next if $domainset_current eq 'version';
 
       if ($domainset_current eq 'pool') {
@@ -2489 +2512 @@
       next if $domainset_current eq 'pxe';
       next if $domainset_current eq 'tag';
+      next if $domainset_current eq 'version';
 
       my @domainsetdb = @{$COMPUTER_DB->{$domainset_current}};