Ignore:
Timestamp:
Jul 10, 2015 5:39:23 PM (5 years ago)
Author:
skylar
Message:

fixing prompts and logic for DHCP/PXE detection re #950

File:
1 edited

Legend:

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

    r5226 r5227  
    23232323        }
    23242324       
    2325         my $base_dhcpnic_ip = new NetAddr::IP($self->{nic_conf}->{$base_dhcpnic}->{'ipaddr'},
     2325        my $base_dhcpnic_ip
     2326            = new NetAddr::IP($self->{nic_conf}->{$base_dhcpnic}->{'ipaddr'},
    23262327            $self->{nic_conf}->{$base_dhcpnic}->{'mask'});
    23272328                # Just get the network address, not the mask
     
    23292330                $network =~ s{/\d+$}{};
    23302331       
    2331                 print $DCONF "subnet $network ";
    2332                 print $DCONF "netmask $self->{nic_conf}->{$base_dhcpnic}->{'mask'} {\n";
    2333                 print $DCONF "}\n";
    2334 
    2335                 # Generate blank subnet statements for the BCCD network
    2336         if(defined($self->{nic_conf}->{$self->{bccd_nic}}->{'mask'})) {
    2337 # Filter out aliases (DHCP doesn't like them)
    2338             if($self->{bccd_nic} !~ m{:\d+$}
    2339                     && defined($self->{nic_conf}->{$self->{bccd_nic}}->{'ipaddr'})
    2340                     && defined($self->{nic_conf}->{$self->{bccd_nic}}->{'mask'})) {
    2341                 my $nic_nai
    2342                     = new NetAddr::IP($self->{nic_conf}->{$self->{bccd_nic}}->{'ipaddr'},
    2343                             $self->{nic_conf}->{$self->{bccd_nic}}->{'mask'});
    2344                 $network = $nic_nai->network();
    2345                 $network =~ s{/\d+$}{};
    2346                 print $DCONF "subnet $network ";
    2347                 print $DCONF "netmask $self->{nic_conf}->{$self->{bccd_nic}}->{'mask'} {\n";
    2348                 print $DCONF "}\n";
    2349             }
    2350         }           
    2351 
    23522332            close($DCONF);
    23532333        }
     
    27892769                $msg_string .= " (Say NO to configure PXE/diskless booting.)";
    27902770            }
     2771            $temp = $d->yesno(text => $msg_string);
    27912772            if(($self->{nic_conf}->{$nic}->{'dhcp'} == 0)
    27922773                                && !defined($self->{nic_conf}->{$nic}->{'ipaddr'})
    27932774                && ! -e '/testmode'
    2794                                 && ! $d->yesno(text => $msg_string)) {
     2775                                && $temp == 0) {
    27952776                $self->{nic_conf}->{$nic}->{'dhcp'} = 0;
    27962777            }
     2778            elsif($temp == 1) {
     2779                $self->{nic_conf}->{$nic}->{'dhcp'} = 1;
     2780            }
     2781
    27972782            if($self->{nic_conf}->{$nic}->{'dhcp'} == 0) {
    27982783              FIND_CUR_NIC:
     
    28012786                    if(!defined($gotpxe)
    28022787                                                && $self->get_stage() eq 'LIBERATED'
    2803                         && $d->yesno(text=>"Make $nic the PXE-capable NIC?")) {
     2788                        && $d->yesno(text=>"Make $nic the PXE-capable NIC?")
     2789                        && $self->{nic_conf}->{$nic}->{'dhcp'} == 0
     2790                    ) {
    28042791                        $gotpxe = 1;
    28052792                        $self->{nic_conf}->{$nic}->{'pxenic'}  = $nic;
Note: See TracChangeset for help on using the changeset viewer.