Changeset 4805 in /cluster/svnroot


Ignore:
Timestamp:
Jul 16, 2014 8:15:53 AM (6 years ago)
Author:
skylar
Message:

wheezy does not need auto for other interfaces (#856)

File:
1 edited

Legend:

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

    r4803 r4805  
    19941994        print "\n\n";
    19951995    }
    1996     print $INT "auto ".reverse(sort(@auto))."\n";
     1996    print $INT "auto lo\n";
    19971997   
    19981998    close($INT);
     
    20612061    $sub='config_interfaces';
    20622062        $self->enter_sub($sub);
     2063
     2064    if($self->is_log($DEBUG)) {
     2065        $self->log_and_cont('DEBUG',$sub,"Configuring interfaces ".
     2066            Dumper($self->{nic_conf}));
     2067    }
    20632068   
    20642069    open(my $INT, '>', $INTFILE) or
     
    20702075    foreach my $nic (keys(%{$self->{nic_conf}})) {
    20712076        if($self->{nic_conf}->{$nic}->{'dhcp'}) {
     2077            if($self->is_log($DEBUG)) {
     2078                $self->log_and_cont('DEBUG',$sub,"Pushing DHCP $nic onto auto stack");
     2079            }
    20722080            push(@auto,$nic);
    20732081            print $INT "iface $nic inet dhcp\n\n";
     
    20862094        elsif(defined($self->{nic_conf}->{$nic}->{'ipaddr'})
    20872095                        && defined($self->{nic_conf}->{$nic}->{'mask'})) {
     2096            if($self->is_log($DEBUG)) {
     2097                $self->log_and_cont('DEBUG',$sub,"Pushing static $nic onto auto stack");
     2098            }
    20882099            push(@auto,$nic);
    20892100            print $INT "iface $nic inet static\n";
     
    21262137       $destfile);
    21272138    $sub = 'config_dhcp';
     2139
     2140    if($self->is_log($DEBUG)) {
     2141        $self->log_and_cont('DEBUG',$sub,"Processing NICs for DHCP ".
     2142            Dumper($self->{nic_conf}));
     2143    }
    21282144   
    21292145    $havedhcp = 0;
     
    26572673        elsif($#dhcp_nics > 0 and not -e '/testmode') {
    26582674            if($self->is_log($DEBUG)) {
    2659                 $self->log_and_cont('DEBUG',$sub,"Multiple NICs for BCCD,
    2660 prompting");
     2675                $self->log_and_cont('DEBUG',$sub,"Multiple NICs for BCCD, prompting");
    26612676            }
    26622677            $d->msgbox(
     
    27762791                    if(!defined($gotpxe)
    27772792                                                && $self->get_stage() eq 'LIBERATED'
    2778                                                 && $d->yesno(text=>"Make $nic the PXE-capable NIC?")) {
     2793                        && $d->yesno(text=>"Make $nic the PXE-capable NIC?")) {
    27792794                        $gotpxe = 1;
    27802795                        $self->{nic_conf}->{$nic}->{'pxenic'}  = $nic;
    2781                         $self->{nic_conf}->{$nic}->{'ipaddr'}  = $BCCD_NET->{'ipaddr'};
    2782                         $self->{nic_conf}->{$nic}->{'bcast'}   = $BCCD_NET->{'bcast'};
    2783                         $self->{nic_conf}->{$nic}->{'mask'}    = $BCCD_NET->{'mask'};
    2784                         $self->{nic_conf}->{$nic}->{'bccdnet'} = $BCCD_NET->{'bccdnet'};
    2785                       DELETE_VIRTUAL_NIC:
    2786                         foreach my $x (keys(%{$self->{nic_conf}})) {
    2787                             if(defined($self->{nic_conf}->{"$x:1"}->{'ipaddr'})
    2788                                && $self->{nic_conf}->{"$x:1"}->{'ipaddr'} eq $BCCD_NET->{'ipaddr'}) {
    2789                                 delete $self->{nic_conf}->{"$x:1"};
     2796                        $self->{nic_conf}->{$nic}->{'ipaddr'}  = $BCCD_NET->{'ipaddr'};
     2797                        $self->{nic_conf}->{$nic}->{'bcast'}   = $BCCD_NET->{'bcast'};
     2798                        $self->{nic_conf}->{$nic}->{'mask'}    = $BCCD_NET->{'mask'};
     2799                        $self->{nic_conf}->{$nic}->{'bccdnet'} = $BCCD_NET->{'bccdnet'};
     2800                        if($self->is_log($DEBUG)) {
     2801                            $self->log_and_cont('DEBUG',$sub,"Set $nic to ".Dumper($self->{nic_conf}->{$nic}));
     2802                        }
     2803DELETE_VIRTUAL_NIC:
     2804                        foreach my $x (keys(%{$self->{nic_conf}})) {
     2805                            if($self->is_log($DEBUG)) {
     2806                                $self->log_and_cont('DEBUG',$sub,"Testing $x for virtual");
    27902807                            }
    27912808                        }
     
    28352852        }
    28362853    }
     2854
     2855    if($self->is_log($DEBUG)) {
     2856        $self->log_and_cont('DEBUG',$sub,"Dialog got NICs "
     2857            .Dumper($self->{nic_conf}));
     2858    }
    28372859   
    28382860    return 1;
Note: See TracChangeset for help on using the changeset viewer.