Changeset 3785 in /cluster/svnroot


Ignore:
Timestamp:
Aug 26, 2012 7:42:54 PM (8 years ago)
Author:
skylar
Message:

generate subnet blocks for each nic (#729)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • bccd-ng/branches/skylar/bccd-3.1.1/trees/usr/local/lib/site_perl/Bccd.pm

    r3784 r3785  
    20402040    }
    20412041    else {
    2042                 print Dumper($nic_conf);
    2043                 sleep 30;
    20442042        print $DCONF "allow bootp;\nallow booting;\n\n";
    20452043                print $DCONF "# This is a total hack to get DHCP to work with interface aliases\n";
     
    20732071                print $DCONF "}\n";
    20742072           
     2073                # Generate blank subnet statements for each known subnet
     2074                foreach my $nic_conf_nic (keys(%{$nic_conf})) {
     2075                        # Filter out aliases (DHCP doesn't like them)
     2076                        if($nic_conf_nic !~ m{:\d+$}
     2077                                && defined($nic_conf->{$nic_conf_nic}->{'ipaddr'})
     2078                                && defined($nic_conf->{$nic_conf_nic}->{'mask'})) {
     2079                                my $nic_nai
     2080                                        = new NetAddr::IP($nic_conf->{$nic_conf_nic}->{'ipaddr'},
     2081                                                $nic_conf->{$nic_conf_nic}->{'mask'});
     2082                                $network = $nic_nai->network();
     2083                                $network =~ s{/\d+$}{};
     2084                                print $DCONF "subnet $network ";
     2085                                print $DCONF "netmask $nic_conf->{$nic_conf_nic}->{'mask'} {\n";
     2086                                print $DCONF "}\n";
     2087                        }
     2088                }
     2089
    20752090            close($DCONF);
    20762091        }
Note: See TracChangeset for help on using the changeset viewer.