Changeset 3319 in /cluster/svnroot


Ignore:
Timestamp:
Jul 15, 2011 9:36:05 PM (9 years ago)
Author:
skylar
Message:

typo in merge (#524)

File:
1 edited

Legend:

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

    r3318 r3319  
    23212321                }
    23222322            }
    2323             elsif(defined($nic_conf->{$nic}->{'dhcp_source'})
    2324                         && ((-e '/testmode') || ($d->yesno(text=>"$nic has an IP address $nic_conf->{$nic}->{'ipaddr'} from $nic_conf->{$nic}->{'dhcp_source'}. Take this address?")
    2325                         ))) {
     2323            elsif(defined($nic_conf->{$nic}->{'dhcp_source'}) && $d->yesno(text=>"$nic has an IP address $nic_conf->{$nic}->{'ipaddr'} from $nic_conf->{$nic}->{'dhcp_source'}. Take this address?")) {
    23262324                $nic_conf->{$nic}->{'dhcp'} = 1;
    23272325            }
     
    23302328            }
    23312329            if($nic_conf->{$nic}->{'dhcp'} == 0 && !defined($nic_conf->{$nic}->{'ipaddr'})
    2332              && ! -e '/testmode'
    2333                          && ! $d->yesno(text=>"No DHCP for $nic, skip?")) {
     2330               && !$d->yesno(text=>"No DHCP for $nic, skip?")) {
    23342331                $nic_conf->{$nic}->{'dhcp'} = 0;
    23352332            }
     
    23422339                    $nic_conf->{$nic}->{'ipaddr'} = ($temp = $d->inputbox(text=>"$nic IP address (mandatory)")) ? $temp : undef;
    23432340                   
    2344                                                 if(!$self->is_dialog_ok($d)) {
    2345                                                         redo FIND_EXT_NIC;
    2346                                                 }
    2347                                         }
     2341                    if(!$self->is_dialog_ok($d)) {
     2342                        redo FIND_EXT_NIC;
     2343                    }
     2344                    elsif($nic_conf->{$nic}->{'ipaddr'} eq $BCCD_NET->{'ipaddr'}) {
     2345                        $d->msgbox(text => "IP address cannot be the BCCD virtual IP ($BCCD_NET->{'ipaddr'}).");
     2346                        goto FIND_CUR_NIC;
     2347                    }
     2348                   
     2349                    $nic_conf->{$nic}->{'mask'} = ($temp = $d->inputbox(text=>"$nic Subnet mask (mandatory)")) ? $temp : undef;
     2350                   
     2351                    if(!$self->is_dialog_ok($d)) {
     2352                        redo FIND_EXT_NIC;
     2353                    }
    23482354                   
    23492355                    $nic_conf->{$nic}->{'gw'} = ($temp = $d->inputbox(text=>"$nic Gateway (optional)")) ? $temp : undef;
     
    23842390        }
    23852391    }
     2392   
    23862393    return $nic_conf;
    23872394}
Note: See TracChangeset for help on using the changeset viewer.