Changeset 199

Timestamp:

Jan 25, 2017, 11:00:14 PM (8 years ago)

Author:

g7moreau

Message:

• Add fake-ip functionality

File:

• trunk/klask (modified) (3 diffs)

trunk/klask

@@ -7 +7 @@
 use strict;
 use warnings;
-use version; our $VERSION = qv('0.5.7');
+use version; our $VERSION = qv('0.5.8');
 
 use Readonly;
@@ -2154 +2154 @@
    for my $one_switch (@list_all_switch) {
       my %resol_arp = resolve_ip_arp_host($one_switch, q{*}, q{low}); # arp resolution
+      if (exists $SWITCH_DB{$one_switch}{'fake-ip'}) {
+         print "WARNING: fake ip on switch $one_switch -> $SWITCH_DB{$one_switch}{'fake-ip'} / $resol_arp{ipv4_address}\n" if $verbose;
+         my %resol_arp_alt = resolve_ip_arp_host($SWITCH_DB{$one_switch}{'fake-ip'}, q{*}, q{low}); # arp resolution
+         if ($resol_arp_alt{mac_address} ne 'unknow') {
+            $resol_arp{mac_address}   = $resol_arp_alt{mac_address};
+            $resol_arp{interface}     = $resol_arp_alt{interface};
+            $resol_arp{ipv4_address} .= '*';
+            }
+         }
       print "Info: switch loop $one_switch\n" if $verbose;
       next ALL_SWITCH if $resol_arp{mac_address} eq 'unknow';
@@ -2179 +2188 @@
 
    ALL_SWITCH_IP_ADDRESS:
-   for my $ip (Net::Netmask::sort_by_ip_address(@list_switch_ipv4)) {
+   for my $ip (@list_switch_ipv4) {
+#   for my $ip (Net::Netmask::sort_by_ip_address(@list_switch_ipv4)) {
 
       print "VERBOSE_5: loop on $db_switch_ip_hostnamefq{$ip}\n" if $verbose;