Changeset 237


Ignore:
Timestamp:
Jun 22, 2018, 7:27:32 PM (6 years ago)
Author:
g7moreau
Message:
  • Add very basic database version number
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ddt/ddt

    r236 r237  
    132132   my $database_file = shift;
    133133
    134    my $computerdb = YAML::Syck::LoadFile($database_file);
    135 
    136    return $computerdb;
     134   my $computer_db = YAML::Syck::LoadFile($database_file);
     135
     136   # add database version if not exist
     137   if (not exists $computer_db->{'version'}) {
     138      $computer_db->{'version'} = 1;
     139      }
     140
     141   return $computer_db;
    137142   }
    138143
     
    141146
    142147sub ipamdb_save {
    143    my ($database_file, $computerdb) = @_;
     148   my ($database_file, $computer_db) = @_;
    144149
    145150   my $dirdb = $database_file;
    146151      $dirdb =~ s{ / [^/]* $}{}xms;
    147152   mkdir "$dirdb", 0755 unless -d "$dirdb";
    148    YAML::Syck::DumpFile($database_file, $computerdb);
    149 
    150    return $computerdb;
     153   YAML::Syck::DumpFile($database_file, $computer_db);
     154
     155   return $computer_db;
    151156   }
    152157
     
    213218      next if $domainset_current eq 'pxe';
    214219      next if $domainset_current eq 'tag';
     220      next if $domainset_current eq 'version';
    215221
    216222      my @domainsetdb = @{$COMPUTER_DB->{$domainset_current}};
     
    240246      next if $domainset_current eq 'pxe';
    241247      next if $domainset_current eq 'tag';
     248      next if $domainset_current eq 'version';
    242249
    243250      for my $value (@{$COMPUTER_DB->{$domainset_current}}) {
     
    989996      next if $domainset_current eq 'pxe';
    990997      next if $domainset_current eq 'tag';
     998      next if $domainset_current eq 'version';
    991999
    9921000      my @domainsetdb = @{$COMPUTER_DB->{$domainset_current}};
     
    10961104         next if $domainset_current eq 'pxe';
    10971105         next if $domainset_current eq 'tag';
     1106         next if $domainset_current eq 'version';
    10981107
    10991108         my @domainsetdb = @{$COMPUTER_DB->{$domainset_current}};
     
    11611170      next if $domainset_current eq 'pxe';
    11621171      next if $domainset_current eq 'tag';
     1172      next if $domainset_current eq 'version';
    11631173
    11641174      my @domainsetdb = @{$COMPUTER_DB->{$domainset_current}};
     
    12101220         next if $domainset_current eq 'pxe';
    12111221         next if $domainset_current eq 'tag';
     1222         next if $domainset_current eq 'version';
    12121223
    12131224         my @domainsetdb = @{$COMPUTER_DB->{$domainset_current}};
     
    12731284      next if $domainset_current eq 'pxe';
    12741285      next if $domainset_current eq 'tag';
     1286      next if $domainset_current eq 'version';
    12751287
    12761288      my @domainsetdb = @{$COMPUTER_DB->{$domainset_current}};
     
    14711483      next if $domainset_current eq 'pxe';
    14721484      next if $domainset_current eq 'tag';
     1485      next if $domainset_current eq 'version';
    14731486
    14741487      my @domainsetdb = @{$COMPUTER_DB->{$domainset_current}};
     
    17471760      next if $domainset_current eq 'pxe';
    17481761      next if $domainset_current eq 'tag';
     1762      next if $domainset_current eq 'version';
    17491763
    17501764      LOOP_ON_COMPUTER:
     
    18251839         next if $domainset_current eq 'pxe';
    18261840         next if $domainset_current eq 'tag';
     1841         next if $domainset_current eq 'version';
    18271842
    18281843         my $cpt_mac = 0;
     
    19041919         next if $domainset_current eq 'pxe';
    19051920         next if $domainset_current eq 'tag';
     1921         next if $domainset_current eq 'version';
    19061922
    19071923         my $cpt_mac = 0;
     
    20192035      next if $domainset_current eq 'pxe';
    20202036      next if $domainset_current eq 'tag';
     2037      next if $domainset_current eq 'version';
    20212038
    20222039      LOOP_ON_COMPUTER:
     
    20682085      next if $domainset_current eq 'pxe';
    20692086      next if $domainset_current eq 'tag';
     2087      next if $domainset_current eq 'version';
    20702088
    20712089      my @domainsetdb = @{$COMPUTER_DB->{$domainset_current}};
     
    21062124      next if $domainset_current eq 'pxe';
    21072125      next if $domainset_current eq 'tag';
     2126      next if $domainset_current eq 'version';
    21082127
    21092128      print "$domainset_current\n";
     
    21362155      next if $domainset_current eq 'pxe';
    21372156      next if $domainset_current eq 'tag';
     2157      next if $domainset_current eq 'version';
    21382158
    21392159      my @domainsetdb = @{$COMPUTER_DB->{$domainset_current}};
     
    21862206      next if $domainset_current eq 'pxe';
    21872207      next if $domainset_current eq 'tag';
     2208      next if $domainset_current eq 'version';
    21882209
    21892210      print "\n# *** List of computers in the domain set: $domainset_current ***\n";
     
    22892310      next if $domainset_current eq 'pxe';
    22902311      next if $domainset_current eq 'tag';
     2312      next if $domainset_current eq 'version';
    22912313
    22922314      open FILE_VLAN, '>', "$FOLDER_GEN_DHCP/$domainset_current";
     
    23922414      next if $domainset_current eq 'pxe';
    23932415      next if $domainset_current eq 'tag';
     2416      next if $domainset_current eq 'version';
    23942417
    23952418      if ($domainset_current eq 'pool') {
     
    24892512      next if $domainset_current eq 'pxe';
    24902513      next if $domainset_current eq 'tag';
     2514      next if $domainset_current eq 'version';
    24912515
    24922516      my @domainsetdb = @{$COMPUTER_DB->{$domainset_current}};
Note: See TracChangeset for help on using the changeset viewer.