Changeset 364 for trunk/ddt

Timestamp:

Sep 17, 2018, 9:13:47 AM (6 years ago)

Author:

g7moreau

Message:

• Add command change-type (not finish)

File:

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

trunk/ddt/ddt

@@ -47 +47 @@
    'change-mac'         => \&cmd_change_mac,
    'change-tag'         => \&cmd_change_tag,
+   'change-type'        => \&cmd_change_type,
    'check-dns'          => \&cmd_check_dns,
    'create-sector'      => \&cmd_create_sector,
@@ -1053 +1054 @@
 
    exit_on_error_option($help)
-      if $sector  eq ''
+      if $sector     eq ''
       or $tags       eq '';
    exit_on_error_option($help)
@@ -1094 +1095 @@
    print "Mise à jour du commentaire de la machine [FAILED]\n";
    print "L'adresse MAC: $mac n'existe pas dans le domaine: $sector.\n";
+   }
+
+#--------------------------------------------------------------------------------
+
+sub cmd_change_type {
+   local @ARGV = @_;
+
+   my $help = get_cmd_name();
+   my ($hostname, $sector, $type);
+
+   GetOptions(
+      'hostname|h=s'    => \$hostname,
+      'sector|s|d=s'    => \$sector,
+      'type|t=s'        => \$type,
+      );
+
+   ($hostname, $sector) = split /\./, $hostname, 2 if $hostname =~ m/\./;
+
+   exit_on_error_option($help)
+      if $sector     eq ''
+      and $hostname  eq ''
+      and $type      eq '';
+
+   my $computer_db = ipamdb_load($COMPUTER_YAML);
+
+   if ($type !~ m/^ (dhcp|float|static|virtual) $/xms) {
+      die "Error: bad type: $type\n";
+      }
+
+   $type =~ s/^float$/pool-dhcp/;
+   # No type virtual actually. See and write exactly type name and their property
+
+   control_exist_sector($computer_db, $sector) or exit;
+
+   $mac = get_mac_from_hostname($computer_db, $sector, $hostname, $mac);
+   control_syntax_mac_address($mac) or exit;
+
+   LOOP_ON_COMPUTER:
+   for my $computer (@{$computer_db->{$sector}}) {
+      my ($mac_address, $attribute) = %{$computer};
+
+      next LOOP_ON_COMPUTER if $mac_address ne $mac;
+
+      $attribute->{'address_type'}  = $type;
+      $attribute->{'modify_time'}   = time;
+
+      ipamdb_save("$COMPUTER_YAML", $computer_db);
+      exit;
+      }
+   print "Error: change host $hostname type [FAILED]\n";
    }
 
@@ -3173 +3224 @@
       }
 
+   elsif ($command eq 'change-type') {
+      print "List of options for command: $command\n";
+      print " -h : computer hostname (mandatory)\n";
+      print " -s : sector attachment (mandatory)\n";
+      print " -t : new type). Example: -t static\n";
+      }
+
    elsif ($command eq 'load-database') {
       print "List of options for command: $command\n";
@@ -3278 +3336 @@
  ddt change-mac [--hostname|-h hostname] [--sector|-s|-d sector] [--ip|-i ip] [--mac|-m mac]
  ddt change-tag [--hostname|-h hostname] [--sector|-s|-d sector] [--ip|-i ip] [--mac|-m mac] [--tag|-t tag]
+ ddt change-type [--hostname|-h hostname] [--sector|-s|-d sector] [--type|-t type]
  ddt check-dns [--direct] [--reverse]
  ddt create-sector [--sector|-s|-d sector] [--dns-extension|-e dns_extension] [--comment|-c comment]
@@ -3319 +3378 @@
  * change-mac        : change the computer physical MAC address
  * change-tag        : change the list of TAGs associated to a computer
+ * change-type       : change the type associated to a computer
  * check-dns         : check the DNS table for base IPs
  * create-sector     : create a new sector
@@ -3374 +3434 @@
  ddt change-mac [--hostname|-h hostname] [--sector|-s|-d sector] [--ip|-i ip] [--mac|-m mac]
  ddt change-tag [--hostname|-h hostname] [--sector|-s|-d sector] [--ip|-i ip] [--mac|-m mac] [--tag|-t tag]
+ ddt change-type [--hostname|-h hostname] [--sector|-s|-d sector] [--type|-t type]
  ddt check-dns [--direct] [--reverse]
  ddt create-sector [--sector|-s|-d sector] [--dns-extension|-e dns_extension] [--comment|-c comment]
@@ -3462 +3523 @@
  ddt change-tag [--hostname|-h hostname] [--sector|-s|-d sector] [--ip|-i ip] [--mac|-m mac] [--tag|-t tag]
 
+=head2 change-type
+
+ ddt change-type [--hostname|-h hostname] [--sector|-s|-d sector] [--type|-t type]
+
 =head2 check-dns