source: trunk/ddt/ddt @ 317

Last change on this file since 317 was 317, checked in by g7moreau, 6 years ago
  • Better command show-domainset
  • Property svn:executable set to *
  • Property svn:keywords set to Id
File size: 114.5 KB
Line 
1#!/usr/bin/perl
2#
3# Copyright (C) 2006-2018, LEGI UMR 5519 / CNRS UGA G-INP, Grenoble, France
4# License GNU GPL version 2 or later and Perl equivalent
5#
6# apt-get install perl-base perl-modules libyaml-syck-perl libnet-netmask-perl libreadonly-perl libfile-touch-perl libtext-table-perl
7
8package DDT::RE;
9
10use strict;
11#use warnings;
12
13use Readonly;
14
15Readonly our $MAC_ADDRESS  => qr{ (?: [0-9A-F]{2} :){5} [0-9A-F]{2} }xms;
16Readonly our $IPv4_ADDRESS => qr{ [0-9]{1,3} \. [0-9]{1,3} \. [0-9]{1,3} \. [0-9]{1,3} }xms;
17
18
19package main;
20
21use strict;
22#use warnings;
23use version; our $VERSION = version->declare('0.9.8');
24
25use Getopt::Long qw(GetOptions);
26#use YAML;
27use YAML::Syck;
28use Net::Netmask;
29use File::Touch;
30use File::Copy;
31use Socket;
32use Text::Table;
33
34my $command = shift @ARGV || 'help';
35
36my %cmd_db = (
37   'add-alias'          => \&cmd_add_alias,
38   'add-dhcp'           => \&cmd_add_dhcp,
39   'add-float'          => \&cmd_add_float,
40   'add-static'         => \&cmd_add_static,
41   'add-virtual'        => \&cmd_add_virtual,
42   'change-comment'     => \&cmd_change_comment,
43   'change-domainset'   => \&cmd_change_domainset,
44   'change-host'        => \&cmd_change_host,
45   'change-ip'          => \&cmd_change_ip,
46   'change-mac'         => \&cmd_change_mac,
47   'change-tag'         => \&cmd_change_tag,
48   'check-dns'          => \&cmd_check_dns,
49   'create-domainset'   => \&cmd_create_domainset,
50   'create-pool'        => \&cmd_create_pool,
51   'create-pxe'         => \&cmd_create_pxe,
52   'create-tag'         => \&cmd_create_tag,
53   'del-pc'             => \&cmd_del_pc,
54   'del-float'          => \&cmd_del_float,
55   'disable-pc'         => \&cmd_disable_pc,
56   'disable-float'      => \&cmd_disable_float,
57   'disable-pxe'        => \&cmd_disable_pxe,
58   'enable-pc'          => \&cmd_enable_pc,
59   'enable-float'       => \&cmd_enable_float,
60   'enable-pxe'         => \&cmd_enable_pxe,
61   'gen-dhcp-file'      => \&cmd_generate_dhcp_file,
62   'gen-dns-file'       => \&cmd_generate_dns_file,
63   'help'               => \&cmd_help,
64   'load-database'      => \&cmd_load_database,
65   'remove-pxe'         => \&cmd_remove_pxe,
66   'remove-tag'         => \&cmd_remove_tag,
67   'search-mac'         => \&cmd_search_mac,
68   'show'               => \&cmd_show_host,
69   'show-domainset'     => \&cmd_show_domainset,
70   'show-pool'          => \&cmd_show_pool,
71   'show-pxe'           => \&cmd_show_pxe,
72   'show-tag'           => \&cmd_show_tag,
73   'upgrade-db'         => \&cmd_upgrade_db,
74   'version'            => \&cmd_version,
75   );
76
77#-------------------------------------------------------------------------------
78
79my $CONFIG;
80
81my $xdg_config_home = $ENV{'XDG_CONFIG_HOME'} || "$ENV{'HOME'}/.config";
82$CONFIG = config_load("$xdg_config_home/ddt/config.yml") if -e "$xdg_config_home/ddt/config.yml";
83
84my $COMPUTER_BASENAME   = $CONFIG->{'database'}{'basename'} || 'ddt';
85my $COMPUTER_EXT        = $CONFIG->{'database'}{'ext'}      || 'db';
86
87my $FOLDER_APP          = $CONFIG->{'database'}{'folder'}   || '/var/lib/ddt';
88my $FOLDER_BACKUP       = $CONFIG->{'database'}{'backup'}   || "$FOLDER_APP/backup";
89my $FOLDER_GEN_DHCP     = $CONFIG->{'generate'}{'dhcp'}     || "$FOLDER_APP/dhcp";
90my $FOLDER_GEN_DNS      = $CONFIG->{'generate'}{'dns'}      || "$FOLDER_APP/dns";
91my $SCRIPT_UPDATE       = $CONFIG->{'script'}{'update'}     || '/usr/share/ddt/update-dhcp-server';
92
93my $COMPUTER_YAML       = "$FOLDER_APP/$COMPUTER_BASENAME.$COMPUTER_EXT";
94
95#-------------------------------------------------------------------------------
96
97mkdir $FOLDER_APP, 0755      if not -d $FOLDER_APP;
98mkdir $FOLDER_BACKUP, 0755   if not -d $FOLDER_BACKUP;
99mkdir $FOLDER_GEN_DHCP, 0755 if not -d $FOLDER_GEN_DHCP;
100mkdir $FOLDER_GEN_DNS, 0755  if not -d $FOLDER_GEN_DNS;
101
102if (defined $cmd_db{$command}) {
103   $cmd_db{$command}->(@ARGV);
104   }
105else {
106   print {*STDERR} "ddt: command $command not found\n\n";
107   $cmd_db{'help'}->();
108   exit 1;
109   }
110
111exit;
112
113#--------------------------------------------------------------------------------
114# LOAD SAVE section
115#--------------------------------------------------------------------------------
116
117sub config_load {
118   my $config_file = shift;
119
120   my $configdb = YAML::Syck::LoadFile($config_file);
121
122   return $configdb;
123   }
124
125#---------------------------------------------------------------
126# Load computer database
127
128sub ipamdb_load {
129   my $database_yaml = shift;
130
131   touch $database_yaml if not -e $database_yaml;
132   my $computer_db = YAML::Syck::LoadFile($database_yaml);
133
134   # add database version if not exist
135   if (not exists $computer_db->{'version'}) {
136      $computer_db->{'version'} = 1;
137      }
138
139   return $computer_db;
140   }
141
142#---------------------------------------------------------------
143# Save computer database
144
145sub ipamdb_save {
146   my ($database_yaml, $computer_db) = @_;
147
148   my $dirdb = $database_yaml;
149      $dirdb =~ s{ / [^/]* $}{}xms;
150   mkdir "$dirdb", 0755 unless -d "$dirdb";
151   YAML::Syck::DumpFile($database_yaml, $computer_db);
152
153   return $computer_db;
154   }
155
156#--------------------------------------------------------------------------------
157# CONTROL section
158#--------------------------------------------------------------------------------
159
160sub control_exist_pool {
161   my ($computer_db, $pool) = @_;
162
163   return exists $computer_db->{'pool'}{$pool} ? 1 : 0;
164   }
165
166#-------------------------------------------------------------------------------
167#Nom: control_exist_domainset
168#Description: controle l'existence d'un domain set dans le fichier YAML
169#             return 0 (faux) ou 1 (vrai)
170
171sub control_exist_domainset {
172   my ($computer_db, $domainset) = @_;
173
174   return 1 if exists $computer_db->{$domainset};
175
176   print {*STDERR} "Error: domain set $domainset not found\n";
177   return 0;
178   }
179
180#-------------------------------------------------------------------------------
181#Nom: control_exist_hostname
182#Description: controle l'existence d'un nom de machine dans le fichier YAML
183#             return 0 (si trouvé) ou 1 (si non trouvé)
184
185sub control_exist_hostname {
186   my ($computer_db, $domainset, $hostname) = @_;
187
188   if ($computer_db->{$domainset} eq '') {
189      return 1;
190      }
191
192   my @domainsetdb = @{$computer_db->{$domainset}};
193
194   for my $computer (@domainsetdb) {
195      my ($mac_address, $attribute) = %{$computer};
196      return 0 if $attribute->{'hostname'} eq $hostname;
197      }
198   return 1;
199   }
200
201#-------------------------------------------------------------------------------
202#Nom: control_exist_mac
203#Description: controle l'existence d'une adresse MAC dans le fichier YAML
204#             return 0 (si trouvé) ou 1 (si non trouvé)
205
206sub control_exist_mac {
207   my ($computer_db, $mac) = @_;
208
209   for my $domainset_current (keys %{$computer_db}) {
210      next if $domainset_current eq 'dset';
211      next if $domainset_current eq 'pool';
212      next if $domainset_current eq 'pxe';
213      next if $domainset_current eq 'tag';
214      next if $domainset_current eq 'version';
215
216      my @domainsetdb = @{$computer_db->{$domainset_current}};
217
218      LOOP_ON_COMPUTER:
219      for my $computer (@domainsetdb) {
220         my ($mac_address, $attribute) = %{$computer};
221         return 0 if $mac_address eq $mac;
222         }
223      }
224   return 1;
225   }
226
227#-------------------------------------------------------------------------------
228#Nom: control_exist_ip
229#Description: controle l'existence d'une adresse IP dans le fichier YAML
230#             return 0 (si trouvé) ou 1 (si non trouvé)
231
232sub control_exist_ip {
233   my ($computer_db, $ip) = @_;
234
235   for my $domainset_current (keys %{$computer_db}) {
236      next if $domainset_current eq 'dset';
237      next if $domainset_current eq 'pool';
238      next if $domainset_current eq 'pxe';
239      next if $domainset_current eq 'tag';
240      next if $domainset_current eq 'version';
241
242      LOOP_ON_COMPUTER:
243      for my $computer (@{$computer_db->{$domainset_current}}) {
244         my ($mac_address, $attribute) = %{$computer};
245         #print "Erreur: cette adresse IP $ip existe déjà\n";
246         return 0 if $attribute->{'ip'} eq $ip;
247         }
248      }
249
250   for my $current_pool (keys %{$computer_db->{'pool'}}) {
251      #--- Cette partie pour tester les ip des pools est bonne ne plus la changer ---#
252      my @T_pool_ip = @{$computer_db->{'pool'}{$current_pool}{'ip'}};
253
254      for my $pool_ip (@T_pool_ip) {
255         #print "Erreur: cette adresse IP $ip existe déjà\n";
256         return 0 if $pool_ip eq $ip;
257         }
258      }
259
260   return 1;
261   }
262
263#-------------------------------------------------------------------------------------
264#Nom: control_syntaxe_mac
265#Description: controle la syntaxe d'une adresse MAC (juste la longueur pas les valeurs)
266#             return 0 (si trouvé) ou 1 (si non trouvé)
267
268sub control_syntax_mac_address {
269   my $mac = shift;
270
271   if (scalar(split /:/, $mac) == 6 and $mac =~ $DDT::RE::MAC_ADDRESS) {
272      return 1;
273      }
274
275   print {*STDERR} "Error: Bad MAC syntax: $mac\n";
276   return 0;
277   }
278
279#-------------------------------------------------------------------------------------
280#Nom: control_syntax_ip
281#Description: controle la syntaxe d'une adresse IP (juste la longueur pas les valeurs)
282#             return 0 (si trouvé) ou 1 (si non trouvé)
283
284sub control_syntax_ip {
285   my $ip = shift;
286
287   if ($ip ne 'pool') {
288      my @ip_split = split /\./, $ip;
289
290      if ( scalar(@ip_split) != 4 ) {
291         print {*STDERR} "Error: Bad IP syntax: $ip\n";
292         return 0;
293         }
294      }
295   return 1;
296   }
297
298#-------------------------------------------------------------------------------------
299
300sub control_syntax_comment {
301   my $comment = shift;
302
303   if ($comment !~ m{^20\d\d-\d\d-\d\d\s}) {
304      print {*STDERR} "Syntax Error: No date like 2014-01-10 at the beginning: $comment\n";
305      return 0;
306      }
307
308   if ($comment !~ m{\(\w+\)$}) {
309      print {*STDERR} "Syntax Error: No (SERVICE) at the end: $comment\n";
310      return 0;
311      }
312
313   if ($comment =~ m{\s\s}) {
314      print {*STDERR} "Syntax Error: Double space: $comment\n";
315      return 0;
316      }
317   return 1;
318   }
319
320#--------------------------------------------------------------------------------
321# UTILITY section
322#--------------------------------------------------------------------------------
323
324sub get_cmd_name {
325   my ($pkg, $sub) = split /::/, (caller(1))[3];
326   $sub =~ s/^cmd_//;
327   $sub =~ s/_/-/g;
328   return $sub;
329   }
330
331#-------------------------------------------------------------------------------
332
333sub normalize_mac_address {
334   my $mac_address = shift;
335
336   # D07E-28D1-7AB8 or d07e28-d17ab8
337   if ($mac_address =~ m{^ (?: [0-9A-Fa-f]{4} -){2} [0-9A-Fa-f]{4} $}xms
338      or $mac_address =~ m{^ [0-9A-Fa-f]{6} - [0-9A-Fa-f]{6} $}xms) {
339      $mac_address =~ s/-//g;
340      return join q{:}, unpack('(A2)*', uc($mac_address));
341      }
342
343   return join q{:}, map { substr( uc("00$_"), -2) } split m/ [:-] /xms, $mac_address;
344   }
345
346#-------------------------------------------------------------------------------
347
348sub normalize_comment {
349   my $comment = shift;
350
351   $comment =~ s{^(20\d\d)/(\d\d)/(\d\d)\s(.*)$}{$1-$2-$3 $4};
352
353   return $comment;
354   }
355
356#--------------------------------------------------------------------------------
357
358sub get_mac_from_hostname {
359   my ($computer_db, $domainset, $hostname, $mac) = @_;
360
361   return $mac if $mac ne '';
362   return ''   if $hostname eq '';
363
364   LOOP_ON_COMPUTER:
365   for my $computer (@{$computer_db->{$domainset}}) {
366      my ($mac_address, $attribute) = %{$computer};
367
368      next LOOP_ON_COMPUTER if $attribute->{'hostname'} ne $hostname;
369
370      return $mac_address;
371      }
372   }
373
374#--------------------------------------------------------------------------------
375
376sub get_mac_from_ip {
377   my ($computer_db, $domainset, $ip, $mac) = @_;
378
379   return $mac if $mac ne '';
380   return ''   if $ip eq '';
381
382   LOOP_ON_COMPUTER:
383   for my $computer (@{$computer_db->{$domainset}}) {
384      my ($mac_address, $attribute) = %{$computer};
385
386      next LOOP_ON_COMPUTER if $attribute->{'ip'} ne $ip;
387      return $mac_address;
388      }
389   }
390
391#--------------------------------------------------------------------------------
392# return a tuple (hash computer, iostat)
393# iostat 0/ok, 1/not exist
394
395sub get_computer_from_mac {
396   my ($computer_db, $domainset, $mac) = @_;
397
398   LOOP_ON_COMPUTER:
399   for my $computer (@{$computer_db->{$domainset}}) {
400      my ($mac_address, $attribute) = %{$computer};
401
402      next LOOP_ON_COMPUTER if $mac_address ne $mac;
403
404      return $attribute, 0;
405      }
406   return {}, 1;
407   }
408
409#-------------------------------------------------------------------------------
410# ADD computer section
411#-------------------------------------------------------------------------------
412
413#-------------------------------------------------------------------------------
414#Nom: add_alias
415#Description: ajoute un alias pour une machine. Pour la fonctionnalité CNAME dans le DNS.
416
417sub add_alias {
418   my ($computer_db, $hostname, $domainset, $alias) = @_;
419
420   control_exist_domainset($computer_db, $domainset) or exit;
421   control_exist_hostname($computer_db, $domainset, $hostname) or die "Error: Hostname already exist in domain set attachement $domainset: $hostname\n";
422
423   my @domainsetdb = @{$computer_db->{$domainset}};
424
425   LOOP_ON_COMPUTER:
426   for my $computer (@domainsetdb) {
427      my ($mac_address, $attribute) = %{$computer};
428
429      next LOOP_ON_COMPUTER if $attribute->{'hostname'} ne $hostname;
430
431      $alias .= ' ' . $attribute->{'alias'};
432      $attribute->{'alias'}       = $alias;
433      $attribute->{'modify_time'} = time;
434      ipamdb_save("$COMPUTER_YAML", $computer_db);
435      print "Info: Update attribute alias to $alias for host $hostname [OK]\n";
436      exit;
437      }
438   }
439
440#-------------------------------------------------------------------------------
441#Nom: add_static
442#Description: ajoute une machine non dhcp (donc à adressage fixe dans le fichier YAML)
443
444sub add_static {
445   my ($computer_db, $hostname, $domainset, $ip, $mac, $comment) = @_;
446
447   $mac = normalize_mac_address($mac);
448   $comment = normalize_comment($comment);
449   control_exist_hostname($computer_db, $domainset, $hostname) or die "Error: Hostname already exist in domain set attachement $domainset: $hostname\n";
450   control_syntax_mac_address($mac)                   or exit;
451   control_exist_mac($computer_db, $mac)              or die "Error: Physical MAC address already exists: $mac\n";
452   control_syntax_ip($ip)                             or exit;
453   control_exist_ip($computer_db, $ip)                or die "Error: IP address already exist in domain set attachement $domainset: $ip\n";
454   control_syntax_comment($comment)                   or exit;
455   my $timestamp = time;
456   push @{$computer_db->{$domainset}}, { $mac => {
457      'hostname'     => $hostname,
458      'ip'           => $ip,
459      'address_type' => 'static',
460      'enabled'      => 'yes',
461      'create_time'  => $timestamp,
462      'modify_time'  => $timestamp,
463      'comment'      => $comment,
464      'alias'        =>  '',
465      }};
466   print "Info: Add the host: $hostname, IP: $ip, MAC: $mac, Domain Set: $domainset [OK]\n";
467
468   ipamdb_save("$COMPUTER_YAML", $computer_db);
469   }
470
471
472#-------------------------------------------------------------------------------
473#Nom: add_dhcp
474#Description: section à corriger pour prendre en compte l'ajout d'une machine dans un pool dhcp
475#--- usage: ddt add_dhcp -d legi-sector03 -h meolpacif -m 00:18:F3:03:6F:66 -i 194.254.66.165
476
477sub add_dhcp {
478   my ($computer_db, $hostname, $domainset, $ip, $mac, $comment) = @_;
479
480   my $timestamp = time;
481   $mac = normalize_mac_address($mac);
482   $comment = normalize_comment($comment);
483   control_exist_domainset($computer_db, $domainset)  or exit;
484   control_exist_hostname($computer_db, $domainset, $hostname) or die "Error: Hostname already exist in domain set attachement $domainset: $hostname\n";
485   control_syntax_mac_address($mac)                   or exit;
486   control_exist_mac($computer_db, $mac)              or die "Error: Physical MAC address already exists: $mac\n";
487   control_syntax_ip($ip)                             or exit;
488   control_exist_ip($computer_db, $ip)                or die "Error: IP address already exist in domain set attachement $domainset: $ip.\n";
489   control_syntax_comment($comment)                   or exit;
490
491   push @{$computer_db->{$domainset}}, { $mac => {
492      'hostname'     => $hostname,
493      'ip'           => $ip,
494      'address_type' => 'dhcp',
495      'enabled'      => 'yes',
496      'create_time'  => $timestamp,
497      'modify_time'  => $timestamp,
498      'comment'      => $comment,
499      'alias'        => '',
500      }};
501   print "Add the computer: $hostname, IP: $ip, MAC: $mac, Domain Set: $domainset\n";
502
503   ipamdb_save("$COMPUTER_YAML", $computer_db);
504   }
505
506#-------------------------------------------------------------------------------
507#--- usage: ddt add_float -d legi-sector03 -h meolpacif -m 00:18:F3:03:6F:66 -i 194.254.66.165
508
509sub add_float {
510   my ($computer_db, $pool, $domainset, $mac, $comment) = @_;
511
512   my $timestamp = time;
513   $mac = normalize_mac_address($mac);
514   $comment = normalize_comment($comment);
515   control_exist_domainset($computer_db, $domainset)  or exit;
516   control_syntax_mac_address($mac)                   or exit;
517   control_exist_mac($computer_db, $mac)              or die "Error: Physical MAC address already exists: $mac\n";
518   control_exist_pool($computer_db, $pool)            or die "Error: The pool doesn't exists: $pool\n";
519   control_syntax_comment($comment)                   or exit;
520   push @{$computer_db->{$domainset}}, { $mac => {
521      'hostname'     => $pool,
522      'ip'           => $pool,
523      'address_type' => 'pool-dhcp',
524      'enabled'      => 'yes',
525      'create_time'  => $timestamp,
526      'modify_time'  => $timestamp,
527      'comment'      => $comment,
528      }};
529   print "Info: Add the computer in pool MAC: $mac, Domain Set: $domainset, Pool: $pool [OK]\n";
530
531   ipamdb_save("$COMPUTER_YAML", $computer_db);
532   }
533
534#-------------------------------------------------------------------------------
535# ADD computer section
536#-------------------------------------------------------------------------------
537
538sub cmd_add_alias {
539   local @ARGV = @_;
540
541   my $help = get_cmd_name();
542   my ($hostname, $domainset, $alias);
543
544   GetOptions(
545      'hostname|h=s'    => \$hostname,
546      'domainset|d=s'   => \$domainset,
547      'alias|a=s'       => \$alias,
548      );
549
550   ($hostname, $domainset) = split /\./, $hostname, 2 if $hostname =~ m/\./;
551   exit_on_error_option($help)
552      if $hostname   eq ''
553      or $domainset  eq ''
554      or $alias      eq '';
555
556   my $computer_db = ipamdb_load($COMPUTER_YAML);
557   add_alias($computer_db, $hostname, $domainset, $alias);
558   }
559
560#-------------------------------------------------------------------------------
561
562sub cmd_add_dhcp {
563   local @ARGV = @_;
564
565   my $help = get_cmd_name();
566   my ($hostname, $domainset, $ip, $mac, $comment);
567
568   GetOptions(
569      'hostname|h=s'    => \$hostname,
570      'domainset|d=s'   => \$domainset,
571      'ip|i=s'          => \$ip,
572      'mac|m=s'         => \$mac,
573      'comment|c=s'     => \$comment,
574      );
575
576   ($hostname, $domainset) = split /\./, $hostname, 2 if $hostname =~ m/\./;
577   exit_on_error_option($help)
578      if $hostname   eq ''
579      or $domainset  eq ''
580      or $ip         eq ''
581      or $mac        eq ''
582      or $comment    eq '';
583
584   my $computer_db = ipamdb_load($COMPUTER_YAML);
585   add_dhcp($computer_db, $hostname, $domainset, $ip, $mac, $comment);
586   }
587
588#-------------------------------------------------------------------------------
589
590sub cmd_add_float {
591   local @ARGV = @_;
592
593   my $help = get_cmd_name();
594   my ($pool, $domainset, $mac, $comment);
595
596   GetOptions(
597      'pool|p=s'        => \$pool,
598      'domainset|d=s'   => \$domainset,
599      'mac|m=s'         => \$mac,
600      'comment|c=s'     => \$comment,
601      );
602
603   ($pool, $domainset) = split /\./, $pool, 2 if $pool =~ m/\./;
604   exit_on_error_option($help)
605      if $pool       eq ''
606      or $domainset  eq ''
607      or $mac        eq ''
608      or $comment    eq '';
609
610   my $computer_db = ipamdb_load($COMPUTER_YAML);
611   add_float($computer_db, $pool, $domainset, $mac, $comment);
612   }
613
614#-------------------------------------------------------------------------------
615
616sub cmd_add_static {
617   local @ARGV = @_;
618
619   my $help = get_cmd_name();
620   my ($hostname, $domainset, $ip, $mac, $comment);
621
622   GetOptions(
623      'hostname|h=s'    => \$hostname,
624      'domainset|d=s'   => \$domainset,
625      'ip|i=s'          => \$ip,
626      'mac|m=s'         => \$mac,
627      'comment|c=s'     => \$comment,
628      );
629
630   ($hostname, $domainset) = split /\./, $hostname, 2 if $hostname =~ m/\./;
631   exit_on_error_option($help)
632      if $hostname   eq ''
633      or $domainset  eq ''
634      or $ip         eq ''
635      or $mac        eq ''
636      or $comment    eq '';
637
638   my $computer_db = ipamdb_load($COMPUTER_YAML);
639   add_static($computer_db, $hostname, $domainset, $ip, $mac, $comment);
640   }
641
642#-------------------------------------------------------------------------------
643# No real computer, just an entry A in DNS with virtual MAC
644
645sub cmd_add_virtual {
646   local @ARGV = @_;
647
648   my $help = get_cmd_name();
649   my ($hostname, $domainset, $ip, $comment);
650
651   GetOptions(
652      'hostname|h=s'    => \$hostname,
653      'domainset|d=s'   => \$domainset,
654      'ip|i=s'          => \$ip,
655      'comment|c=s'     => \$comment,
656      );
657
658   ($hostname, $domainset) = split /\./, $hostname, 2 if $hostname =~ m/\./;
659   exit_on_error_option($help)
660      if $hostname   eq ''
661      or $domainset  eq ''
662      or $ip         eq ''
663      or $comment    eq '';
664
665   my $computer_db = ipamdb_load($COMPUTER_YAML);
666
667   $comment = normalize_comment($comment);
668   my $timestamp = time;
669
670   control_exist_domainset($computer_db, $domainset)           or exit;
671   control_exist_hostname($computer_db, $domainset, $hostname) or die "Error: Hostname already exist in domain set attachement $domainset: $hostname\n";
672   control_syntax_ip($ip)                                      or exit;
673   control_exist_ip($computer_db, $ip)                         or die "Error: IP address already exist in domain set attachement $domainset: $ip.\n";
674   control_syntax_comment($comment)                            or exit;
675
676   my $mac = join ':', 'FF', 'FF', map({sprintf("%02X", $_)} split(/\./, $ip));
677   control_syntax_mac_address($mac)             or exit;
678   control_exist_mac($computer_db, $mac)         or die "Error: Virtual Physical MAC address already exists: $mac\n";
679
680   push @{$computer_db->{$domainset}}, { $mac => {
681      'hostname'     => $hostname,
682      'ip'           => $ip,
683      'address_type' => 'static',
684      'enabled'      => 'yes',
685      'create_time'  => $timestamp,
686      'modify_time'  => $timestamp,
687      'comment'      => $comment,
688      }};
689   print "Add the virtual computer: $hostname, IP: $ip, Domain Set: $domainset\n";
690
691   ipamdb_save("$COMPUTER_YAML", $computer_db);
692   }
693
694#-------------------------------------------------------------------------------
695# CHANGE computer section
696#-------------------------------------------------------------------------------
697
698#-------------------------------------------------------------------------------
699#Nom: change_mac
700#Description: change la mac adresse d'une machine en saisissant soit l'ip
701#             soit le nom de la mahcine et spécifiant le domaine
702#--- usage: ddt change_mac -d legi-sector03 -h meolpacif -m 00:18:F3:03:6F:66
703#--- usage: ddt change_mac -d legi-sector03 -i 194.254.66.187 -m 00:18:F3:03:6F:66
704
705sub change_mac {
706   my ($hostname, $domainset, $ip, $mac) = @_;
707
708   my $computer_db = ipamdb_load($COMPUTER_YAML);
709
710   $mac = normalize_mac_address($mac);
711   control_exist_domainset($computer_db, $domainset)  or exit;
712   control_syntax_mac_address($mac)                   or exit;
713   control_exist_mac($computer_db, $mac)              or die "Error: Physical MAC address already exists: $mac\n";
714   if ($ip ne '') {
715      control_syntax_ip($ip) or exit;
716      if ( control_exist_ip($computer_db, $ip) == 1 ) {
717         print "Error: Unkown IP address: $ip\n";
718         exit;
719         }
720      my @domainsetdb = @{$computer_db->{$domainset}};
721      my $computer_index = 0;
722      LOOP_ON_COMPUTER:
723      for my $computer (@domainsetdb) {
724         my ($mac_address, $attribute) = %{$computer};
725
726         $computer_index++ and next LOOP_ON_COMPUTER if $attribute->{'ip'} ne $ip;
727
728         $attribute->{'modify_time'} = time;
729         $computer_db->{$domainset}[$computer_index] = { $mac => $attribute };
730         ipamdb_save("$COMPUTER_YAML", $computer_db);
731         print "Info: Update host $hostname MAC: $mac IP: $ip [OK]\n";
732         exit;
733         }
734      }
735   elsif ($hostname ne '') {
736      if ( control_exist_hostname($computer_db, $domainset, $hostname) == 1 ) {
737         die "Error: Unkown host: $hostname, in domain set: $domainset\n";
738         }
739      my @domainsetdb = @{$computer_db->{$domainset}};
740      my $computer_index = 0;
741      LOOP_ON_COMPUTER:
742      for my $computer (@domainsetdb) {
743         my ($mac_address, $attribute) = %{$computer};
744
745         $computer_index++ and next LOOP_ON_COMPUTER if $attribute->{'hostname'} ne $hostname;
746
747         $attribute->{'modify_time'} = time;
748         $computer_db->{$domainset}[$computer_index] = { $mac => $attribute };
749         ipamdb_save("$COMPUTER_YAML", $computer_db);
750         print "Info: Update host $hostname MAC: $mac IP: $ip [OK]\n";
751         exit;
752         }
753      }
754   }
755
756#-------------------------------------------------------------------------------
757#Nom: change_ip
758#Description: change l'adresse IP d'une machine en saisissant le nom de la machine
759#             et le domaine
760
761sub change_ip {
762   my ($hostname, $domainset, $ip) = @_;
763
764   my $computer_db = ipamdb_load($COMPUTER_YAML);
765
766   control_exist_domainset($computer_db, $domainset) or exit;
767   if ( control_exist_hostname($computer_db, $domainset, $hostname) == 1 ) {
768      die "Error: Unkown host: $hostname, in domain set: $domainset\n";
769      }
770   control_syntax_ip($ip) or exit;
771   control_exist_ip($computer_db, $ip) or die "Error: IP address already exist in domain set attachement $domainset: $ip\n";
772
773   my @domainsetdb = @{$computer_db->{$domainset}};
774
775   LOOP_ON_COMPUTER:
776   for my $computer (@domainsetdb) {
777      my ($mac_address, $attribute) = %{$computer};
778     
779      next LOOP_ON_COMPUTER if $attribute->{'hostname'} ne $hostname;
780 
781      if ($attribute->{'address_type'} eq 'pool-dhcp') {
782         die "Error: Host $hostname from domain set $domainset belongs to a a pool [FAILED]" .
783            " ... use 'del-float' command before";
784         }
785
786      $attribute->{'modify_time'} = time;
787      $attribute->{'ip'}          = $ip;
788      ipamdb_save("$COMPUTER_YAML", $computer_db);
789      print "Info: Update host $hostname MAC: $mac_address IP: $ip [OK]\n";
790      exit;
791      }
792   }
793
794#-------------------------------------------------------------------------------
795#Nom: change_host
796#Description: change le computer hostname en saisissant l'IP et le domaine
797
798sub change_host {
799   my ($hostname, $domainset, $ip) = @_;
800
801   my $computer_db = ipamdb_load($COMPUTER_YAML);
802
803   control_exist_domainset($computer_db, $domainset) or exit;
804   control_syntax_ip($ip)   or exit;
805   if ( control_exist_ip($computer_db, $ip) == 1 ) {
806      die "Error: Unkown IP address: $ip\n";
807      }
808   control_exist_hostname($computer_db, $domainset, $hostname) or die "Error: Hostname already exist in domain set attachement $domainset: $hostname\n";
809
810   my @domainsetdb = @{$computer_db->{$domainset}};
811
812   LOOP_ON_COMPUTER:
813   for my $computer (@domainsetdb) {
814      my ($mac_address, $attribute) = %{$computer};
815
816      next LOOP_ON_COMPUTER if $attribute->{'ip'} ne $ip;
817
818      $attribute->{'modify_time'} = time;
819      $attribute->{'hostname'}    = $hostname;
820      ipamdb_save("$COMPUTER_YAML", $computer_db);
821      print "Info: Update host $hostname MAC: $mac_address IP: $ip [OK]\n";
822      exit;
823      }
824
825   die "Error: Failed to update hostname $hostname [FAILED]\n" .
826      " ... no IP $ip belongs to the domain set $domainset\n";
827   }
828
829#--------------------------------------------------------------------------------
830
831sub cmd_change_mac {
832   local @ARGV = @_;
833
834   my $help = get_cmd_name();
835   my ($hostname, $domainset, $ip, $mac);
836
837   GetOptions(
838      'hostname|h=s'    => \$hostname,
839      'domainset|d=s'   => \$domainset,
840      'ip|i=s'          => \$ip,
841      'mac|m=s'         => \$mac,
842      );
843
844   ($hostname, $domainset) = split /\./, $hostname, 2 if $hostname =~ m/\./;
845   exit_on_error_option($help)
846      if $domainset  eq ''
847      or $mac        eq '';
848   exit_on_error_option($help)
849      if $hostname   ne ''
850      and $ip        ne '';
851
852   change_mac($hostname, $domainset, $ip, $mac);
853   }
854
855#--------------------------------------------------------------------------------
856
857sub cmd_change_ip {
858   local @ARGV = @_;
859
860   my $help = get_cmd_name();
861   my ($hostname, $domainset, $ip);
862
863   GetOptions(
864      'hostname|h=s'    => \$hostname,
865      'domainset|d=s'   => \$domainset,
866      'ip|i=s'          => \$ip,
867      );
868
869   ($hostname, $domainset) = split /\./, $hostname, 2 if $hostname =~ m/\./;
870   exit_on_error_option($help)
871      if $hostname   eq ''
872      or $domainset  eq ''
873      or $ip         eq '';
874
875   change_ip($hostname, $domainset, $ip);
876   }
877
878#--------------------------------------------------------------------------------
879
880sub cmd_change_host {
881   local @ARGV = @_;
882
883   my $help = get_cmd_name();
884   my ($hostname, $domainset, $ip);
885
886   GetOptions(
887      'hostname|h=s'    => \$hostname,
888      'domainset|d=s'   => \$domainset,
889      'ip|i=s'          => \$ip,
890      );
891
892   ($hostname, $domainset) = split /\./, $hostname, 2 if $hostname =~ m/\./;
893   exit_on_error_option($help)
894      if $hostname   eq ''
895      or $domainset  eq ''
896      or $ip         eq '';
897
898   change_host($hostname, $domainset, $ip);
899   }
900
901#--------------------------------------------------------------------------------
902
903sub cmd_change_comment {
904   local @ARGV = @_;
905
906   my $help = get_cmd_name();
907   my ($domainset, $mac, $comment);
908
909   GetOptions(
910      'domainset|d=s'   => \$domainset,
911      'mac|m=s'         => \$mac,
912      'comment|c=s'     => \$comment,
913      );
914
915   exit_on_error_option($help)
916      if $domainset  eq ''
917      or $mac        eq ''
918      or $comment    eq '';
919
920   $mac     = normalize_mac_address($mac);
921   $comment = normalize_comment($comment);
922
923   my $computer_db = ipamdb_load($COMPUTER_YAML);
924
925   control_exist_domainset($computer_db, $domainset)  or exit;
926   control_syntax_mac_address($mac)                   or exit;
927   control_syntax_comment($comment)                   or exit;
928
929   my @domainsetdb = @{$computer_db->{$domainset}};
930
931   LOOP_ON_COMPUTER:
932   for my $computer (@domainsetdb) {
933      my ($mac_address, $attribute) = %{$computer};
934
935      next LOOP_ON_COMPUTER if $mac_address ne $mac;
936
937      $attribute->{'modify_time'} = time;
938      $attribute->{'comment'}     = $comment;
939      ipamdb_save("$COMPUTER_YAML", $computer_db);
940      exit;
941      }
942   die "Error : Host $mac comment [FAILED]\n" .
943      " ... No MAC: $mac belongs to the domaine set $domainset.\n";
944   }
945
946#--------------------------------------------------------------------------------
947
948sub cmd_change_domainset {
949   local @ARGV = @_;
950
951   my $help = get_cmd_name();
952   my ($domainset, $ip, $mac);
953
954   GetOptions(
955      'domainset|d=s'   => \$domainset,
956      'ip|i=s'          => \$ip,
957      'mac|m=s'         => \$mac,
958      );
959
960   exit_on_error_option($help)
961      if $domainset  eq ''
962      or $ip         eq ''
963      or $mac        eq '';
964
965   $mac = normalize_mac_address($mac);
966
967   my $computer_db = ipamdb_load($COMPUTER_YAML);
968
969   control_exist_domainset($computer_db, $domainset)   or exit;
970   control_syntax_ip($ip)                             or exit;
971   control_syntax_mac_address($mac)                   or exit;
972
973   LOOP_ON_DOMAINSET:
974   for my $domainset_current (keys %{$computer_db}) {
975      next if $domainset_current eq 'dset';
976      next if $domainset_current eq 'pool';
977      next if $domainset_current eq 'pxe';
978      next if $domainset_current eq 'tag';
979      next if $domainset_current eq 'version';
980
981      my @domainsetdb = @{$computer_db->{$domainset_current}};
982      my $computer_index = 0;
983      LOOP_ON_COMPUTER:
984      for my $computer (@domainsetdb) {
985         my ($mac_address, $attribute) = %{$computer};
986
987         $computer_index++ and next LOOP_ON_COMPUTER if $mac_address ne $mac;
988         next LOOP_ON_DOMAINSET if $attribute->{'ip'} ne $ip;
989
990         $attribute->{'modify_time'} = time;
991         splice(@{$computer_db->{$domainset_current}}, $computer_index => 1);
992         push @{$computer_db->{$domainset}}, { $mac => $attribute };
993
994         ipamdb_save("$COMPUTER_YAML", $computer_db);
995         exit;
996         }
997      }
998   die "Error: Update of domain set $domainset [FAILED]\n" .
999      " ... MAC $mac and IP $ip don't exists in the database\n";
1000   }
1001
1002#--------------------------------------------------------------------------------
1003
1004sub cmd_change_tag {
1005   local @ARGV = @_;
1006
1007   my $help = get_cmd_name();
1008   my ($hostname, $domainset, $ip, $mac, $tags);
1009
1010   GetOptions(
1011      'hostname|h=s'    => \$hostname,
1012      'domainset|d=s'   => \$domainset,
1013      'ip|i=s'          => \$ip,
1014      'mac|m=s'         => \$mac,
1015      'tag|t=s'         => \$tags,
1016      );
1017
1018   ($hostname, $domainset) = split /\./, $hostname, 2 if $hostname =~ m/\./;
1019
1020   exit_on_error_option($help)
1021      if $domainset  eq ''
1022      or $tags       eq '';
1023   exit_on_error_option($help)
1024      if $mac        eq ''
1025      and $hostname  eq ''
1026      and $ip        eq '';
1027
1028   $mac = normalize_mac_address($mac);
1029
1030   my $computer_db = ipamdb_load($COMPUTER_YAML);
1031
1032   if ($tags !~ m/^ (?:\w+,)* \w+ $/xms) {
1033      die "Error: Bad format for tags (comma separated list): $tags\n";
1034      }
1035
1036   for my $tag (split/,/, $tags) {
1037      next if $tag eq 'universal';
1038      die "Error: TAG doesn't exist in the database. Create it before with create_tag: $tag\n" if not exists $computer_db->{'tag'}{$tag};
1039      }
1040
1041   control_exist_domainset($computer_db, $domainset) or exit;
1042
1043   $mac = get_mac_from_ip($computer_db, $domainset, $ip, $mac)             if $ip ne '';
1044   $mac = get_mac_from_hostname($computer_db, $domainset, $hostname, $mac) if $hostname ne '';
1045   control_syntax_mac_address($mac) or exit;
1046
1047   LOOP_ON_COMPUTER:
1048   for my $computer (@{$computer_db->{$domainset}}) {
1049      my ($mac_address, $attribute) = %{$computer};
1050
1051      next LOOP_ON_COMPUTER if $mac_address ne $mac;
1052
1053      $attribute->{'tag'}         = $tags;
1054      $attribute->{'modify_time'} = time;
1055
1056      delete $attribute->{'tag'} if $tags eq 'universal';
1057      ipamdb_save("$COMPUTER_YAML", $computer_db);
1058      exit;
1059      }
1060   print "Mise à jour du commentaire de la machine [FAILED]\n";
1061   print "L'adresse MAC: $mac n'existe pas dans le domaine: $domainset.\n";
1062   }
1063
1064#-------------------------------------------------------------------------------
1065# ACTIVATION section
1066#-------------------------------------------------------------------------------
1067
1068#-------------------------------------------------------------------------------
1069#Nom: disable_pc
1070#Description: désactive une machine (du DHCP ou en IP statique, et du DNS) (champs enabled=non)
1071
1072sub disable_pc {
1073   my ($hostname, $domainset, $ip) = @_;
1074
1075   my $computer_db = ipamdb_load($COMPUTER_YAML);
1076
1077   if ($ip ne '') { # disable by IP
1078      control_syntax_ip($ip);
1079      if ( control_exist_ip($computer_db, $ip) == 1 ) {
1080         die "Error: Unkown IP address: $ip [FAILED]\n";
1081         }
1082
1083      for my $domainset_current (keys %{$computer_db}) {
1084         next if $domainset_current eq 'dset';
1085         next if $domainset_current eq 'pool';
1086         next if $domainset_current eq 'pxe';
1087         next if $domainset_current eq 'tag';
1088         next if $domainset_current eq 'version';
1089
1090         my @domainsetdb = @{$computer_db->{$domainset_current}};
1091         LOOP_ON_COMPUTER:
1092         for my $computer (@domainsetdb) {
1093            my ($mac_address, $attribute) = %{$computer};
1094
1095            next LOOP_ON_COMPUTER if $attribute->{'ip'} ne $ip;
1096
1097            if ($attribute->{'enabled'} eq 'no') {
1098               print "Info: IP $ip from domain set $domainset_current is already disable [OK]" .
1099                  " ... Status: $attribute->{'enabled'}\n";
1100               exit;
1101               }
1102
1103            my $timestamp = time;
1104            $attribute->{'modify_time'} = $timestamp;
1105            $attribute->{'enabled'}     = 'no';
1106            ipamdb_save("$COMPUTER_YAML", $computer_db);
1107            print "Info: Disabling IP $ip from domain set $domainset_current [OK]" .
1108               " ... Status: $attribute->{'enabled'}\n";
1109            exit;
1110            }
1111         }
1112      }
1113   else { # disable by Hostname
1114      control_exist_domainset($computer_db, $domainset);
1115      if ( control_exist_hostname($computer_db, $domainset, $hostname) == 1 ) {
1116         die "Error: Unkown host: $hostname, in domain set: $domainset [FAILED]\n";
1117         }
1118
1119      LOOP_ON_COMPUTER:
1120      for my  $computer (@{$computer_db->{$domainset}}) {
1121         my ($mac_address, $attribute) = %{$computer};
1122
1123         next LOOP_ON_COMPUTER if $attribute->{'hostname'} ne $hostname;
1124
1125         if ($attribute->{'address_type'} eq 'pool-dhcp') {
1126            die "Error: Host $hostname from domain set $domainset belongs to a a pool [FAILED]" .
1127               " ... use 'disable-float' command instead";
1128            }
1129
1130         if ($attribute->{'enabled'} eq 'no') {
1131            print "Info: Host $hostname from domain set $domainset is already disable [OK]" .
1132               " ... Status: $attribute->{'enabled'}\n";
1133            exit;
1134            }
1135
1136         my $timestamp = time;
1137         $attribute->{'modify_time'} = $timestamp;
1138         $attribute->{'enabled'}     = 'no';
1139         ipamdb_save("$COMPUTER_YAML", $computer_db);
1140         print "Info: Disabling host $hostname from domain set $domainset [OK]" .
1141            " ... Status: $attribute->{'enabled'}\n";
1142         exit;
1143         }
1144      }
1145   }
1146
1147#-------------------------------------------------------------------------------
1148
1149sub disable_float {
1150   my ($pool, $mac) = @_;
1151
1152   my $computer_db = ipamdb_load($COMPUTER_YAML);
1153
1154   my $computer_index;
1155   if ( control_exist_mac($computer_db, $mac) == 1 ) {
1156      die "Error: Unkown physical MAC address: $mac [FAILED]\n";
1157      }
1158
1159   for my $domainset_current (keys %{$computer_db}) {
1160      next if $domainset_current eq 'dset';
1161      next if $domainset_current eq 'pool';
1162      next if $domainset_current eq 'pxe';
1163      next if $domainset_current eq 'tag';
1164      next if $domainset_current eq 'version';
1165
1166      my @domainsetdb = @{$computer_db->{$domainset_current}};
1167
1168      LOOP_ON_COMPUTER:
1169      for my $computer (@domainsetdb) {
1170         my ($mac_address, $attribute) = %{$computer};
1171         next LOOP_ON_COMPUTER if $mac_address ne $mac;
1172
1173         if ($attribute->{'ip'} eq $pool) {
1174            if ($attribute->{'enabled'} eq 'no') {
1175               print "Info: Host $mac from pool $pool is already disable [OK]" .
1176                  " ... Status: $attribute->{'enabled'}\n";
1177               exit;
1178               }
1179            my $timestamp = time;
1180            $attribute->{'modify_time'} = $timestamp;
1181            $attribute->{'enabled'}     = 'no';
1182            ipamdb_save("$COMPUTER_YAML", $computer_db);
1183            print "Info: Disabling host $mac from pool $pool [OK]" .
1184               " ... Status: $attribute->{'enabled'}\n";
1185            exit;
1186            }
1187         else {
1188            die "Error: Host disable $mac [FAILED]" .
1189               " ... The host $mac does not belong to the $pool pool.\n";
1190            }
1191         }
1192      }
1193   }
1194
1195#-------------------------------------------------------------------------------
1196#Nom: enable_pc
1197#Description: active une machine désactivée(du DHCP ou en IP statique, et du DNS) (champs enabled=non)
1198
1199sub enable_pc {
1200   my ($hostname, $domainset, $ip) = @_;
1201
1202   my $computer_db = ipamdb_load($COMPUTER_YAML);
1203
1204   control_exist_domainset($computer_db, $domainset) or exit;
1205
1206   if ($ip ne '') { # enable by IP
1207      control_syntax_ip($ip);
1208      if ( control_exist_ip($computer_db, $ip) == 1 ) {
1209         print "Error: Unkown IP address: $ip\n";
1210         exit;
1211         }
1212
1213      for my $domainset_current (keys %{$computer_db}) {
1214         next if $domainset_current eq 'dset';
1215         next if $domainset_current eq 'pool';
1216         next if $domainset_current eq 'pxe';
1217         next if $domainset_current eq 'tag';
1218         next if $domainset_current eq 'version';
1219
1220         my @domainsetdb = @{$computer_db->{$domainset_current}};
1221
1222         LOOP_ON_COMPUTER:
1223         for my $computer (@domainsetdb) {
1224            my ($mac_address, $attribute) = %{$computer};
1225            if ($attribute->{'ip'} eq $ip) {
1226
1227               if ($attribute->{'enabled'} eq 'yes') {
1228                  print "Info: IP $ip belongs to domain set $domainset is already enable [OK]" .
1229                     " ... Status: $attribute->{'enabled'}\n";
1230                  exit;
1231                  }
1232
1233               my $timestamp = time;
1234               $attribute->{'modify_time'} = $timestamp;
1235               $attribute->{'enabled'}     = 'yes';
1236               ipamdb_save("$COMPUTER_YAML", $computer_db);
1237               print "Info: IP $ip is now enable [OK]" .
1238                  " ... Status: $attribute->{'enabled'}\n";
1239               exit;
1240               }
1241            }
1242         }
1243      }
1244   else { # enable by Hostname
1245      if ( control_exist_hostname($computer_db, $domainset, $hostname) == 1 ) {
1246         die "Error: Unkown host: $hostname, in domain set: $domainset\n";
1247         }
1248
1249      LOOP_ON_COMPUTER:
1250      for my $computer (@{$computer_db->{$domainset}}) {
1251         my ($mac_address, $attribute) = %{$computer};
1252         next LOOP_ON_COMPUTER if $attribute->{'hostname'} ne $hostname;
1253
1254         if ($attribute->{'address_type'} eq 'pool-dhcp') {
1255            die "Error: Host $hostname from domain set $domainset belongs to a a pool [FAILED]" .
1256               " ... use 'enable-float' command instead";
1257            }
1258
1259         if ($attribute->{'enabled'} eq 'yes') {
1260            print "Info: Host $hostname belongs to domain set $domainset is already enable [OK]" .
1261               " ... Status: $attribute->{'enabled'}\n";
1262            exit;
1263            }
1264
1265         my $timestamp = time;
1266         $attribute->{'modify_time'} = $timestamp;
1267         $attribute->{'enabled'}     = 'yes';
1268         ipamdb_save("$COMPUTER_YAML", $computer_db);
1269         print "Info: Host $hostname is now enable [OK]" .
1270            " ... Status: $attribute->{'enabled'}\n";
1271         exit;
1272         }
1273      }
1274   }
1275
1276#-------------------------------------------------------------------------------
1277
1278sub enable_float {
1279   my ($pool, $mac) = @_;
1280
1281   my $computer_db = ipamdb_load($COMPUTER_YAML);
1282
1283   if ( control_exist_mac($computer_db, $mac) == 1 ) {
1284      die "Error: Unkown physical MAC address: $mac [FAILED]\n";
1285      }
1286
1287   for my $domainset_current (keys %{$computer_db}) {
1288      next if $domainset_current eq 'dset';
1289      next if $domainset_current eq 'pool';
1290      next if $domainset_current eq 'pxe';
1291      next if $domainset_current eq 'tag';
1292      next if $domainset_current eq 'version';
1293
1294      my @domainsetdb = @{$computer_db->{$domainset_current}};
1295
1296      LOOP_ON_COMPUTER:
1297      for my $computer (@domainsetdb) {
1298         my ($mac_address, $attribute) = %{$computer};
1299         next LOOP_ON_COMPUTER if $mac_address ne $mac;
1300
1301         if ($attribute->{'ip'} ne $pool) {
1302            die "Error: Host enable $mac [FAILED]" .
1303               " ... The host $mac does not belong to the $pool pool.\n";
1304            }
1305
1306         if ($attribute->{'enabled'} eq 'yes') {
1307            print "Info: Host $mac from pool $pool is already enable [OK]" .
1308               " ... Status: $attribute->{'enabled'}\n";
1309            exit;
1310            }
1311
1312         my $timestamp = time;
1313         $attribute->{'modify_time'} = $timestamp;
1314         $attribute->{'enabled'}     = 'yes';
1315         ipamdb_save("$COMPUTER_YAML", $computer_db);
1316         print "Info: Enabling host $mac from pool $pool [OK]" .
1317            " ... Status: $attribute->{'enabled'}\n";
1318         exit;
1319         }
1320      }
1321   }
1322
1323#-------------------------------------------------------------------------------
1324
1325sub cmd_enable_pc {
1326   local @ARGV = @_;
1327
1328   my $help = get_cmd_name();
1329   my ($hostname, $domainset, $ip);
1330
1331   GetOptions(
1332      'hostname|h=s'    => \$hostname,
1333      'domainset|d=s'   => \$domainset,
1334      'ip|i=s'          => \$ip,
1335      );
1336
1337   ($hostname, $domainset) = split /\./, $hostname, 2 if $hostname =~ m/\./;
1338   exit_on_error_option($help)
1339      if $domainset  eq '';
1340   exit_on_error_option($help)
1341      if $hostname   eq ''
1342      and $ip        eq '';
1343   exit_on_error_option($help)
1344      if $hostname   ne ''
1345      and $ip        ne '';
1346
1347   enable_pc($hostname, $domainset, $ip);
1348   }
1349
1350#-------------------------------------------------------------------------------
1351
1352sub cmd_disable_pc {
1353   local @ARGV = @_;
1354
1355   my $help = get_cmd_name();
1356   my ($hostname, $domainset, $ip);
1357
1358   GetOptions(
1359      'hostname|h=s'    => \$hostname,
1360      'domainset|d=s'   => \$domainset,
1361      'ip|i=s'          => \$ip,
1362      );
1363
1364   ($hostname, $domainset) = split /\./, $hostname, 2 if $hostname =~ m/\./;
1365   exit_on_error_option($help)
1366      if $domainset  eq '';
1367   exit_on_error_option($help)
1368      if $hostname   eq ''
1369      and $ip        eq '';
1370   exit_on_error_option($help)
1371      if $hostname   ne ''
1372      and $ip        ne '';
1373
1374   disable_pc($hostname, $domainset, $ip);
1375   }
1376
1377#-------------------------------------------------------------------------------
1378
1379sub cmd_disable_float {
1380   local @ARGV = @_;
1381
1382   my $help = get_cmd_name();
1383   my ($pool, $mac);
1384
1385   GetOptions(
1386      'pool|p=s'  => \$pool,
1387      'mac|m=s'   => \$mac,
1388      );
1389
1390   ($pool) = split /\./, $pool, 2 if $pool =~ m/\./;
1391   exit_on_error_option($help)
1392      if $pool eq ''
1393      or $mac  eq '';
1394
1395   disable_float($pool, $mac);
1396   }
1397
1398#-------------------------------------------------------------------------------
1399
1400sub cmd_enable_float {
1401   local @ARGV = @_;
1402
1403   my $help = get_cmd_name();
1404   my ($pool, $mac);
1405
1406   GetOptions(
1407      'pool|p=s'  => \$pool,
1408      'mac|m=s'   => \$mac,
1409      );
1410
1411   ($pool) = split /\./, $pool, 2 if $pool =~ m/\./;
1412   exit_on_error_option($help)
1413      if $pool eq ''
1414      or $mac  eq '';
1415
1416   enable_float($pool, $mac);
1417   }
1418
1419#-------------------------------------------------------------------------------
1420# DELETE section
1421#-------------------------------------------------------------------------------
1422
1423#-------------------------------------------------------------------------------
1424#Nom: del_pc
1425#Description: supprime une machine en DHCP ou en IP statique.
1426
1427sub del_pc {
1428   my ($hostname, $domainset, $ip) = @_;
1429
1430   my $computer_db = ipamdb_load($COMPUTER_YAML);
1431
1432   control_exist_domainset($computer_db, $domainset) or exit;
1433   if ($ip ne '') { # delete by IP
1434      if ( control_exist_ip($computer_db, $ip) == 1 ) {
1435         die "Error: Unkown IP address: $ip\n";
1436         }
1437
1438      my $computer_index = 0;
1439
1440      LOOP_ON_COMPUTER:
1441      for my $computer (@{$computer_db->{$domainset}}) {
1442         my ($mac_address, $attribute) = %{$computer};
1443
1444         $computer_index++ and next LOOP_ON_COMPUTER if $attribute->{'ip'} ne $ip;
1445         
1446         splice(@{$computer_db->{$domainset}}, $computer_index => 1);
1447         ipamdb_save("$COMPUTER_YAML", $computer_db);
1448         print "Info: Host $ip has been removed from the domain set $domainset [OK]\n";
1449         exit;
1450         }
1451      }
1452   else {
1453      if ( control_exist_hostname($computer_db, $domainset, $hostname) == 1 ) {
1454         die "Error: Unkown host: $hostname, in domain set: $domainset\n";
1455         }
1456
1457      my $computer_index = 0;
1458
1459      LOOP_ON_COMPUTER:
1460      for my $computer (@{$computer_db->{$domainset}}) {
1461         my ($mac_address, $attribute) = %{$computer};
1462
1463         $computer_index++ and next LOOP_ON_COMPUTER if $attribute->{'hostname'} ne $hostname;
1464
1465         if ($attribute->{'address_type'} eq 'pool-dhcp') {
1466            die "Error: Host remove $hostname from the domain set $domainset [FAILED]" .
1467               " ... The host $hostname belongs to a DHCP pool.\n";
1468            }
1469
1470         splice(@{$computer_db->{$domainset}}, $computer_index => 1);
1471         ipamdb_save("$COMPUTER_YAML", $computer_db);
1472         print "Info: Host $hostname has been removed from the domain set $domainset [OK]\n";
1473         exit;
1474         }
1475      }
1476   }
1477
1478#-------------------------------------------------------------------------------
1479#Nom: del_float
1480#Description: supprime une machine d'un pool DHCP
1481
1482sub del_float {
1483   my ($pool, $mac) = @_;
1484
1485   my $computer_db = ipamdb_load($COMPUTER_YAML);
1486
1487   if ( control_exist_mac($computer_db, $mac) == 1 ) {
1488      print "Adresse MAC $mac non trouvée.\n";
1489      exit;
1490      }
1491
1492   for my $domainset_current (keys %{$computer_db}) {
1493      next if $domainset_current eq 'dset';
1494      next if $domainset_current eq 'pool';
1495      next if $domainset_current eq 'pxe';
1496      next if $domainset_current eq 'tag';
1497      next if $domainset_current eq 'version';
1498
1499      my @domainsetdb = @{$computer_db->{$domainset_current}};
1500
1501      my $computer_index = 0;
1502
1503      LOOP_ON_COMPUTER:
1504      for my $computer (@domainsetdb) {
1505         my ($mac_address, $attribute) = %{$computer};
1506
1507         $computer_index++ and next LOOP_ON_COMPUTER if $mac_address ne $mac;
1508
1509         if ($attribute->{'ip'} ne $pool) {
1510            die "Error: Host remove $mac [FAILED]" .
1511               " ... The host $mac does not belong to the $pool pool.\n";
1512            }
1513
1514         splice(@{$computer_db->{$domainset_current}}, $computer_index => 1);
1515         ipamdb_save("$COMPUTER_YAML", $computer_db);
1516         print "Info: remove host $mac from the pool $pool [OK]\n";
1517         exit;
1518         }
1519      }
1520   }
1521
1522#-------------------------------------------------------------------------------
1523
1524sub cmd_del_pc {
1525   local @ARGV = @_;
1526
1527   my $help = get_cmd_name();
1528   my ($hostname, $domainset, $ip);
1529
1530   GetOptions(
1531      'hostname|h=s'    => \$hostname,
1532      'domainset|d=s'   => \$domainset,
1533      'ip|i=s'          => \$ip,
1534      );
1535
1536   ($hostname, $domainset) = split /\./, $hostname, 2 if $hostname =~ m/\./;
1537   exit_on_error_option($help)
1538      if $domainset  eq '';
1539   exit_on_error_option($help)
1540      if $hostname   eq ''
1541      and $ip        eq '';
1542   exit_on_error_option($help)
1543      if $hostname   ne ''
1544      and $ip        ne '';
1545
1546   del_pc($hostname, $domainset, $ip);
1547   }
1548
1549#-------------------------------------------------------------------------------
1550
1551sub cmd_del_float {
1552   local @ARGV = @_;
1553
1554   my $help = get_cmd_name();
1555   my ($pool, $mac);
1556
1557   GetOptions(
1558      'pool|p=s'        => \$pool,
1559      'mac|m=s'         => \$mac,
1560      );
1561
1562   ($pool) = split /\./, $pool, 2 if $pool =~ m/\./;
1563   exit_on_error_option($help)
1564      if $pool eq ''
1565      or $mac  eq '';
1566
1567   del_float($pool, $mac);
1568   }
1569
1570#-------------------------------------------------------------------------------
1571# DOMAIN SET section
1572#-------------------------------------------------------------------------------
1573
1574sub cmd_create_domainset {
1575   local @ARGV = @_;
1576
1577   my $help = get_cmd_name();
1578   my ($domainset, $dns_extension, $comment);
1579
1580   GetOptions(
1581      'domainset|d=s'      => \$domainset,
1582      'dns-extension|e=s'  => \$dns_extension,
1583      'comment|c=s'        => \$comment,
1584      );
1585
1586   exit_on_error_option($help)
1587      if $domainset     eq ''
1588      or $dns_extension eq ''
1589      or $comment       eq '';
1590
1591   $comment = normalize_comment($comment);
1592
1593   my $computer_db = ipamdb_load($COMPUTER_YAML);
1594
1595   $computer_db->{'dset'} ||= {};
1596   die "Error: Domain Set already exists: $domainset\n" if exists $computer_db->{'dset'}{$domainset};
1597
1598   control_syntax_comment($comment)    or exit;
1599
1600   my $timestamp = time;
1601   $computer_db->{'dset'}{$domainset} = {
1602      'dns_extension'   => $dns_extension,
1603      'comment'         => $comment,
1604      'create_time'     => $timestamp,
1605      'modify_time'     => $timestamp,
1606      };
1607   $computer_db->{$domainset} ||= []; # Create empty Domain Set computer list by default
1608   ipamdb_save("$COMPUTER_YAML", $computer_db);
1609   }
1610
1611#-------------------------------------------------------------------------------
1612# POOL section
1613#-------------------------------------------------------------------------------
1614
1615#-------------------------------------------------------------------------------
1616#Nom: create_pool
1617#Description: crée un pool dans le fichier de données YAML et dans le DHCP.
1618#
1619#Commentaires: il y a un petit bug si jamais on rentre que des adresses ip qui existent déjà.
1620#              Le pool est créé mais sans adresses ip.
1621
1622sub cmd_create_pool {
1623   local @ARGV = @_;
1624
1625   my $help = get_cmd_name();
1626   my ($pool, $domainset, $file_pool, $ipaddress_pool);
1627
1628   GetOptions(
1629      'pool|p=s'           => \$pool,
1630      'domainset|d=s'      => \$domainset,
1631      'file-pool|f=s'      => \$file_pool,
1632      'ipaddress-pool|i=s' => \$ipaddress_pool,
1633      );
1634
1635   exit_on_error_option($help)
1636      if $pool             eq ''
1637      or $domainset        eq ''
1638      or $file_pool        eq ''
1639      or $ipaddress_pool   eq '';
1640
1641   my $computer_db = ipamdb_load($COMPUTER_YAML);
1642
1643   if ($computer_db->{'pool'}) {
1644      die "Error: Pool already exists: $pool\n" if exists $computer_db->{'pool'}{$pool};
1645      }
1646
1647   #--- control if the domain's pool exist ---#
1648   control_exist_domainset($computer_db, $domainset) or exit;
1649
1650   my @ip_list = ();
1651   #---control if address exist ---#
1652   if ($ipaddress_pool =~ /,/) {
1653      for my $ip (split /,/, $ipaddress_pool) {
1654         if ($ip =~ /-/) {
1655            my ($ip1, $ip2, $ip3, $range) = split /\./, $ip;
1656            my ($first, $last) = split /-/, $range;
1657            for (my $cpt = $first; $cpt <= $last; $cpt++) {
1658               my $ip_loc = "$ip1.$ip2.$ip3.$cpt";
1659               control_syntax_ip($ip_loc) or die "Error: Bad IP syntax: $ip_loc\n";
1660               control_exist_ip($computer_db, $ip_loc) or die "Error: IP address already exists: $ip_loc\n";
1661               push @ip_list, $ip_loc;
1662               }
1663            }
1664         else {
1665            control_syntax_ip($ip) or next;
1666            if ( control_exist_ip($computer_db, $ip) == 0 ) {
1667               print "L'adresse IP $ip existe déjà\n";
1668               next;
1669               }
1670            push @ip_list, $ip;
1671            }
1672         }
1673      }
1674
1675   my $timestamp = time;
1676   $computer_db->{'pool'}{$pool} = {
1677      'ip'          => [@ip_list],
1678      'enabled'     => 'yes',
1679      'create_time' => $timestamp,
1680      'modify_time' => $timestamp,
1681      'file'        => $file_pool,
1682      'domain'      => $domainset,
1683      };
1684   ipamdb_save("$COMPUTER_YAML", $computer_db);
1685   }
1686
1687#-------------------------------------------------------------------------------
1688
1689sub cmd_show_pool {
1690   local @ARGV = @_;
1691
1692   my ($no_header);
1693
1694   GetOptions(
1695      'no-header|H' => \$no_header,
1696      );
1697
1698   my $computer_db = ipamdb_load($COMPUTER_YAML);
1699
1700   printf "%-17s %-17s %s\n", 'Pool', 'File', 'DNS-Domain' if not $no_header;
1701   LOOP_ON_PXE:
1702   for my $pool ( keys %{$computer_db->{'pool'}} ) {
1703
1704      printf "%-17s %-17s %s\n",
1705         $pool,
1706         $computer_db->{'pool'}{$pool}{'file'},
1707         $computer_db->{'pool'}{$pool}{'domain'},
1708      }
1709   }
1710
1711#-------------------------------------------------------------------------------
1712# PXE section
1713#-------------------------------------------------------------------------------
1714
1715sub cmd_create_pxe {
1716   local @ARGV = @_;
1717
1718   my $help = get_cmd_name();
1719   my ($pxe_config, $ip_next_server, $filename, $comment);
1720
1721   GetOptions(
1722      'bootp|b=s'       => \$pxe_config,
1723      'next-server|n=s' => \$ip_next_server,
1724      'filename|f=s'    => \$filename,
1725      'comment|c=s'     => \$comment,
1726      );
1727
1728   exit_on_error_option($help)
1729      if $pxe_config       eq ''
1730      or $ip_next_server   eq ''
1731      or $filename         eq ''
1732      or $comment          eq '';
1733
1734   my $computer_db = ipamdb_load($COMPUTER_YAML);
1735
1736   $comment = normalize_comment($comment);
1737
1738   $computer_db->{'pxe'} ||= {};
1739   die "Error: PXE config already exists: $pxe_config\n" if exists $computer_db->{'pxe'}{$pxe_config};
1740
1741   control_syntax_ip($ip_next_server)  or die "Error: Bad IP syntax: $ip_next_server\n";
1742   control_syntax_comment($comment)    or exit;
1743
1744   my $timestamp = time;
1745   $computer_db->{'pxe'}{$pxe_config} = {
1746      'ip_next_server'  => $ip_next_server,
1747      'filename'        => $filename,
1748      'comment'         => $comment,
1749      'create_time'     => $timestamp,
1750      'modify_time'     => $timestamp,
1751      };
1752   ipamdb_save("$COMPUTER_YAML", $computer_db);
1753   }
1754
1755#-------------------------------------------------------------------------------
1756
1757sub cmd_remove_pxe {
1758   local @ARGV = @_;
1759
1760   my $help = get_cmd_name();
1761   my ($pxe_config);
1762
1763   GetOptions(
1764      'bootp|b=s' => \$pxe_config,
1765      );
1766
1767   exit_on_error_option($help)
1768      if $pxe_config eq '';
1769
1770   my $computer_db = ipamdb_load($COMPUTER_YAML);
1771
1772   $computer_db->{'pxe'} ||= {};
1773   die "Error: PXE config does not exist: $pxe_config\n" if not exists $computer_db->{'pxe'}{$pxe_config};
1774
1775   # Test if some computer use this config
1776   LOOP_ON_DOMAIN:
1777   for my $domainset_current (keys %{$computer_db}) {
1778      next if $domainset_current eq 'dset';
1779      next if $domainset_current eq 'pool';
1780      next if $domainset_current eq 'pxe';
1781      next if $domainset_current eq 'tag';
1782      next if $domainset_current eq 'version';
1783
1784      LOOP_ON_COMPUTER:
1785      for my $computer (@{$computer_db->{$domainset_current}}) {
1786         my ($mac_address, $attribute) = %{$computer};
1787
1788         if (exists $attribute->{'pxe_config'}) {
1789            my $hostname = $attribute->{'hostname'};
1790            die "Error: computer still use this PXE config: $hostname.$domainset_current $mac_address\n" if $pxe_config eq $attribute->{'pxe_config'};
1791            }
1792         }
1793      }
1794
1795   delete $computer_db->{'pxe'}{$pxe_config};
1796   ipamdb_save("$COMPUTER_YAML", $computer_db);
1797   }
1798
1799#--------------------------------------------------------------------------------
1800
1801sub cmd_show_pxe {
1802   local @ARGV = @_;
1803
1804   my ($no_header);
1805
1806   GetOptions(
1807      'no-header|H' => \$no_header,
1808      );
1809
1810   my $computer_db = ipamdb_load($COMPUTER_YAML);
1811
1812   printf "%-12s %-13s %-30s %s\n", 'PXE-Config', 'Next-Server', 'Filename', 'Comment' if not $no_header;
1813   LOOP_ON_PXE:
1814   for my $pxe_config ( keys %{$computer_db->{'pxe'}} ) {
1815      my $ip_next_server = $computer_db->{'pxe'}{$pxe_config}{'ip_next_server'};
1816      my $filename       = $computer_db->{'pxe'}{$pxe_config}{'filename'};
1817      my $comment        = $computer_db->{'pxe'}{$pxe_config}{'comment'};
1818
1819      printf "%-12s %-13s %-30s %s\n", $pxe_config, $ip_next_server, $filename, $comment;
1820      }
1821   }
1822
1823#-------------------------------------------------------------------------------
1824
1825sub cmd_enable_pxe {
1826   local @ARGV = @_;
1827
1828   my $help = get_cmd_name();
1829   my ($hostname, $domainset, $ip, $pxe_config);
1830
1831   GetOptions(
1832      'hostname|h=s'    => \$hostname,
1833      'domainset|d=s'   => \$domainset,
1834      'ip|i=s'          => \$ip,
1835      'bootp|b=s'       => \$pxe_config,
1836      );
1837
1838   ($hostname, $domainset) = split /\./, $hostname, 2 if $hostname =~ m/\./;
1839   exit_on_error_option($help)
1840      if $domainset  eq ''
1841      or $pxe_config eq '';
1842   exit_on_error_option($help)
1843      if $hostname   eq ''
1844      and $ip        eq '';
1845   exit_on_error_option($help)
1846      if $hostname   ne ''
1847      and $ip        ne '';
1848
1849   my $computer_db = ipamdb_load($COMPUTER_YAML);
1850
1851   die "Error: PXE config not exists: $pxe_config\n" if not exists $computer_db->{'pxe'}{$pxe_config};
1852
1853   control_exist_domainset($computer_db, $domainset) or exit;
1854   if ($ip ne '') {
1855      control_syntax_ip($ip);
1856      if ( control_exist_ip($computer_db, $ip) == 1 ) {
1857         die "Error: Unkown IP address: $ip\n";
1858         }
1859
1860      for my $domainset_current (keys %{$computer_db}) {
1861         next if $domainset_current eq 'dset';
1862         next if $domainset_current eq 'pool';
1863         next if $domainset_current eq 'pxe';
1864         next if $domainset_current eq 'tag';
1865         next if $domainset_current eq 'version';
1866
1867         my $computer_index = 0;
1868         for my $computer (@{$computer_db->{$domainset_current}}) {
1869            for my $id (keys %{$computer}) {
1870               if ($computer->{$id}->{'ip'} eq $ip) {
1871                  my $timestamp = time;
1872                  $computer_db->{$domainset_current}[$computer_index]->{$id}->{'modify_time'} = $timestamp;
1873                  $computer_db->{$domainset_current}[$computer_index]->{$id}->{'pxe_config'}  = $pxe_config;
1874                  print "IP Address: $ip, PXE enabled in config: $pxe_config\n";
1875                  ipamdb_save("$COMPUTER_YAML", $computer_db);
1876                  exit;
1877                  }
1878               $computer_index++;
1879               }
1880            }
1881         }
1882      }
1883   else {
1884      if ( control_exist_hostname($computer_db, $domainset, $hostname) == 1 ) {
1885         die "Error: Unkown host: $hostname, in domain set: $domainset\n";
1886         }
1887
1888      LOOP_ON_COMPUTER:
1889      for my $computer (@{$computer_db->{$domainset}}) {
1890         my ($mac_address, $attribute) = %{$computer};
1891         next LOOP_ON_COMPUTER if $attribute->{'hostname'} ne $hostname;
1892         
1893         if ($attribute->{'address_type'} eq 'pool-dhcp') {
1894            die "Error. Host $hostname ($domainset) in a pool. No PXE possible [FAILED]\n";
1895            }
1896
1897         $attribute->{'modify_time'} = time;
1898         $attribute->{'pxe_config'}  = $pxe_config;
1899         ipamdb_save("$COMPUTER_YAML", $computer_db);
1900         print "Info: Host $hostname ($domainset), PXE enabled in config: $pxe_config [OK]\n";
1901         exit;
1902         }
1903      }
1904   }
1905
1906#-------------------------------------------------------------------------------
1907
1908sub cmd_disable_pxe {
1909   local @ARGV = @_;
1910
1911   my $help = get_cmd_name();
1912   my ($hostname, $domainset, $ip);
1913
1914   GetOptions(
1915      'hostname|h=s'    => \$hostname,
1916      'domainset|d=s'   => \$domainset,
1917      'ip|i=s'          => \$ip,
1918      );
1919
1920   ($hostname, $domainset) = split /\./, $hostname, 2 if $hostname =~ m/\./;
1921   exit_on_error_option($help)
1922      if $domainset  eq '';
1923   exit_on_error_option($help)
1924      if $hostname   eq ''
1925      and $ip        eq '';
1926   exit_on_error_option($help)
1927      if $hostname   ne ''
1928      and $ip        ne '';
1929
1930   my $computer_db = ipamdb_load($COMPUTER_YAML);
1931
1932   control_exist_domainset($computer_db, $domainset) or exit;
1933   if ($ip ne '') {
1934      control_syntax_ip($ip);
1935      if ( control_exist_ip($computer_db, $ip) == 1 ) {
1936         die "Error: Unkown IP address: $ip\n";
1937         }
1938
1939      for my $domainset_current (keys %{$computer_db}) {
1940         next if $domainset_current eq 'dset';
1941         next if $domainset_current eq 'pool';
1942         next if $domainset_current eq 'pxe';
1943         next if $domainset_current eq 'tag';
1944         next if $domainset_current eq 'version';
1945
1946         LOOP_ON_COMPUTER:
1947         for my $computer (@{$computer_db->{$domainset_current}}) {
1948            my ($mac_address, $attribute) = %{$computer};
1949           
1950            next LOOP_ON_COMPUTER if $attribute->{'ip'} ne $ip;
1951            next LOOP_ON_COMPUTER if not exists $attribute->{'pxe_config'};
1952
1953            my $pxe_config = $attribute->{'pxe_config'};
1954            $attribute->{'modify_time'} = time;
1955            delete $attribute->{'pxe_config'};
1956            ipamdb_save("$COMPUTER_YAML", $computer_db);
1957            print "Info: IP Address: $ip, PXE disable from config: $pxe_config [OK]\n";
1958            exit;
1959            }
1960         }
1961      }
1962   else {
1963      if ( control_exist_hostname($computer_db, $domainset, $hostname) == 1 ) {
1964         die "Error: Unkown host: $hostname, in domain set: $domainset\n";
1965         }
1966
1967      LOOP_ON_COMPUTER:
1968      for my $computer (@{$computer_db->{$domainset}}) {
1969         my ($mac_address, $attribute) = %{$computer};
1970
1971         next LOOP_ON_COMPUTER if $attribute->{'hostname'} eq $hostname;
1972
1973         if ($attribute->{'address_type'} eq 'pool-dhcp') {
1974            die "Error. Host $hostname ($domainset) in a pool. No PXE possible [FAILED]\n";
1975            }
1976
1977         next LOOP_ON_COMPUTER if not exists $attribute->{'pxe_config'};
1978
1979         my $pxe_config = $attribute->{'pxe_config'};
1980         $attribute->{'modify_time'} = time;
1981         delete $attribute->{'pxe_config'};
1982         ipamdb_save("$COMPUTER_YAML", $computer_db);
1983         print "Info: Host $hostname ($domainset), PXE disable from config: $pxe_config [OK]\n";
1984         exit;
1985         }
1986      }
1987   }
1988
1989#-------------------------------------------------------------------------------
1990# TAG section
1991#-------------------------------------------------------------------------------
1992
1993sub cmd_create_tag {
1994   local @ARGV = @_;
1995
1996   my $help = get_cmd_name();
1997   my ($tag, $comment);
1998
1999   GetOptions(
2000      'tag|t=s'      => \$tag,
2001      'comment|c=s'  => \$comment,
2002      );
2003
2004   exit_on_error_option($help)
2005      if $tag     eq ''
2006      or $comment eq '';
2007
2008   my $computer_db = ipamdb_load($COMPUTER_YAML);
2009
2010   $comment = normalize_comment($comment);
2011
2012   $computer_db->{'tag'} ||= {};
2013   die "Error: TAG already exists: $tag\n" if exists $computer_db->{'tag'}{$tag};
2014
2015   die "Error: TAG 'universal' is intrinsic. It's not possible to create it.\n" if $tag eq 'universal';
2016
2017   if ($tag !~ m/^ \w+ $/xms) {
2018      die "Error: Bad format for TAG (alphanumeric string): $tag\n";
2019      }
2020
2021   control_syntax_comment($comment) or exit;
2022
2023   my $timestamp = time;
2024   $computer_db->{'tag'}{$tag} = {
2025      'comment'         => $comment,
2026      'create_time'     => $timestamp,
2027      'modify_time'     => $timestamp,
2028      };
2029   ipamdb_save("$COMPUTER_YAML", $computer_db);
2030   }
2031
2032#-------------------------------------------------------------------------------
2033
2034sub cmd_remove_tag {
2035   local @ARGV = @_;
2036
2037   my $help = get_cmd_name();
2038   my ($tag);
2039
2040   GetOptions(
2041      'tag|t=s' => \$tag,
2042      );
2043
2044   exit_on_error_option($help)
2045      if $tag eq '';
2046
2047   my $computer_db = ipamdb_load($COMPUTER_YAML);
2048
2049   $computer_db->{'tag'} ||= {};
2050   die "Error: TAG does not exist: $tag\n" if not exists $computer_db->{'tag'}{$tag};
2051
2052   # Test if some computer use this config
2053   LOOP_ON_DOMAIN:
2054   for my $domainset_current (keys %{$computer_db}) {
2055      next if $domainset_current eq 'dset';
2056      next if $domainset_current eq 'pool';
2057      next if $domainset_current eq 'pxe';
2058      next if $domainset_current eq 'tag';
2059      next if $domainset_current eq 'version';
2060
2061      LOOP_ON_COMPUTER:
2062      for my $computer (@{$computer_db->{$domainset_current}}) {
2063         my ($mac_address, $attribute) = %{$computer};
2064
2065         if (exists $attribute->{'tag'}) {
2066            my $hostname = $attribute->{'hostname'};
2067            die "Error: Computer still use this TAG: $hostname.$domainset_current $mac_address\n" if $tag eq $attribute->{'tag'};
2068            }
2069         }
2070      }
2071
2072   delete $computer_db->{'tag'}{$tag};
2073   ipamdb_save("$COMPUTER_YAML", $computer_db);
2074   }
2075
2076#--------------------------------------------------------------------------------
2077
2078sub cmd_show_tag {
2079   local @ARGV = @_;
2080
2081   my ($no_header);
2082
2083   GetOptions(
2084      'no-header|H' => \$no_header,
2085      );
2086
2087   my $computer_db = ipamdb_load($COMPUTER_YAML);
2088
2089   printf "%-12s %s\n", 'TAG', 'Comment' if not $no_header;
2090   LOOP_ON_TAG:
2091   for my $tag ( keys %{$computer_db->{'tag'}} ) {
2092      my $comment = $computer_db->{'tag'}{$tag}{'comment'};
2093
2094      printf "%-12s %s\n", $tag, $comment;
2095      }
2096   }
2097
2098#--------------------------------------------------------------------------------
2099# GLOBAL section
2100#--------------------------------------------------------------------------------
2101
2102sub cmd_upgrade_db {
2103   my $flag_change;
2104
2105   my $computer_db = ipamdb_load($COMPUTER_YAML);
2106
2107   LOOP_ON_DOMAIN:
2108   for my $domainset_current (keys %{$computer_db}) {
2109      next if $domainset_current eq 'dset';
2110      next if $domainset_current eq 'pool';
2111      next if $domainset_current eq 'pxe';
2112      next if $domainset_current eq 'tag';
2113      next if $domainset_current eq 'version';
2114
2115      my @domainsetdb = @{$computer_db->{$domainset_current}};
2116
2117      LOOP_ON_COMPUTER:
2118      for my $computer (@domainsetdb) {
2119         my ($mac_address, $attribute) = %{$computer};
2120         my $new_mac = normalize_mac_address($mac_address);
2121         print "perl -pi -e 's/$mac_address:/$new_mac:/' $COMPUTER_YAML\n" if "$mac_address" ne "$new_mac";
2122
2123         my $comment = $attribute->{'comment'};
2124         $comment =~ s/\s\s+/ /g and $flag_change++;
2125         $comment =~ s/^\s+\S//  and $flag_change++;
2126         $comment =~ s/\S\s+$//  and $flag_change++;
2127         $comment =~ s{^(\d\d\d\d)\/O(\d\/\d\d)}{$1/0$2} and $flag_change++;
2128         $comment =~ s{^(\d\d\d\d\/\d\d\/)O(\d)}{$1/0$2} and $flag_change++;
2129         $comment =~ s{^(\d\d\d\d)\/(\d\d)\/(\d\d)}{$1-$2-$3} and $flag_change++;
2130         if ($comment !~ m/^\d\d\d\d-\d\d-\d\d/) {
2131            print "# no date at beginning of comment $mac_address\n";
2132            }
2133
2134         $attribute->{'comment'} = $comment;
2135         }
2136      }
2137   print "# FLAG :$flag_change\n";
2138
2139   ipamdb_save("$COMPUTER_YAML", $computer_db) if $flag_change;
2140   }
2141
2142#--------------------------------------------------------------------------------
2143
2144sub cmd_show_domainset {
2145   local @ARGV = @_;
2146
2147   my ($no_header);
2148
2149   GetOptions(
2150      'no-header|H' => \$no_header,
2151      );
2152
2153   my $computer_db = ipamdb_load($COMPUTER_YAML);
2154
2155   my $tb_computer = Text::Table->new(
2156     {align  => 'left',   align_title => 'left',   title => 'DomainSet'},
2157     {is_sep => 1,        body        => '  '},
2158     {align  => 'left',   align_title => 'left',   title => 'DNS-Extension:'},
2159     {is_sep => 1,        body        => '  '},
2160     {align  => 'left',   align_title => 'left',   title => 'Date'},
2161     {align  => 'left',   align_title => 'left',   title => 'Comment'},
2162     );
2163
2164   LOOP_ON_DOMAIN:
2165   for my $domainset_current (keys %{$computer_db}) {
2166      next if $domainset_current eq 'dset';
2167      next if $domainset_current eq 'pool';
2168      next if $domainset_current eq 'pxe';
2169      next if $domainset_current eq 'tag';
2170      next if $domainset_current eq 'version';
2171
2172      $tb_computer->add($domainset_current) and next LOOP_ON_DOMAIN if not exists $computer_db->{'dset'}{$domainset_current};
2173
2174      my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime $computer_db->{'dset'}{$domainset_current}{'modify_time'};
2175      $year += 1900;
2176      $mon++;
2177      my $date = sprintf '%04i-%02i-%02i', $year, $mon, $mday;
2178
2179      my $comment = $computer_db->{'dset'}{$domainset_current}{'comment'};
2180      $comment =~ s/^\d\d\d\d-\d\d-\d\d\s//;
2181         
2182      $tb_computer->add($domainset_current,
2183         $computer_db->{'dset'}{$domainset_current}{'dns_extension'},
2184         $date,
2185         $comment,
2186         );
2187      }
2188
2189   print $tb_computer->title(),
2190         $tb_computer->rule('-') if not $no_header;
2191   print $tb_computer->body();
2192   }
2193
2194#--------------------------------------------------------------------------------
2195
2196sub cmd_search_mac {
2197   local @ARGV = @_;
2198
2199   my $help = get_cmd_name();
2200   my ($mac);
2201
2202   GetOptions(
2203      'mac|m=s' => \$mac,
2204      );
2205
2206   exit_on_error_option($help)
2207      if $mac eq '';
2208
2209   $mac = normalize_mac_address($mac);
2210
2211   my $computer_db = ipamdb_load($COMPUTER_YAML);
2212
2213   control_syntax_mac_address($mac) or exit;
2214
2215   LOOP_ON_DOMAIN:
2216   for my $domainset_current (keys %{$computer_db}) {
2217      next if $domainset_current eq 'dset';
2218      next if $domainset_current eq 'pool';
2219      next if $domainset_current eq 'pxe';
2220      next if $domainset_current eq 'tag';
2221      next if $domainset_current eq 'version';
2222
2223      my @domainsetdb = @{$computer_db->{$domainset_current}};
2224
2225      LOOP_ON_COMPUTER:
2226      for my $computer (@domainsetdb) {
2227         my ($mac_address, $attribute) = %{$computer};
2228
2229         next LOOP_ON_COMPUTER if $mac_address ne $mac;
2230
2231         my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime $attribute->{'modify_time'};
2232         $year += 1900;
2233         $mon++;
2234         my $date = sprintf '%04i-%02i-%02i', $year, $mon, $mday;
2235
2236         my $comment = $attribute->{'comment'};
2237         $comment =~ s/^\d\d\d\d-\d\d-\d\d\s//;
2238
2239         my $enable = $attribute->{'enabled'};
2240         if (exists $attribute->{'pxe_config'}) {
2241            $enable .= '/' . $attribute->{'pxe_config'};
2242            }
2243         if (exists $attribute->{'tag'}) {
2244            $enable .= ':' . $attribute->{'tag'};
2245            }
2246
2247         printf "%-30s  %-20s %17s %9s %3s %10s %s\n",
2248            $attribute->{'hostname'} . '.' . $domainset_current,
2249            $attribute->{'ip'},
2250            $mac_address,
2251            $attribute->{'address_type'},
2252            $enable,
2253            $date,
2254            $comment;
2255         }
2256      }
2257   }
2258
2259#--------------------------------------------------------------------------------
2260#Nom: show
2261#Description: liste les machines à partir du fichier YAML par nom de domaine.
2262
2263sub cmd_show_host {
2264   my %ipdb = ();
2265
2266   my $computer_db = ipamdb_load($COMPUTER_YAML);
2267
2268   my $tb_computer = Text::Table->new(
2269     {align  => 'left',   align_title => 'left',   title => 'Hostname.DomainSet'},
2270     {is_sep => 1,        body        => '  '},
2271     {align  => 'left',   align_title => 'left',   title => 'IPv4-Address'},
2272     {is_sep => 1,        body        => '  '},
2273     {align  => 'center', align_title => 'center', title => 'MAC-Address'},
2274     {is_sep => 1,        body        => '  '},
2275     {align  => 'right',  align_title => 'right',  title => 'Type'},
2276     {align  => 'right',  align_title => 'right',  title => 'Status'},
2277     {is_sep => 1,        body        => '  '},
2278     {align  => 'left',   align_title => 'left',   title => 'Date'},
2279     {align  => 'left',   align_title => 'left',   title => 'Comment'},
2280     );
2281
2282  LOOP_ON_DOMAIN:
2283   for my $domainset_current (sort keys %{$computer_db}) {
2284      next if $domainset_current eq 'dset';
2285      next if $domainset_current eq 'pool';
2286      next if $domainset_current eq 'pxe';
2287      next if $domainset_current eq 'tag';
2288      next if $domainset_current eq 'version';
2289
2290      my @domainsetdb = @{$computer_db->{$domainset_current}};
2291
2292      LOOP_ON_COMPUTER:
2293      for my $computer (@domainsetdb) {
2294         my ($mac_address, $attribute) = %{$computer};
2295         my $ip = $attribute->{'ip'};
2296
2297         if ($ip =~ m/$DDT::RE::IPv4_ADDRESS/xms) {
2298            if ( not exists $ipdb{$ip} ) {
2299               $ipdb{$ip} = {
2300                  'mac_address'  => $mac_address,
2301                  %{$attribute},
2302                  'domainset'    => $domainset_current,
2303                  };
2304               }
2305            else {
2306               print {*STDERR} "# Warning: $ip already exists in the database with MAC $mac_address!\n";
2307               }
2308            next LOOP_ON_COMPUTER;
2309            }
2310
2311         my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime $attribute->{'modify_time'};
2312         $year += 1900;
2313         $mon++;
2314         my $date = sprintf '%04i-%02i-%02i', $year, $mon, $mday;
2315
2316         my $comment = normalize_comment($attribute->{'comment'});
2317         $comment =~ s/^\d\d\d\d-\d\d-\d\d\s//;
2318
2319         my $enable = $attribute->{'enabled'};
2320         if (exists $attribute->{'pxe_config'}) {
2321            $enable .= '/' . $attribute->{'pxe_config'};
2322            }
2323         if (exists $attribute->{'tag'}) {
2324            $enable .= ':' . $attribute->{'tag'};
2325            }
2326
2327         #printf "%-30s  %-20s %17s %9s %3s %10s %s\n",
2328         $tb_computer->add(
2329            $attribute->{'hostname'} . '.' . $domainset_current,
2330            $ip,
2331            $mac_address,
2332            $attribute->{'address_type'},
2333            $enable,
2334            $date,
2335            $comment,
2336            );
2337         }
2338      #print "\n# *** List of pool computers in the domain set: $domainset_current ***\n";
2339      }
2340
2341   #print "\n# *** List of computers ordered by IP and domain set ***\n";
2342   LOOP_ON_IP_ADDRESS:
2343   foreach my $ip (Net::Netmask::sort_by_ip_address(keys %ipdb)) {
2344      my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime $ipdb{$ip}->{'modify_time'};
2345      $year += 1900;
2346      $mon++;
2347      my $date = sprintf '%04i-%02i-%02i', $year, $mon, $mday;
2348
2349      my $comment =$ipdb{$ip}->{'comment'};
2350      $comment =~ s/^\d\d\d\d-\d\d-\d\d\s//;
2351
2352      my $enable = $ipdb{$ip}->{'enabled'};
2353      if (exists $ipdb{$ip}->{'pxe_config'}) {
2354         $enable .= '/' . $ipdb{$ip}->{'pxe_config'};
2355         }
2356      if (exists $ipdb{$ip}->{'tag'}) {
2357         $enable .= ':' . $ipdb{$ip}->{'tag'};
2358         }
2359
2360      #printf "%-30s %-20s %17s %9s %3s %10s %s\n",
2361      $tb_computer->add(
2362         $ipdb{$ip}->{'hostname'} . '.' . $ipdb{$ip}->{'domainset'},
2363         $ip,
2364         normalize_mac_address($ipdb{$ip}->{'mac_address'}),
2365         $ipdb{$ip}->{'address_type'},
2366         $enable,
2367         $date,
2368         $comment
2369         );
2370      }
2371
2372   print $tb_computer->title();
2373   print $tb_computer->rule('-');
2374   print $tb_computer->body();
2375   }
2376
2377#-------------------------------------------------------------------------------
2378#Nom: cmd_generate_dhcp_file
2379#Description: génère les fichiers de configuration des machines et des pools du dhcp
2380
2381sub cmd_generate_dhcp_file {
2382   backup_database();
2383
2384   my $computer_db = ipamdb_load($COMPUTER_YAML);
2385
2386   my %file_pool;
2387
2388   for my $domainset_current (keys %{$computer_db}) {
2389      next if $domainset_current eq 'dset';
2390      next if $domainset_current eq 'pool';
2391      next if $domainset_current eq 'pxe';
2392      next if $domainset_current eq 'tag';
2393      next if $domainset_current eq 'version';
2394
2395      open FILE_VLAN, '>', "$FOLDER_GEN_DHCP/$domainset_current";
2396      my @domainsetdb = @{$computer_db->{$domainset_current}};
2397      for my $value (@domainsetdb) {
2398         ALL_MAC_ADDRESS:
2399         for my $mac_addres (keys %{$value}) {
2400            #host pcdavoust {  deny-unknown-clients;
2401            #hardware ethernet 0:6:5b:b8:13:d1;
2402            #fixed-address 194.254.66.72;
2403            #}
2404
2405            my $hostname     = $value->{$mac_addres}{'hostname'};
2406            my $ip           = $value->{$mac_addres}{'ip'};
2407            my $comment      = $value->{$mac_addres}{'comment'};
2408            my $address_type = $value->{$mac_addres}{'address_type'};
2409            my $enabled      = $value->{$mac_addres}{'enabled'};
2410            my $tags         = $value->{$mac_addres}{'tag'} || 'universal';
2411
2412            my $buffer;
2413            if ($address_type eq 'dhcp') {
2414               if ($enabled eq 'yes') {
2415                  $buffer  = "host $hostname {\n"; # deny-unknown-clients;
2416                  $buffer .= "   hardware ethernet $mac_addres;\n";
2417                  $buffer .= "   fixed-address $ip;\n";
2418
2419                  if (exists $value->{$mac_addres}{'pxe_config'}) {
2420                     my $pxe_config     = $value->{$mac_addres}{'pxe_config'};
2421                     my $ip_next_server = $computer_db->{'pxe'}{$pxe_config}{'ip_next_server'};
2422                     my $filename       = $computer_db->{'pxe'}{$pxe_config}{'filename'};
2423                     $buffer .= "   next-server $ip_next_server;\n";
2424                     $buffer .= "   filename \"$filename\";\n";
2425                     }
2426                  $buffer .= "   #comment: $comment\n";
2427                  $buffer .= "   }\n";
2428                  $buffer .= "\n";
2429
2430                  for my $tag (split/,/, $tags) {
2431                     $file_pool{"tag-$tag"} ||= [];
2432                     push @{$file_pool{"tag-$tag"}}, "subclass \"tag-$tag\" 1:$mac_addres; # $comment\n";
2433                     }
2434                  }
2435               else {
2436                  $buffer  = "#host $hostname {\n"; # deny-unknown-clients;
2437                  $buffer .= "#   hardware ethernet $mac_addres;\n";
2438                  $buffer .= "#   fixed-address $ip;\n";
2439                  $buffer .= "#   comment: $comment \n";
2440                  $buffer .= "#   }\n";
2441                  $buffer .= "\n";
2442                  }
2443               print FILE_VLAN $buffer;
2444               }
2445            elsif ($address_type eq 'pool-dhcp') {
2446               #--- Génère les fichiers pool dhcp ---#
2447               for my $current_pool (keys %{$computer_db->{'pool'}}) {
2448                  next if $current_pool ne $ip;
2449
2450                  if ($enabled eq 'yes') {
2451                     $buffer = "subclass \"$current_pool\" 1:$mac_addres; # $comment\n";
2452
2453                     for my $tag (split/,/, $tags) {
2454                        $file_pool{"tag-$tag"} ||= [];
2455                        push @{$file_pool{"tag-$tag"}}, "subclass \"tag-$tag\" 1:$mac_addres; # $comment\n";
2456                        }
2457                     }
2458                  else {
2459                     $buffer = "#subclass \"$current_pool\" 1:$mac_addres; # $comment\n";
2460                     }
2461
2462                  my $current_pool_file_name = $computer_db->{'pool'}{$current_pool}{'file'};
2463
2464                  $file_pool{$current_pool_file_name} ||= [];
2465                  push @{$file_pool{$current_pool_file_name}}, $buffer;
2466                  }
2467               }
2468            }
2469         }
2470
2471      close FILE_VLAN;
2472
2473      for my $file_name (keys %file_pool) {
2474         open FILE_POOL, '>', "$FOLDER_GEN_DHCP/$file_name";
2475         print FILE_POOL @{$file_pool{$file_name}};
2476         close FILE_POOL;
2477         }
2478      }
2479      print "Copy DHCP files from $FOLDER_GEN_DHCP to /etc/dhcp/include/\n";
2480      exec $SCRIPT_UPDATE;
2481   }
2482
2483#-------------------------------------------------------------------------------
2484#Nom: cmd_generate_dns_file
2485#Description: génère les fichiers d'enregistrements DNS
2486
2487sub cmd_generate_dns_file {
2488   my $buffer;
2489   my $buffer_rev;
2490   my $pool_domain;
2491
2492   my $computer_db = ipamdb_load($COMPUTER_YAML);
2493
2494   for my $domainset_current (keys %{$computer_db}) {
2495      next if $domainset_current eq 'dset';
2496      next if $domainset_current eq 'pool';
2497      next if $domainset_current eq 'pxe';
2498      next if $domainset_current eq 'tag';
2499      next if $domainset_current eq 'version';
2500
2501      if ($domainset_current eq 'pool') {
2502         #next;
2503         for my $value (@{$computer_db->{$domainset_current}}) {
2504            for my $pool_name (keys %{$value}) {
2505               $pool_domain = $value->{$pool_name}->{'domain'}."\n";
2506               #print $value->{$pool_name}->{'file'};
2507               chomp $pool_domain;
2508               open FILE_FORWARD_DNS, '>>', "$FOLDER_GEN_DNS/db.$pool_domain.fwd";
2509               open FILE_REVERSE_DNS, '>>', "$FOLDER_GEN_DNS/db.$pool_domain.rev";
2510               my @T_pool_ip = @{$value->{$pool_name}->{'ip'}};
2511               for my $pool_ip (@T_pool_ip) {
2512                  my @T_split = split(/\./ , $pool_ip);
2513                  $buffer     = sprintf "%-24s IN  A  %-15s ;\n", "$pool_name$T_split[3]", $pool_ip;
2514                  $buffer_rev = "$T_split[3]   IN PTR   $pool_name$T_split[3].$pool_domain.\n";
2515                  print FILE_FORWARD_DNS $buffer;
2516                  print FILE_REVERSE_DNS $buffer_rev;
2517                  }
2518               close FILE_FORWARD_DNS;
2519               close FILE_REVERSE_DNS;
2520               }
2521            }
2522         }
2523
2524      else {
2525         #--- Création du fichier non-reverse ---#
2526         open ( FILE_FORWARD_DNS, ">> $FOLDER_GEN_DNS/db.$domainset_current.fwd");
2527         open ( FILE_REVERSE_DNS, ">> $FOLDER_GEN_DNS/db.$domainset_current.rev");
2528         my @domainsetdb = @{$computer_db->{$domainset_current}};
2529         for my $value (@domainsetdb) {
2530            for my $id (keys %{$value}) {
2531               #host pcdavoust {  deny-unknown-clients;
2532               #hardware ethernet 0:6:5b:b8:13:d1;
2533               #fixed-address 194.254.66.72;
2534               #}
2535               my $hostname = $value->{$id}->{'hostname'};
2536               my $ip       = $value->{$id}->{'ip'};
2537               my $comment  = $value->{$id}->{'comment'};
2538               my $address_type = $value->{$id}->{'address_type'};
2539               my $enabled      = $value->{$id}->{'enabled'};
2540
2541               my $dns_domain = $domainset_current;
2542               if (exists $computer_db->{'dset'}{$domainset_current}) {
2543                  $dns_domain = $computer_db->{'dset'}{$domainset_current}{'dns_extension'};
2544                  }
2545               my @T_split = split(/\./ , $ip);
2546               if  (($address_type eq 'dhcp') or ($address_type eq 'static')) {
2547                  if ($enabled eq 'yes') {
2548                     $buffer = sprintf "%-24s IN A %-15s ; %s\n", $hostname, $ip, $comment;
2549                     if (exists $value->{$id}->{'dns_extension'}
2550                           and "$value->{$id}->{'dns_extension'}" != "$dns_domain") {
2551                        print "A FAIRE\n";
2552                        }
2553                     $buffer_rev = $T_split[3]."     IN PTR   $hostname.$dns_domain.\n";
2554                     }
2555
2556                  else {
2557                     $buffer = sprintf "%-24s IN A %-15s ; %s\n", $hostname, $ip, $comment;
2558                     $buffer_rev = ";".$T_split[3]."    IN PTR   $hostname.$dns_domain.\n";
2559                     }
2560                  print FILE_REVERSE_DNS $buffer_rev;
2561                  print FILE_FORWARD_DNS $buffer;
2562                  }
2563               }
2564            #$cpt=$cpt+1;
2565            }
2566         print "- DNS: db.$domainset_current.fwd db.$domainset_current.rev [CREATE].\n";
2567         print "Ex : sort -k 4n -t . /usr/local/dhcp-dns-tools/dns/dns.hmg.priv\n";
2568         close FILE_REVERSE_DNS;
2569         close FILE_FORWARD_DNS;
2570         }
2571      }
2572   }
2573
2574#--------------------------------------------------------------------------------
2575
2576sub shell_command {
2577   my $cmd = shift;
2578
2579   require FileHandle;
2580   my $fh     = new FileHandle;
2581   my @result = ();
2582   open $fh, q{-|}, "LANG=C $cmd" or die "Can't exec $cmd\n";
2583   @result = <$fh>;
2584   close $fh;
2585   chomp @result;
2586   return @result;
2587   }
2588
2589sub cmd_check_dns {
2590   my $computer_db = ipamdb_load($COMPUTER_YAML);
2591
2592   LOOP_ON_DOMAIN:
2593   for my $domainset_current (keys %{$computer_db}) {
2594      next if $domainset_current eq 'dset';
2595      next if $domainset_current eq 'pool';
2596      next if $domainset_current eq 'pxe';
2597      next if $domainset_current eq 'tag';
2598      next if $domainset_current eq 'version';
2599
2600      my @domainsetdb = @{$computer_db->{$domainset_current}};
2601
2602      LOOP_ON_COMPUTER:
2603      for my $computer (@domainsetdb) {
2604         my ($mac_address, $attribute) = %{$computer};
2605         #my $new_mac = normalize_mac_address($mac_address);
2606         my $ip = $attribute->{'ip'};
2607         next LOOP_ON_COMPUTER if not $ip =~ m/$DDT::RE::IPv4_ADDRESS/xms;
2608         next LOOP_ON_COMPUTER if $attribute->{'enabled'} eq 'no';
2609
2610         my $dns_hostname_fq = scalar gethostbyaddr(inet_aton($ip), AF_INET);
2611         my ($dns_hostname) = split /\./, $dns_hostname_fq;
2612
2613         if ($attribute->{'hostname'} ne $dns_hostname) {
2614            print "$mac_address ($domainset_current) $ip - $dns_hostname / $attribute->{'hostname'} # $attribute->{'comment'}\n";
2615            next LOOP_ON_COMPUTER;
2616            }
2617
2618         my $packed_ip = scalar gethostbyname($dns_hostname_fq);
2619         if (defined $packed_ip) {
2620            my $ip_address = inet_ntoa($packed_ip);
2621            if ($ip ne $ip_address) {
2622               print "reverse DNS error for $dns_hostname_fq / $ip\n";
2623               next LOOP_ON_COMPUTER;
2624               }
2625            }
2626         }
2627      }
2628
2629   LOOP_ON_DNS:
2630   for my $dns ('legi.grenoble-inp.fr', 'hmg.priv') {
2631      LOOP_ON_IP:
2632      for (shell_command("host -t A -l $dns")) {
2633         # smtp2.legi.grenoble-inp.fr has address 194.254.67.37
2634         next if not m/has address/;
2635         next if not m/^(\w[\w-_\.]+\w)\s+has\saddress\s+(\d[\d\.]+\d)$/;
2636         my ($hostname_fq, $ip) = ($1, $2);
2637         control_syntax_ip($ip) or next LOOP_ON_IP;
2638         if (control_exist_ip($computer_db, $ip) == 1) {
2639            printf "Unkown IP: %015s / %s\n", $ip, $hostname_fq;
2640            next LOOP_ON_IP;
2641            }
2642         }
2643      }
2644   }
2645
2646#-------------------------------------------------------------------------------
2647#Nom: load_data_dhcp
2648#Description: permet de charger le fichier de données YAML via les fichiers de configuration
2649#             machines.
2650#            ATTENTION: LES COMMENTAIRES DU FICHIER DISPARAITRONT.
2651
2652sub load_data_dhcp {
2653   my ($domainset, $input_file) = @_;
2654
2655   my $computer_db = ipamdb_load($COMPUTER_YAML);
2656
2657   my @T_mac;
2658   my @T_host;
2659   my @T_ip;
2660   my $cpt;
2661   open (FILE, "<$input_file");
2662   my @buffer = <FILE>;
2663   close(FILE);
2664
2665   for my $ligne (@buffer) {
2666      #--
2667      $ligne =~ s/#.*$//;
2668      $ligne =~ s/\s+/ /;
2669      $ligne =~ s/^\s+//;
2670      next if $ligne eq '';
2671
2672      if ($ligne =~ /^host /) {
2673         $cpt=0;
2674         my @T_split = split(/host\s+/, $ligne);
2675         @T_host = split(/ /, $T_split[1]);
2676         chomp($T_host[0]);
2677
2678         $cpt++;
2679         }
2680
2681      if ($ligne =~ /^*ethernet /) {
2682         $ligne =~ s/;//g;
2683         @T_mac = split(/ethernet\s+/, $ligne);
2684         chomp($T_mac[1]);
2685         $cpt++;
2686         }
2687
2688      if ($ligne =~ /^*address /) {
2689         $ligne =~ s/;//g;
2690         @T_ip = split(/address\s+/, $ligne);
2691         chomp($T_ip[1]);
2692
2693         $cpt++;
2694         }
2695
2696      if ($cpt == 3) {
2697         #   print "MAC $T_mac[1] HOST $T_host[0] IP $T_ip[1].\n";
2698         my $mac = $T_mac[1];
2699         my $hostname = $T_host[0];
2700         my $ip = $T_ip[1];
2701         $cpt = 0;
2702
2703         if ( control_exist_hostname($computer_db, $domainset, $hostname) == 0 ) {
2704            print "Error: Hostname already exist in domain set attachement $domainset: $hostname\n";
2705            next;
2706            }
2707         control_syntax_mac_address($mac) or next;
2708         if ( control_exist_mac($computer_db, $mac) == 0) {
2709            print "Error: Physical MAC address already exists: $mac\n";
2710            next;
2711            }
2712
2713         control_syntax_ip($ip) or next;
2714         if ( control_exist_ip($computer_db, $ip) == 0 ) {
2715            print "Error: IP address already exists: $ip\n";
2716            next;
2717            }
2718         my $timestamp = time;
2719         push @{$computer_db->{$domainset}}, { $mac => {
2720            'hostname'     => $hostname,
2721            'ip'           => $ip,
2722            'address_type' => 'dhcp',
2723            'enabled'      => 'yes',
2724            'create_time'  => $timestamp,
2725            'modify_time'  => $timestamp,
2726            'alias'        =>  '',
2727            }};
2728         }
2729      }
2730   }
2731
2732#-------------------------------------------------------------------------------
2733#Nom: load_data_pool
2734#Description: permet de charger le fichier YAML via les fichiers de conf 'pool' du dhcp.
2735
2736sub load_data_pool {
2737   my ($domainset, $input_file) = @_;
2738
2739   my @T_mac;
2740
2741   open (FILE, "<$input_file");
2742   my @buffer = <FILE>;
2743   close(FILE);
2744
2745   my $computer_db = ipamdb_load($COMPUTER_YAML);
2746
2747   for my $ligne (@buffer) {
2748      #--
2749      $ligne =~ s/#.*$//;
2750      $ligne =~ s/\s+/ /;
2751      $ligne =~ s/^\s+//;
2752      $ligne =~ s/;//g;
2753      $ligne =~ s/"//g;
2754      next if $ligne eq '';
2755
2756      if (($ligne =~ /^subclass/)) {
2757         my @T_split = split(/ / ,$ligne);
2758         my $pool = $T_split[1];
2759
2760         @T_mac = split(/:/ , $T_split[2]);
2761         my $mac = $T_mac[1].":".$T_mac[2].":".$T_mac[3].":".$T_mac[4].":".$T_mac[5].":".$T_mac[6];
2762         control_syntax_mac_address($mac) or next;
2763         if (control_exist_mac($computer_db, $mac) == 0) {
2764            print "Error: Physical MAC address already exists: $mac\n";
2765            next;
2766            }
2767
2768         #--- cette partie teste si le pool existe.
2769         if (not exists $computer_db->{'pool'}{$pool}) {
2770            print "Error: Create pool with create_pool command before load database: $pool\n";
2771            exit;
2772            }
2773
2774         if ($computer_db->{'pool'}{'domain'} eq $domainset) {
2775            my $timestamp = time;
2776            push @{$computer_db->{$domainset}}, { $mac => {
2777               'hostname'     => $pool,
2778               'ip'           => $pool,
2779               'address_type' => 'pool-dhcp',
2780               'enabled'      => 'yes',
2781               'create_time'  => $timestamp,
2782               'modify_time'  => $timestamp,
2783               }};
2784            }
2785         else {
2786            print "Ajout de la machine $mac [FAILED]\n";
2787            print "Error: The pool doesn't exists: $pool, for the domain: $domainset\n";
2788            }
2789         }
2790      }
2791   }
2792
2793#-------------------------------------------------------------------------------
2794
2795sub load_data_file {
2796   my ($domainset, $input_file, $type_file) = @_;
2797
2798   my $computer_db = ipamdb_load($COMPUTER_YAML);
2799
2800   #$computer_db
2801   if ($type_file eq 'dhcp') {
2802      load_data_dhcp($domainset, $input_file);
2803      }
2804
2805   elsif ($type_file eq 'pool-dhcp') {
2806      load_data_pool($domainset, $input_file);
2807      }
2808
2809   ipamdb_save("$COMPUTER_YAML", $computer_db);
2810   }
2811
2812#-------------------------------------------------------------------------------
2813
2814sub cmd_load_database {
2815   local @ARGV = @_;
2816
2817   my $help = get_cmd_name();
2818   my ($domainset, $input_file, $type_file);
2819
2820   GetOptions(
2821      'domainset|d=s'   => \$domainset,
2822      'filename|f=s'    => \$input_file,
2823      'kind|k=s'        => \$type_file,
2824      );
2825
2826   exit_on_error_option($help)
2827      if $domainset  eq ''
2828      or $input_file eq ''
2829      or $type_file  eq '';
2830
2831   load_data_file($domainset, $input_file, $type_file);
2832   }
2833
2834#-------------------------------------------------------------------------------
2835#Nom: backup_database
2836#Description: sauvegarde et réinitialise les fichiers d'enregistrements DHCP.
2837
2838sub backup_database {
2839   my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime time;
2840   $year += 1900;
2841   $mon++;
2842   my $date = sprintf '%04i-%02i-%02i-%02i-%02i-%02i', $year, $mon, $mday, $hour, $min, $sec;
2843
2844   copy($COMPUTER_YAML, "$FOLDER_BACKUP/$COMPUTER_BASENAME-$date.conf") or die "Error: Database copy backup failed: $!\n";
2845   }
2846
2847#-------------------------------------------------------------------------------
2848# HELP section
2849#-------------------------------------------------------------------------------
2850
2851#-------------------------------------------------------------------------------
2852#Nom: exit_on_error_option
2853#Description: messages d'aide des options pour les différentes commandes
2854
2855sub exit_on_error_option {
2856  my ($command) = @_;
2857
2858   if ($command eq 'add-dhcp') {
2859      print "List of options for command: $command\n";
2860      print " -d : domain set attachment (mandatory). Example: -d legi-sector03\n";
2861      print " -h : computer hostname (mandatory if option -i != 'pool'). Example: -h info8pc154\n";
2862      print " -m : physical MAC address (mandatory). Example: -m 0F:58:AB:2A\n";
2863      print " -i : internet IP address (mandatory). Possible value: classical IP address or the keyword 'pool'\n";
2864      print " -p : name of the DHCP pool to which the machine belongs (mandatory if option -i == 'pool')\n";
2865      print " -c : comment (mandatory). Example: 2014-04-07 DELL Laptop 6400 - Olivier Toto (INFO)\n";
2866      print "Example:\n";
2867      print " ddt add_dhcp -h most1mc130 -d legi-661 -i 194.254.66.130 -m 00:17:F2:D3:2B:FF -c '2008-07-03 Mac Book Guillaume Balleyrac (MOST)\n";
2868      print " ddt add_dhcp -p pool-stagiaire -i pool -d hmg.priv -m 02:00:54:55:4E:01 -c '2008-09-02 Portable Perso - Laanaia Nabil - Achim Wirth (MEIGE)\n";
2869      }
2870
2871   elsif ($command eq 'add-float') {
2872      print "List of options for command: $command\n";
2873      print " -d : domain set attachment (mandatory)\n";
2874      print " -p : name of the DHCP pool to which the machine belongs (mandatory)\n";
2875      print " -m : physical MAC address (mandatory)\n";
2876      print " -c : comment (mandatory). Example: 2014-04-07 DELL Laptop 6400 - Olivier Toto (INFO)\n";
2877      print "Example:\n";
2878      print " ddt add_float -p pool-stagiaire -d hmg.priv -i 192.168.10.1 -m 00:AB:1B:CC:AA:2F -c '2013-09-25 Dell OptiPlex 745 - Eric Goncalves (NRJ)\n";
2879      }
2880
2881   elsif ($command eq 'add-static') {
2882      print "List of options for command: $command\n";
2883      print " -d : domain set attachment (mandatory)\n";
2884      print " -i : internet IP address (mandatory)\n";
2885      print " -h : computer hostname (mandatory)\n";
2886      print " -m : physical MAC address (mandatory)\n";
2887      print " -c : comment (mandatory). Example: 2014-04-07 DELL Laptop 6400 - Olivier Toto (INFO)\n";
2888      print "Example:\n";
2889      print " ddt add_static -h legipc1 -d hmg.priv -i 192.168.10.1 -m 00:AB:1B:CC:AA:2F -c '2013-09-25 Dell OptiPlex 745 - Eric Goncalves (NRJ)\n";
2890      }
2891
2892   elsif ($command eq 'add-virtual') {
2893      print "List of options for command: $command\n";
2894      print " -d : domain set attachment (mandatory)\n";
2895      print " -i : internet IP address (mandatory)\n";
2896      print " -h : computer hostname (mandatory)\n";
2897      print " -c : comment (mandatory). Example: 2014-04-07 DELL Laptop 6400 - Olivier Toto (INFO)\n";
2898      print "Example:\n";
2899      print " ddt add_virtual -h legipc1 -d legi-211 -i 192.168.10.1 -c '2013-09-25 Dell OptiPlex 745 - Eric Goncalves (NRJ)\n";
2900      }
2901
2902   elsif ($command eq 'add-alias') {
2903      print "List of options for command: $command\n";
2904      print " -d : domain set attachment (mandatory)\n";
2905      print " -h : computer hostname (mandatory)\n";
2906      print " -a : computer alias name (mandatory)\n";
2907      }
2908
2909   elsif ($command eq 'create-domainset') {
2910      print "List of options for command: $command\n";
2911      print " -d : new domain set (mandatory)\n";
2912      print " -e : DNS domain name extension( mandatory). Example legi.grenoble-inp.fr\n";
2913      print " -c : comment (mandatory). Example: 2016-08-22 VLAN legi-261 (INFO)\n";
2914      print "Examples:\n";
2915      print " ddt create_domainset -d legi-264 -e legi.grenoble-inp.fr -c '2016-08-22 VLAN legi-261 (INFO)'\n";
2916      }
2917
2918   elsif ($command eq 'create-pool') {
2919      print "List of options for command: $command\n";
2920      print " -p : name of the DHCP pool. Example: pool-legi-priv\n";
2921      print " -d : domain set attachment for the pool. (domain set attachment must exist in file $COMPUTER_BASENAME.conf). Example: legi.grenoble-inp.fr\n";
2922      print " -f : configuration filename on the DHCP server for the pool\n";
2923      print " -i : adresse(s) IP ou plage d'IP. Séparateur d'adresses IP: ','. Séparateur de plage '-'\n";
2924      print "Examples:\n";
2925      print " ddt -p pool-hmg -d hmg.priv -f pool.hmg.priv -i 192.168.10.1,192.168.10.2,192.168.10.3\n";
2926      print " ddt -p turbocavit -d legi-sector03 -f pool-legi-public -i 192.168.10.1-192.168.10.4\n";
2927      }
2928
2929   elsif ($command eq 'create-pxe') {
2930      print "List of options for command: $command\n";
2931      print " -b : name of the PXE/BOOTP configuration. Example: most\n";
2932      print " -n : internet IP address for the DHCP next-server.\n";
2933      print " -f : filename on TFTP server to load at boot\n";
2934      print " -c : comment (mandatory). Example: 2014-04-07 PXE Boot for CentOS (MOST)\n";
2935      }
2936
2937   elsif ($command eq 'remove-pxe') {
2938      print "List of options for command: $command\n";
2939      print " -b : name of the PXE/BOOTP configuration. Example: most\n";
2940      }
2941
2942   elsif ($command eq 'enable-pxe') {
2943      print "List of options for command: $command\n";
2944      print " -h : computer hostname (mandatory unless option -i)\n";
2945      print " -i : internet IP address (mandatory unless option -h)\n";
2946      print " -d : domain set attachment (mandatory if option -h)\n";
2947      print " -b : name of the PXE/BOOTP configuration. Example: most\n";
2948      }
2949
2950   elsif ($command eq 'disable-pxe') {
2951      print "List of options for command: $command\n";
2952      print " -h : computer hostname (mandatory unless option -i)\n";
2953      print " -i : internet IP address (mandatory unless option -h)\n";
2954      print " -d : domain set attachment (mandatory if option -h)\n";
2955      }
2956
2957   elsif ($command eq 'create-tag') {
2958      print "List of options for command: $command\n";
2959      print " -t : name of the TAG (mandatory). Example: restricted\n";
2960      print " -c : comment (mandatory). Example: 2014-04-07 tag restricted (INFO)\n";
2961      print "tag 'universal' is intrinsic\n";
2962      }
2963
2964   elsif ($command eq 'remove-tag') {
2965      print "List of options for command: $command\n";
2966      print " -b : name of the TAG. Example: restricted\n";
2967      }
2968
2969   elsif ($command eq 'change-mac') {
2970      print "List of options for command: $command\n";
2971      print " -d : domain set attachment (mandatory). Example: -d legi-sector03\n";
2972      print " -h : computer hostname (mandatory unless option -i)\n";
2973      print " -i : internet IP address (mandatory unless option -h). Possible value: classical IP address or the keyword 'pool'\n";
2974      print " -m : physical MAC address (mandatory). Example: -m 0F:58:AB:2A:22:11\n";
2975      }
2976
2977   elsif ($command eq 'change-ip') {
2978      print "List of options for command: $command\n";
2979      print " -d : domain set attachment (mandatory). Example: -d legi-sector03\n";
2980      print " -h : computer hostname (mandatory)\n";
2981      print " -i : new internet IP address (mandatory). Possible value: classical IP address\n";
2982      }
2983
2984   elsif ($command eq 'change-host') {
2985      print "List of options for command: $command\n";
2986      print " -d : domain set attachment (mandatory). Example: -d legi-sector03\n";
2987      print " -i : internet IP address (mandatory). Possible value: classical IP address\n";
2988      print " -h : new computer hostname (mandatory)\n";
2989      print "It's not possible to change hostname for computer that belongs to a pool\n";
2990      }
2991
2992   elsif ($command eq 'change-comment') {
2993      print "List of options for command: $command\n";
2994      print " -d : domain set attachment (mandatory). Example: -d legi-sector03\n";
2995      print " -m : physical MAC address (mandatory). Example: -m 0F:58:AB:2A:22:11\n";
2996      print " -c : new comment (mandatory)\n";
2997      }
2998
2999   elsif ($command eq 'change-domainset') {
3000      print "List of options for command: $command\n";
3001      print " -d : new domain set attachment (mandatory). Example: -d legi-661\n";
3002      print " -m : physical MAC address (mandatory). Example: -m 0F:58:AB:2A:22:11\n";
3003      print " -i : internet IP address (mandatory)\n";
3004      }
3005
3006   elsif ($command eq 'change-tag') {
3007      print "List of options for command: $command\n";
3008      print " -h : computer hostname (mandatory unless option -i or -m)\n";
3009      print " -d : domain set attachment (mandatory). Example: -d legi-sector03\n";
3010      print " -i : internet IP address (mandatory unless option -h or -m)\n";
3011      print " -m : physical MAC address (mandatory unless option -h or -i, priority). Example: -m 0F:58:AB:2A:22:11\n";
3012      print " -t : list of tags separated by comma (mandatory). Example: -t internal,windows\n";
3013      }
3014
3015   elsif ($command eq 'load-database') {
3016      print "List of options for command: $command\n";
3017      print " -d : domain set attachment\n";
3018      print " -f : input file in DHCP format\n";
3019      print " -k : possible cases (kind): dhcp, pool-dhcp, fix-address\n";
3020      }
3021
3022   elsif ($command eq 'enable-pc') {
3023      print "List of options for command: $command\n";
3024      print " -h : computer hostname (mandatory unless option -i)\n";
3025      print " -i : internet IP address (mandatory unless option -h)\n";
3026      print " -d : domain set attachment (mandatory if option -h)\n";
3027      print "Examples:\n";
3028      print " ddt enable_pc -i 192.168.10.1\n";
3029      print " ddt enable_pc -d hmg.priv -h kevinpc\n";
3030      }
3031
3032   elsif ($command eq 'enable-float') {
3033      print "List of options for command: $command\n";
3034      print " -m : physical MAC address (mandatory)\n";
3035      print " -p : name of the DHCP pool (mandatory)\n";
3036      }
3037
3038   elsif ($command eq 'disable-float') {
3039      print "List of options for command: $command\n";
3040      print " -m : physical MAC address (mandatory)\n";
3041      print " -p : name of the DHCP pool (mandatory)\n";
3042      }
3043
3044   elsif ($command eq 'disable-pc') {
3045      print "List of options for command: $command\n";
3046      print " -h : computer hostname (mandatory unless option -i)\n";
3047      print " -i : internet IP address (mandatory unless option -h)\n";
3048      print " -d : domain set attachment (mandatory if option -h)\n";
3049      print "Examples:\n";
3050      print " ddt disable_pc -i 192.168.10.1\n";
3051      print " ddt disable_pc -d hmg.priv -h kevinpc\n";
3052      }
3053
3054   elsif ($command eq 'del-pc') {
3055      print "List of options for command: $command\n";
3056      print " -d : domain set attachment (mandatory)\n";
3057      print " -h : computer hostname (mandatory unless option -i)\n";
3058      print " -i : internet IP address (mandatory unless option -h)\n";
3059      }
3060
3061   elsif ($command eq 'del-float') {
3062      print "List of options for command: $command\n";
3063      print " -m : physical MAC address (mandatory)l\n";
3064      print " -p : name of the DHCP pool\n";
3065      }
3066
3067   elsif ($command eq 'search-mac') {
3068      print "List of options for command: $command\n";
3069      print " -m : physical MAC address (mandatory). Example: -m 0F:58:AB:2A:22:11\n";
3070      }
3071
3072   else {
3073      print "No help for command: $command\n";
3074      }
3075   exit;
3076   }
3077
3078#-------------------------------------------------------------------------------
3079
3080sub cmd_version {
3081
3082   print <<'END';
3083ddt - management of computer names and IP addresses
3084Copyright (C) 2006-2018, LEGI UMR 5519 / CNRS UGA G-INP, Grenoble, France
3085Main author Gabriel Moreau <Gabriel.Moreau(A)univ-grenoble-alpes.fr>
3086License GNU GPL version 2 or later and Perl equivalent
3087END
3088
3089   print "Database Version 1\n";
3090   print "Version $VERSION\n\n";
3091   print ' $Id: ddt 317 2018-07-19 19:08:30Z g7moreau $'."\n";
3092   return;
3093   }
3094
3095#-------------------------------------------------------------------------------
3096#Nom: usage
3097#Description: message d'aide sur les commandes du script
3098
3099sub cmd_help {
3100   print <<END;
3101ddt - management of computer names and IP addresses
3102
3103 ddt add-alias [--hostname|-h hostname] [--domainset|-d domainset] [--alias|-a alias]
3104 ddt add-dhcp [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip] [--mac|-m mac] [--comment|-c comment]
3105 ddt add-float [--pool|-p pool] [--domainset|-d domainset] [--mac|-m mac] [--comment|-c comment]
3106 ddt add-static [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip] [--mac|-m mac] [--comment|-c comment]
3107 ddt add-virtual [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip] [--comment|-c comment]
3108 ddt change-comment [--domainset|-d domainset] [--mac|-m mac] [--comment|-c comment]
3109 ddt change-domainset [--domainset|-d domainset] [--ip|-i ip] [--mac|-m mac]
3110 ddt change-host [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip]
3111 ddt change-ip [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip]
3112 ddt change-mac [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip] [--mac|-m mac]
3113 ddt change-tag [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip] [--mac|-m mac] [--tag|-t tag]
3114 ddt check-dns
3115 ddt create-domainset [--domainset|-d domainset] [--dns-extension|-e dns_extension] [--comment|-c comment]
3116 ddt create-pool [--pool|-p pool] [--domainset|-d domainset] [--file-pool|-f file_pool] [--ipaddress-pool|-i ipaddress_pool]
3117 ddt create-pxe [--bootp|-b pxe_config] [--next-server|-n next_server] [--filename|-f filename] [--comment|-c comment]
3118 ddt create-tag [--tag|-t tag] [--comment|-c comment]
3119 ddt del-float [--pool|-p pool] [--mac|-m mac]
3120 ddt del-pc [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip]
3121 ddt disable-pc [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip]
3122 ddt disable-float [--pool|-p pool] [--mac|-m mac]
3123 ddt disable-pxe [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip]
3124 ddt enable-float [--pool|-p pool] [--mac|-m mac]
3125 ddt enable-pc [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip]
3126 ddt enable-pxe [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip] [--bootp|-b pxe_config]
3127 ddt gen-dhcp-file
3128 ddt gen-dns-file
3129 ddt help
3130 ddt load-database [--domainset|-d domainset] [--filename|-f filename] [--kind|-k kind]
3131 ddt remove-pxe [--bootp|-b pxe_config]
3132 ddt remove-tag [--tag|-t tag]
3133 ddt search-mac [--mac|-m mac]
3134 ddt show-domainset [--no-header|-H]
3135 ddt show
3136 ddt show-pool [--no-header|-H]
3137 ddt show-pxe [--no-header|-H]
3138 ddt show-tag [--no-header|-H]
3139 ddt version
3140
3141COMMANDS
3142
3143 * add-alias        : add an alias for a computer (like CNAME for the DNS)
3144 * add-dhcp         : add a computer with a fix DHCP IP or in a DHCP pool
3145 * add-float        : add a computer with an IP in a DHCP pool
3146 * add-static       : add a computer with a static IP
3147 * add-virtual      : add a virtual computer with a static IP but a virtual MAC (useful to declare float computer in DNS)
3148 * change-comment   : change the computer comment
3149 * change-domainset : change the domain set attachment for a computer
3150 * change-host      : change the computer hostname
3151 * change-ip        : change the computer IP address
3152 * change-mac       : change the computer physical MAC address
3153 * change-tag       : change the list of TAGs associated to a computer
3154 * check-dns        : check the DNS table for base IPs
3155 * create-domainset : create a new domain set
3156 * create-pool      : create a new pool for DHCP records
3157 * create-pxe       : create a new PXE/BOOTP configuration
3158 * create-tag       : create a new TAG
3159 * del-float        : remove a computer from a DHCP pool
3160 * del-pc           : remove a computer (DHCP or static IP) from the YAML database
3161 * disable-pc       : disable a computer (DHCP and/or DNS) (but keep it in the database)
3162 * disable-float    : disable a computer from a DHCP pool (but keep it in the database)
3163 * disable-pxe      : remove PXE/BOOTP configuration on a computer
3164 * enable-float     : enable a previous disable computer (DHCP and/or DNS)
3165 * enable-pc        : enable a previous disable computer (DHCP and/or DNS)
3166 * enable-pxe       : enable PXE/BOOTP configuration on a computer
3167 * gen-dhcp-file    : generate DHCP files for the isc DHCP server
3168 * gen-dns-file     : generate DNS files for the bind domain server
3169 * help             : this help
3170 * load-database    : load the YAML database (be careful)
3171 * remove-pxe       : remove a PXE/BOOTP configuration
3172 * remove-tag       : remove a TAG
3173 * search-mac       : search physical MAC address computer
3174 * show-domainset   : list all domain set group of computer
3175 * show             : list all computers
3176 * show-pool        : list all pool
3177 * show-pxe         : list PXE/BOOTP configuration
3178 * show-tag         : list all TAGs
3179 * version          : return program version
3180END
3181   return;
3182   }
3183
3184################################################################
3185# documentation
3186################################################################
3187
3188__END__
3189
3190=head1 NAME
3191
3192ddt - management of computer names and IP addresses
3193
3194
3195=head1 USAGE
3196
3197 ddt add-alias [--hostname|-h hostname] [--domainset|-d domainset] [--alias|-a alias]
3198 ddt add-dhcp [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip] [--mac|-m mac] [--comment|-c comment]
3199 ddt add-float [--pool|-p pool] [--domainset|-d domainset] [--mac|-m mac] [--comment|-c comment]
3200 ddt add-static [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip] [--mac|-m mac] [--comment|-c comment]
3201 ddt add-virtual [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip] [--comment|-c comment]
3202 ddt change-comment [--domainset|-d domainset] [--mac|-m mac] [--comment|-c comment]
3203 ddt change-domainset [--domainset|-d domainset] [--ip|-i ip] [--mac|-m mac]
3204 ddt change-host [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip]
3205 ddt change-ip [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip]
3206 ddt change-mac [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip] [--mac|-m mac]
3207 ddt change-tag [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip] [--mac|-m mac] [--tag|-t tag]
3208 ddt check-dns
3209 ddt create-domainset [--domainset|-d domainset] [--dns-extension|-e dns_extension] [--comment|-c comment]
3210 ddt create-pool [--pool|-p pool] [--domainset|-d domainset] [--file-pool|-f file_pool] [--ipaddress-pool|-i ipaddress_pool]
3211 ddt create-pxe [--bootp|-b pxe_config] [--next-server|-n next_server] [--filename|-f filename] [--comment|-c comment]
3212 ddt create-tag [--tag|-t tag] [--comment|-c comment]
3213 ddt del-float [--pool|-p pool] [--mac|-m mac]
3214 ddt del-pc [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip]
3215 ddt disable-pc [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip]
3216 ddt disable-float [--pool|-p pool] [--mac|-m mac]
3217 ddt disable-pxe [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip]
3218 ddt enable-float [--pool|-p pool] [--mac|-m mac]
3219 ddt enable-pc [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip]
3220 ddt enable-pxe [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip] [--bootp|-b pxe_config]
3221 ddt gen-dhcp-file
3222 ddt gen-dns-file
3223 ddt help
3224 ddt load-database [--domainset|-d domainset] [--filename|-f filename] [--kind|-k kind]
3225 ddt remove-pxe [--bootp|-b pxe_config]
3226 ddt remove-tag [--tag|-t tag]
3227 ddt search-mac [--mac|-m mac]
3228 ddt show-domainset [--no-header|-H]
3229 ddt show
3230 ddt show-pool [--no-header|-H]
3231 ddt show-pxe [--no-header|-H]
3232 ddt show-tag [--no-header|-H]
3233 ddt version
3234
3235
3236=head1 DESCRIPTION
3237
3238DDT is an acronym for DHCP-DNS-Tools.
3239The previous command name was not C<ddt> but just C<dhcp-dns-tools>...
3240In practise, DDT is an IP Address Management (IPAM) service.
3241It has been used in the LEGI laboratory for over 10 years.
3242
3243The tool is quite effective and tries to keep things simple
3244but easily configurable for your site like a swiss army knife.
3245Everything is saved in a YAML database
3246and entries could be added, deleted, or modified by the command line.
3247
3248
3249=head1 COMMANDS
3250
3251=head2 add-alias
3252
3253 ddt add-alias [--hostname|-h hostname] [--domainset|-d domainset] [--alias|-a alias]
3254
3255=head2 add-dhcp
3256
3257 ddt add-dhcp [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip] [--mac|-m mac] [--comment|-c comment]
3258
3259=head2 add-float
3260
3261 ddt add-float [--pool|-p pool] [--domainset|-d domainset] [--mac|-m mac] [--comment|-c comment]
3262
3263=head2 add-static
3264
3265 ddt add-static [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip] [--mac|-m mac] [--comment|-c comment]
3266
3267=head2 add-virtual
3268
3269 ddt add-virtual [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip] [--comment|-c comment]
3270
3271=head2 change-comment
3272
3273 ddt change-comment [--domainset|-d domainset] [--mac|-m mac] [--comment|-c comment]
3274
3275=head2 change-domainset
3276
3277 ddt change-domainset [--domainset|-d domainset] [--ip|-i ip] [--mac|-m mac]
3278
3279=head2 change-host
3280
3281 ddt change-host [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip]
3282
3283=head2 change-ip
3284
3285 ddt change-ip [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip]
3286
3287=head2 change-mac
3288
3289 ddt change-mac [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip] [--mac|-m mac]
3290
3291=head2 change-tag
3292
3293 ddt change-tag [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip] [--mac|-m mac] [--tag|-t tag]
3294
3295=head2 check-dns
3296
3297 ddt check-dns
3298
3299=head2 create-domainset
3300
3301 ddt create-domainset [--domainset|-d domainset] [--dns-extension|-e dns_extension] [--comment|-c comment]
3302
3303=head2 create-pool
3304
3305 ddt create-pool [--pool|-p pool] [--domainset|-d domainset] [--file-pool|-f file_pool] [--ipaddress-pool|-i ipaddress_pool]
3306
3307=head2 create-pxe
3308
3309 ddt create-pxe [--bootp|-b pxe_config] [--next-server|-n next_server] [--filename|-f filename] [--comment|-c comment]
3310
3311=head2 create-tag
3312
3313 ddt create-tag [--tag|-t tag] [--comment|-c comment]
3314
3315=head2 del-float
3316
3317 ddt del-float [--pool|-p pool] [--mac|-m mac]
3318
3319=head2 del-pc
3320
3321 ddt del-pc [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip]
3322
3323=head2 disable-pc
3324
3325 ddt disable-pc [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip]
3326
3327=head2 disable-float
3328
3329 ddt disable-float [--pool|-p pool] [--mac|-m mac]
3330
3331=head2 disable-pxe
3332
3333 ddt disable-pxe [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip]
3334
3335=head2 enable-float
3336
3337 ddt enable-float [--pool|-p pool] [--mac|-m mac]
3338
3339=head2 enable-pc
3340
3341 ddt enable-pc [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip]
3342
3343=head2 enable-pxe
3344
3345 ddt enable-pxe [--hostname|-h hostname] [--domainset|-d domainset] [--ip|-i ip] [--bootp|-b pxe_config]
3346
3347=head2 gen-dhcp-file
3348
3349 ddt gen-dhcp-file
3350
3351=head2 gen-dns-file
3352
3353 ddt gen-dns-file
3354
3355=head2 help
3356
3357 ddt help
3358
3359=head2 load-database
3360
3361 ddt load-database [--domainset|-d domainset] [--filename|-f filename] [--kind|-k kind]
3362
3363=head2 remove-pxe
3364
3365 ddt remove-pxe [--bootp|-b pxe_config]
3366
3367=head2 remove-tag
3368
3369 ddt remove-tag [--tag|-t tag]
3370
3371=head2 search-mac
3372
3373 ddt search-mac [--mac|-m mac]
3374
3375=head2 show-domainset
3376
3377 ddt show-domainset [--no-header|-H]
3378
3379=head2 show
3380
3381 ddt show
3382
3383=head2 show-pool
3384
3385 ddt show-pool [--no-header|-H]
3386
3387=head2 show-pxe
3388
3389 ddt show-pxe [--no-header|-H]
3390
3391=head2 show-tag
3392
3393 ddt show-tag [--no-header|-H]
3394
3395=head2 version
3396
3397 ddt version
3398
3399
3400=head1 AUTHORS
3401
3402Written by Gabriel Moreau <Gabriel.Moreau(A)univ-grenoble-alpes.fr>, Kevin Reverchon, Olivier De-Marchi - Grenoble - France
3403
3404
3405=head1 LICENSE AND COPYRIGHT
3406
3407License GNU GPL version 2 or later and Perl equivalent
3408
3409Copyright (C) 2006-2018, LEGI UMR 5519 / CNRS UGA G-INP, Grenoble, France
Note: See TracBrowser for help on using the repository browser.