Changeset 3784 in /cluster/svnroot


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

don't generate multiple subnet statements for PXE mode (#729)

File:
1 edited

Legend:

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

    r3783 r3784  
    20302030       
    20312031        close($PCONF);
    2032             if(-d "/diskless/$PROJECT") {
    2033             open(my $FCONF, '>', $DISKLESS_FSTAB) ||
    2034                 $self->log_and_die("ERROR",$sub,"Can't open file $DISKLESS_FSTAB: $!");
    2035            
    2036             print $FCONF "$nic_conf->{$pxenic}->{'ipaddr'}:/bccd/home  /bccd/home   nfs     nfsvers=3,tcp,rsize=32768,wsize=32768,hard,intr 0 0\n";
    2037            
    2038             close($FCONF);
    2039         }
    2040     }
    2041     else {
     2032                if(-d "/diskless/$PROJECT") {
     2033                open(my $FCONF, '>', $DISKLESS_FSTAB) ||
     2034                        $self->log_and_die("ERROR",$sub,"Can't open file $DISKLESS_FSTAB: $!");
     2035                   
     2036                print $FCONF "$nic_conf->{$pxenic}->{'ipaddr'}:/bccd/home  /bccd/home   nfs     nfsvers=3,tcp,rsize=32768,wsize=32768,hard,intr 0 0\n";
     2037                   
     2038                close($FCONF);
     2039        }
     2040    }
     2041    else {
     2042                print Dumper($nic_conf);
     2043                sleep 30;
    20422044        print $DCONF "allow bootp;\nallow booting;\n\n";
    20432045                print $DCONF "# This is a total hack to get DHCP to work with interface aliases\n";
    20442046                print $DCONF "subnet $BCCD_NET->{'net'} netmask $BCCD_NET->{'mask'} {\n\n";
    2045                 print $DCONF "\tauthoritative;\n";
     2047                print $DCONF "authoritative;\n";
    20462048        print $DCONF "\toption subnet-mask $pubnet->{'mask'};\n";
    20472049        print $DCONF "\toption broadcast-address $pubnet->{'bcast'};\n";
     
    20522054        print $DCONF "\t}\n";
    20532055        print $DCONF "}\n";
     2056       
     2057                # Include the base NIC (no alias) as well
     2058                my $base_dhcpnic = $dhcpnic;
     2059                $base_dhcpnic =~ s{:\d+$}{};
     2060       
     2061                my $base_dhcpnic_ip = new NetAddr::IP($nic_conf->{$base_dhcpnic}->{'ipaddr'},
     2062                                                                        $nic_conf->{$base_dhcpnic}->{'mask'});
     2063                # Just get the network address, not the mask
     2064                my $network = $base_dhcpnic_ip->network();
     2065                $network =~ s{/\d+$}{};
     2066       
     2067                print $DCONF "subnet $network ";
     2068                print $DCONF "netmask $nic_conf->{$base_dhcpnic}->{'mask'} {\n";
     2069                print $DCONF "\tpool {\n";
     2070                print $DCONF "\t\tallow members of \"bccd-nodes\";\n";
     2071                print $DCONF "\t\trange 127.0.0.10 127.0.0.11;\n";
     2072                print $DCONF "\t}\n";
     2073                print $DCONF "}\n";
     2074           
     2075            close($DCONF);
    20542076        }
    2055 
    2056         # Include the base NIC (no alias) as well
    2057         my $base_dhcpnic = $dhcpnic;
    2058         $base_dhcpnic =~ s{:\d+$}{};
    2059 
    2060         my $base_dhcpnic_ip = new NetAddr::IP($nic_conf->{$base_dhcpnic}->{'ipaddr'},
    2061                                                                 $nic_conf->{$base_dhcpnic}->{'mask'});
    2062         # Just get the network address, not the mask
    2063         my $network = $base_dhcpnic_ip->network();
    2064         $network =~ s{/\d+$}{};
    2065 
    2066         print $DCONF "subnet $network ";
    2067         print $DCONF "netmask $nic_conf->{$base_dhcpnic}->{'mask'} {\n";
    2068         print $DCONF "\tpool {\n";
    2069         print $DCONF "\t\tallow members of \"bccd-nodes\";\n";
    2070         print $DCONF "\t\trange 127.0.0.10 127.0.0.11;\n";
    2071         print $DCONF "\t}\n";
    2072         print $DCONF "}\n";
    2073    
    2074     close($DCONF);
    20752077
    20762078        if($self->parse_cmdline("recoverdhcp")) {
Note: See TracChangeset for help on using the changeset viewer.