Changeset 367 for trunk/ddt

Timestamp:

Sep 17, 2018, 9:15:05 PM (6 years ago)

Author:

g7moreau

Message:

• doc and comment

File:

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

trunk/ddt/ddt

@@ -441 +441 @@
 #Nom: add_alias
 #Description: ajoute un alias pour une machine. Pour la fonctionnalité CNAME dans le DNS.
+# Seems not finish and not functional !
 
 sub add_alias {
@@ -580 +581 @@
    exit_on_error_option($help)
       if $hostname   eq ''
-      or $sector  eq ''
+      or $sector     eq ''
       or $alias      eq '';
 
@@ -606 +607 @@
    exit_on_error_option($help)
       if $hostname   eq ''
-      or $sector  eq ''
+      or $sector     eq ''
       or $ip         eq ''
       or $mac        eq ''
@@ -633 +634 @@
    exit_on_error_option($help)
       if $pool       eq ''
-      or $sector  eq ''
+      or $sector     eq ''
       or $mac        eq ''
       or $comment    eq '';
@@ -642 +643 @@
 
 #-------------------------------------------------------------------------------
+# No DHCP computer, just an entry A in DNS with a real MAC
 
 sub cmd_add_static {
@@ -660 +662 @@
    exit_on_error_option($help)
       if $hostname   eq ''
-      or $sector  eq ''
+      or $sector     eq ''
       or $ip         eq ''
       or $mac        eq ''
@@ -688 +690 @@
    exit_on_error_option($help)
       if $hostname   eq ''
-      or $sector  eq ''
+      or $sector     eq ''
       or $ip         eq ''
       or $comment    eq '';
@@ -705 +707 @@
 
    my $mac = join ':', 'FF', 'FF', map({sprintf("%02X", $_)} split(/\./, $ip));
-   control_syntax_mac_address($mac)             or exit;
-   control_exist_mac($computer_db, $mac)         or die "Error: virtual physical MAC address already exists: $mac\n";
+   control_syntax_mac_address($mac)       or exit;
+   control_exist_mac($computer_db, $mac)  or die "Error: virtual physical MAC address already exists: $mac\n";
 
    push @{$computer_db->{$sector}}, { $mac => {
@@ -716 +718 @@
       'modify_time'  => $timestamp,
       'comment'      => $comment,
+      'alias'        =>  '',
       }};
    print "Add the virtual computer: $hostname, IP: $ip, sector: $sector\n";
@@ -905 +908 @@
    exit_on_error_option($help)
       if $hostname   eq ''
-      or $sector  eq ''
+      or $sector     eq ''
       or $ip         eq '';
 
@@ -928 +931 @@
    exit_on_error_option($help)
       if $hostname   eq ''
-      or $sector  eq ''
+      or $sector     eq ''
       or $ip         eq '';
 
@@ -1120 +1123 @@
    my $computer_db = ipamdb_load($COMPUTER_YAML);
 
-   if ($type !~ m/^ (dhcp|float|static|virtual) $/xms) {
+   if ($type !~ m/^ (dhcp|float|static) $/xms) {
       die "Error: bad type: $type\n";
       }
@@ -1759 +1762 @@
    exit_on_error_option($help)
       if $pool             eq ''
-      or $sector        eq ''
+      or $sector           eq ''
       or $file_pool        eq ''
       or $ipaddress_pool   eq '';
@@ -3493 +3496 @@
 =head2 add-static
 
+Add a static host in the database.
+No DHCP configuration will be generated,
+only DNS.
+
  ddt add-static [--hostname|-h hostname] [--sector|-s|-d sector] [--ip|-i ip] [--mac|-m mac] [--comment|-c comment]
 
 =head2 add-virtual
 
+Add a static host in the database with a virtual MAC address beginning by C<FF:FF:...>.
+No DHCP configuration will be generated,
+only DNS.
+
  ddt add-virtual [--hostname|-h hostname] [--sector|-s|-d sector] [--ip|-i ip] [--comment|-c comment]