Changeset 3786 in /cluster/svnroot


Ignore:
Timestamp:
Aug 28, 2012 12:39:44 AM (8 years ago)
Author:
skylar
Message:

making nic_conf a member variable for persistence (#729)

Location:
bccd-ng/branches/skylar/bccd-3.1.1
Files:
2 edited
1 copied

Legend:

Unmodified
Added
Removed
  • bccd-ng/branches/skylar/bccd-3.1.1/packages/etc/skel/.bash_profile

    • Property svn:keywords changed from Id Rev Author Date to Id
  • bccd-ng/branches/skylar/bccd-3.1.1/packages/etc/skel/.bashrc.old

    • Property svn:keywords set to Id
  • bccd-ng/branches/skylar/bccd-3.1.1/trees/usr/local/lib/site_perl/Bccd.pm

    r3785 r3786  
    17771777    my($self) = @_;
    17781778    my @nics;
    1779     my $nic_conf;
    17801779    my $sub='nic_dialog';
    17811780    my $d = new UI::Dialog (backtitle => "Configure NICS",
     
    17931792   
    17941793    foreach my $nic (@chosen_nics) {
    1795         $nic_conf->{$nic} = $self->config_nic_dialog($d,$nic);
    1796         if(!defined($nic_conf->{$nic})) {
     1794        $self->{nic_conf}->{$nic} = $self->config_nic_dialog($d,$nic);
     1795        if(!defined($self->{nic_conf}->{$nic})) {
    17971796            return undef;
    17981797        }
     
    18011800    $self->config_interfaces($nic_conf);
    18021801   
    1803     return $nic_conf;
     1802    return 1;
    18041803}
    18051804
     
    18311830
    18321831sub config_interfaces{
    1833     my($self,$nic_conf) = @_;
     1832    my($self) = @_;
    18341833    my($sub,$rc);
    18351834    my @auto;
     
    18431842    print $INT "iface lo inet loopback\n\n";
    18441843
    1845     foreach my $nic (keys(%{$nic_conf})) {
    1846         if($nic_conf->{$nic}->{'dhcp'}) {
     1844    foreach my $nic (keys(%{$self->{nic_conf}})) {
     1845        if($self->{nic_conf}->{$nic}->{'dhcp'}) {
    18471846            push(@auto,$nic);
    18481847            print $INT "iface $nic inet dhcp\n\n";
    1849             if(defined($nic_conf->{$nic}->{'dhcp_source'}) && $nic_conf->{$nic}->{'dhcp_source'} eq 'BCCD') {
     1848            if(defined($self->{nic_conf}->{$nic}->{'dhcp_source'})
     1849                                && $self->{nic_conf}->{$nic}->{'dhcp_source'} eq 'BCCD') {
    18501850                if($self->require_bccd_server() > 2) {
    18511851                    $self->log_and_die("ERROR",$sub,"Couldn't set BCCD server in dhclient.");
     
    18581858            }
    18591859        }
    1860         elsif(defined($nic_conf->{$nic}->{'ipaddr'}) && defined($nic_conf->{$nic}->{'mask'})) {
     1860        elsif(defined($self->{nic_conf}->{$nic}->{'ipaddr'})
     1861                        && defined($self->{nic_conf}->{$nic}->{'mask'})) {
    18611862            push(@auto,$nic);
    18621863            print $INT "iface $nic inet static\n";
    1863             print $INT "\taddress $nic_conf->{$nic}->{'ipaddr'}\n";
    1864             print $INT "\tnetmask $nic_conf->{$nic}->{'mask'}\n";
    1865             if(defined($nic_conf->{$nic}->{'bcast'})) {
    1866                 print $INT "\tbroadcast $nic_conf->{$nic}->{'bcast'}\n";
    1867             }
    1868             if(defined($nic_conf->{$nic}->{'gw'})) {
    1869                 print $INT "\tgateway $nic_conf->{$nic}->{'gw'}\n";
     1864            print $INT "\taddress $self->{nic_conf}->{$nic}->{'ipaddr'}\n";
     1865            print $INT "\tnetmask $self->{nic_conf}->{$nic}->{'mask'}\n";
     1866            if(defined($self->{nic_conf}->{$nic}->{'bcast'})) {
     1867                print $INT "\tbroadcast $self->{nic_conf}->{$nic}->{'bcast'}\n";
     1868            }
     1869            if(defined($self->{nic_conf}->{$nic}->{'gw'})) {
     1870                print $INT "\tgateway $self->{nic_conf}->{$nic}->{'gw'}\n";
    18701871            }
    18711872        }
     
    18761877    $self->leave_sub($sub);
    18771878
    1878         return $nic_conf;
     1879        return 1;
    18791880}
    18801881
    18811882sub check_bccd_net{
    1882         my($self,$nic_conf) = @_;
     1883        my($self) = @_;
    18831884        my $sub = 'check_bccd_net';
    18841885
    1885         foreach my $nic (keys(%{$nic_conf})) {
    1886                 if(defined($nic_conf->{$nic}->{'dhcp_source'}) &&
    1887                         $nic_conf->{$nic}->{dhcp_source} eq 'BCCD') {
     1886        foreach my $nic (keys(%{$self->{nic_conf}})) {
     1887                if(defined($self->{nic_conf}->{$nic}->{'dhcp_source'}) &&
     1888                        $self->{nic_conf}->{$nic}->{dhcp_source} eq 'BCCD') {
    18881889                        return 1;
    18891890                }
     
    18941895
    18951896sub config_dhcp{
    1896     my($self,$nic_conf) = @_;
     1897    my($self) = @_;
    18971898    my($sub,$pubnetip,$j,$oneip,$file,$pubnet,$pxenet,$havedhcp,
    18981899       $bcast,$mask,$i,$rc,$out,$pxenic,$pxenetip,$addr,$dhcpnic,
     
    19021903    $havedhcp = 0;
    19031904  FIND_PXE_NIC:
    1904     foreach my $nic (keys(%{$nic_conf})) {
    1905         if(defined($nic_conf->{$nic}->{'pxenic'})) {
     1905    foreach my $nic (keys(%{$self->{nic_conf}})) {
     1906        if(defined($self->{nic_conf}->{$nic}->{'pxenic'})) {
    19061907            $pxenic = $nic;
    19071908            last FIND_PXE_NIC;
     
    19091910    }
    19101911   
    1911     foreach my $nic (keys(%{$nic_conf})) {
    1912         if(defined($nic_conf->{$nic}->{'dhcp_source'}) &&
    1913            $nic_conf->{$nic}->{'dhcp_source'} eq 'BCCD') {
     1912    foreach my $nic (keys(%{$self->{nic_conf}})) {
     1913        if(defined($self->{nic_conf}->{$nic}->{'dhcp_source'}) &&
     1914           $self->{nic_conf}->{$nic}->{'dhcp_source'} eq 'BCCD') {
    19141915            $havedhcp = 1;
    19151916        }
    19161917    }
    19171918   
    1918   HAVE_DHCP: foreach my $nic (keys(%{$nic_conf})) {
    1919       if(defined($nic_conf->{$nic}->{'bccdnet'})) {
     1919  HAVE_DHCP: foreach my $nic (keys(%{$self->{nic_conf}})) {
     1920      if(defined($self->{nic_conf}->{$nic}->{'bccdnet'})) {
    19201921          $dhcpnic = $nic;
    19211922          last HAVE_DHCP;
     
    19241925   
    19251926    if(defined($pxenic)) {
    1926         $pxenetip = new NetAddr::IP($nic_conf->{$pxenic}->{'ipaddr'},$nic_conf->{$pxenic}->{'mask'}) ||
    1927             $self->log_and_die("ERROR",$sub,"Couldn't create network IP object for $nic_conf->{$pxenic}->{'ipaddr'}: $!");
    1928         if(!defined($nic_conf->{$pxenic}->{'gw'})) {
    1929             $nic_conf->{$pxenic}->{'gw'} = $nic_conf->{$pxenic}->{'ipaddr'};
     1927        $pxenetip = new NetAddr::IP($self->{nic_conf}->{$pxenic}->{'ipaddr'},
     1928                                                                        $self->{nic_conf}->{$pxenic}->{'mask'}) ||
     1929            $self->log_and_die("ERROR",$sub,"Couldn't create network "
     1930                                ."IP object for $self->{nic_conf}->{$pxenic}->{'ipaddr'}: $!");
     1931        if(!defined($self->{nic_conf}->{$pxenic}->{'gw'})) {
     1932            $self->{nic_conf}->{$pxenic}->{'gw'}
     1933                                = $self->{nic_conf}->{$pxenic}->{'ipaddr'};
    19301934        }
    19311935    }
     
    19651969    # Increment to first DHCP address
    19661970    for($i=1;$i<$DHCP_RANGES->{'res'};$i++) {
    1967         if(defined($dhcpnic) && $pubnetip->addr() eq $nic_conf->{$dhcpnic}->{'ipaddr'}) {
     1971        if(defined($dhcpnic)
     1972                        && $pubnetip->addr()
     1973                                eq $self->{nic_conf}->{$dhcpnic}->{'ipaddr'}) {
    19681974            print $HOSTS sprintf("%s\tnode%.3d.bccd.net node%.3d %s %s\t# Reserved IP\n", $pubnetip->addr(), $j, $j,
    19691975                                 $HOSTNAME, $SHORT_HOSTNAME);
     
    20122018        print $DCONF "\toption subnet-mask $pxenet->{'mask'};\n";
    20132019        print $DCONF "\toption broadcast-address $pxenet->{'bcast'};\n";
    2014         print $DCONF "\toption routers $nic_conf->{$pxenic}->{'gw'};\n";
     2020        print $DCONF "\toption routers $self->{nic_conf}->{$pxenic}->{'gw'};\n";
    20152021        print $DCONF "\tpool {\n";
    20162022        print $DCONF "\t\trange $pxenet->{'firstip'} $pxenet->{'lastip'};\n";
    20172023        print $DCONF "\t\tallow members of \"pxelinux-nodes\";\n";
    20182024        print $DCONF "\t\tfilename \"pxelinux.0\";\n";
    2019         print $DCONF "\t\tnext-server $nic_conf->{$pxenic}->{'ipaddr'};\n";
    2020         print $DCONF "\t\toption root-path \"$nic_conf->{$pxenic}->{'ipaddr'}:/,nfsvers=3,tcp,hard\";\n";
     2025        print $DCONF "\t\tnext-server $self->{nic_conf}->{$pxenic}->{'ipaddr'};\n";
     2026        print $DCONF "\t\toption root-path \"$self->{nic_conf}->{$pxenic}->{'ipaddr'}:/,nfsvers=3,tcp,hard\";\n";
    20212027        print $DCONF "\t}\n";
    20222028        print $DCONF "}\n";
     
    20272033        print $PCONF "label bccd\n";
    20282034        print $PCONF "\tkernel vmlinuz-$KERNREV\n";
    2029         print $PCONF "\tappend ETHERNET=eth0 initrd=initrd.img-$KERNREV root=/dev/nfs nfsroot=$nic_conf->{$pxenic}->{'ipaddr'}:/ ip=dhcp init=/sbin/init vga=791 lang=us\n";
     2035        print $PCONF "\tappend ETHERNET=eth0 initrd=initrd.img-$KERNREV "
     2036                        ."root=/dev/nfs nfsroot=$self->{nic_conf}->{$pxenic}->{'ipaddr'}:/ "
     2037                        ."ip=dhcp init=/sbin/init vga=791 lang=us\n";
    20302038       
    20312039        close($PCONF);
     
    20342042                        $self->log_and_die("ERROR",$sub,"Can't open file $DISKLESS_FSTAB: $!");
    20352043                   
    2036                 print $FCONF "$nic_conf->{$pxenic}->{'ipaddr'}:/bccd/home  /bccd/home   nfs     nfsvers=3,tcp,rsize=32768,wsize=32768,hard,intr 0 0\n";
     2044                print $FCONF "$self->{nic_conf}->{$pxenic}->{'ipaddr'}:/bccd/home  "
     2045                                ."/bccd/home   nfs     "
     2046                                ."nfsvers=3,tcp,rsize=32768,wsize=32768,hard,intr 0 0\n";
    20372047                   
    20382048                close($FCONF);
     
    20572067                $base_dhcpnic =~ s{:\d+$}{};
    20582068       
    2059                 my $base_dhcpnic_ip = new NetAddr::IP($nic_conf->{$base_dhcpnic}->{'ipaddr'},
    2060                                                                         $nic_conf->{$base_dhcpnic}->{'mask'});
     2069                my $base_dhcpnic_ip = new NetAddr::IP($self->{nic_conf}->{$base_dhcpnic}->{'ipaddr'},
     2070                                                                        $self->{nic_conf}->{$base_dhcpnic}->{'mask'});
    20612071                # Just get the network address, not the mask
    20622072                my $network = $base_dhcpnic_ip->network();
     
    20642074       
    20652075                print $DCONF "subnet $network ";
    2066                 print $DCONF "netmask $nic_conf->{$base_dhcpnic}->{'mask'} {\n";
     2076                print $DCONF "netmask $self->{nic_conf}->{$base_dhcpnic}->{'mask'} {\n";
    20672077                print $DCONF "\tpool {\n";
    20682078                print $DCONF "\t\tallow members of \"bccd-nodes\";\n";
     
    20702080                print $DCONF "\t}\n";
    20712081                print $DCONF "}\n";
    2072            
     2082
    20732083                # Generate blank subnet statements for each known subnet
    2074                 foreach my $nic_conf_nic (keys(%{$nic_conf})) {
     2084                foreach my $nic_conf_nic (keys(%{$self->{nic_conf}})) {
    20752085                        # Filter out aliases (DHCP doesn't like them)
    20762086                        if($nic_conf_nic !~ m{:\d+$}
    2077                                 && defined($nic_conf->{$nic_conf_nic}->{'ipaddr'})
    2078                                 && defined($nic_conf->{$nic_conf_nic}->{'mask'})) {
     2087                                && defined($self->{nic_conf}->{$nic_conf_nic}->{'ipaddr'})
     2088                                && defined($self->{nic_conf}->{$nic_conf_nic}->{'mask'})) {
    20792089                                my $nic_nai
    2080                                         = new NetAddr::IP($nic_conf->{$nic_conf_nic}->{'ipaddr'},
    2081                                                 $nic_conf->{$nic_conf_nic}->{'mask'});
     2090                                        = new NetAddr::IP($self->{nic_conf}->{$nic_conf_nic}->{'ipaddr'},
     2091                                                $self->{nic_conf}->{$nic_conf_nic}->{'mask'});
    20822092                                $network = $nic_nai->network();
    20832093                                $network =~ s{/\d+$}{};
    20842094                                print $DCONF "subnet $network ";
    2085                                 print $DCONF "netmask $nic_conf->{$nic_conf_nic}->{'mask'} {\n";
     2095                                print $DCONF "netmask $self->{nic_conf}->{$nic_conf_nic}->{'mask'} {\n";
    20862096                                print $DCONF "}\n";
    20872097                        }
     
    22032213        }
    22042214    }
    2205     return $nic_conf;
     2215    return 1;
    22062216}
    22072217
    22082218sub config_nat{
    2209         my($self,$nic_conf) = @_;
     2219        my($self) = @_;
    22102220        my($natnic,$sub);
    22112221        $sub = 'config_nat';
     
    22822292
    22832293sub config_nic_dialog {
    2284     my($self,$d,$nic_conf) = @_;
     2294    my($self,$d) = @_;
    22852295    my($temp,$bccd_nic,$gotpxe,$dhcp_source,$sub,$rc);
    22862296    $sub = 'config_nic_dialog';
     
    22912301        my @dhcp_nics;
    22922302        # See if there's a BCCD server response
    2293         foreach my $nic (keys(%{$nic_conf})) {
    2294             if(defined($nic_conf->{$nic}->{'dhcp_source'})
    2295                && $nic_conf->{$nic}->{'dhcp_source'} eq 'BCCD') {
     2303        foreach my $nic (keys(%{$self->{nic_conf}})) {
     2304            if(defined($self->{nic_conf}->{$nic}->{'dhcp_source'})
     2305               && $self->{nic_conf}->{$nic}->{'dhcp_source'} eq 'BCCD') {
    22962306                $dhcp_source = 'BCCD';
    22972307            }
     
    22992309
    23002310        # Display NICs that have non-BCCD IP addresses with the IP address they got
    2301         foreach my $nic (sort(keys(%{$nic_conf}))) {
     2311        foreach my $nic (sort(keys(%{$self->{nic_conf}}))) {
    23022312            # Only if we didn't pick up a BCCD server
    2303             if((defined($nic_conf->{$nic}->{'dhcp_source'}) && $nic_conf->{$nic}->{'dhcp_source'} ne 'BCCD') || !defined($dhcp_source)) {
     2313            if((defined($self->{nic_conf}->{$nic}->{'dhcp_source'})
     2314                                && $self->{nic_conf}->{$nic}->{'dhcp_source'} ne 'BCCD')
     2315                                || !defined($dhcp_source)) {
    23042316                my $ip = $self->get_nic_ip($nic);
    23052317                push(@dhcp_nics,($nic,defined($ip) ? "($ip)" : "()"));
     
    23392351        }
    23402352        # Setup NAT in iptables on the BCCD NIC
    2341         if(defined($bccd_nic) && !$self->check_bccd_net($nic_conf)) {
    2342             $nic_conf->{"$bccd_nic:1"} = $BCCD_NET;
     2353        if(defined($bccd_nic) && !$self->check_bccd_net($self->{nic_conf})) {
     2354            $self->{nic_conf}->{"$bccd_nic:1"} = $BCCD_NET;
    23432355            foreach my $LINE (
    23442356                q{*nat},
     
    23542366
    23552367      NIC_CONF:
    2356         foreach my $nic (sort keys %{$nic_conf}) {
    2357             if(defined($nic_conf->{$nic}->{'ipaddr'}) && defined($nic_conf->{$nic}->{'dhcp_source'}) &&
    2358                $nic_conf->{$nic}->{'dhcp_source'} eq 'BCCD') {
     2368        foreach my $nic (sort keys %{$self->{nic_conf}}) {
     2369            if(defined($self->{nic_conf}->{$nic}->{'ipaddr'})
     2370                                && defined($self->{nic_conf}->{$nic}->{'dhcp_source'})
     2371                                && $self->{nic_conf}->{$nic}->{'dhcp_source'} eq 'BCCD') {
    23592372                # Only for NICs that pickup a response from a non-BCCD DHCP server
    23602373                if(!$self->parse_cmdline('standalone')) {
    2361                     $nic_conf->{$nic}->{'dhcp'} = 1;
     2374                    $self->{nic_conf}->{$nic}->{'dhcp'} = 1;
    23622375                }
    23632376            }
    2364             elsif(defined($nic_conf->{$nic}->{'dhcp_source'})
    2365                         && ((-e '/testmode') || ($d->yesno(text=>"$nic has an IP address $nic_conf->{$nic}->{'ipaddr'} from $nic_conf->{$nic}->{'dhcp_source'}. Take this address?")
     2377            elsif(defined($self->{nic_conf}->{$nic}->{'dhcp_source'})
     2378                        && ((-e '/testmode')
     2379                        || ($d->yesno(text=>"$nic has an IP address "
     2380                                ."$self->{nic_conf}->{$nic}->{'ipaddr'} from "
     2381                                ."$self->{nic_conf}->{$nic}->{'dhcp_source'}. Take this address?")
    23662382                        ))) {
    2367                 $nic_conf->{$nic}->{'dhcp'} = 1;
     2383                $self->{nic_conf}->{$nic}->{'dhcp'} = 1;
    23682384            }
    23692385            else {
    2370                 $nic_conf->{$nic}->{'dhcp'} = 0;
    2371             }
    2372             if(($nic_conf->{$nic}->{'dhcp'} == 0) && !defined($nic_conf->{$nic}->{'ipaddr'})
    2373              && ! -e '/testmode'
    2374                          && ! $d->yesno(text=>"No DHCP for $nic, skip?")) {
    2375                 $nic_conf->{$nic}->{'dhcp'} = 0;
     2386                $self->{nic_conf}->{$nic}->{'dhcp'} = 0;
     2387            }
     2388            if(($self->{nic_conf}->{$nic}->{'dhcp'} == 0)
     2389                                && !defined($self->{nic_conf}->{$nic}->{'ipaddr'})
     2390                && ! -e '/testmode'
     2391                                && ! $d->yesno(text=>"No DHCP for $nic, skip?")) {
     2392                $self->{nic_conf}->{$nic}->{'dhcp'} = 0;
    23762393            }
    23772394            else {
     
    23792396                # unless the base interface has an IP address
    23802397                if($nic eq $bccd_nic) {
    2381                     $nic_conf->{$nic}->{'ipaddr'} = '127.127.127.127';
    2382                     $nic_conf->{$nic}->{'mask'} = '255.0.0.0';
     2398                    $self->{nic_conf}->{$nic}->{'ipaddr'} = '127.127.127.127';
     2399                    $self->{nic_conf}->{$nic}->{'mask'} = '255.0.0.0';
    23832400                }
    23842401                next NIC_CONF;
    23852402            }
    2386             if($nic_conf->{$nic}->{'dhcp'} == 0) {
     2403            if($self->{nic_conf}->{$nic}->{'dhcp'} == 0) {
    23872404              FIND_CUR_NIC:
    23882405                do {
    23892406                    # Setup a PXE network if liberated and requested
    2390                     if(!defined($gotpxe) && $self->get_stage() eq 'LIBERATED' && $d->yesno(text=>"Make $nic the PXE-capable NIC?")) {
     2407                    if(!defined($gotpxe)
     2408                                                && $self->get_stage() eq 'LIBERATED'
     2409                                                && $d->yesno(text=>"Make $nic the PXE-capable NIC?")) {
    23912410                        $gotpxe = 1;
    2392                         $nic_conf->{$nic}->{'pxenic'}  = $nic;
    2393                         $nic_conf->{$nic}->{'ipaddr'}  = $BCCD_NET->{'ipaddr'};
    2394                         $nic_conf->{$nic}->{'bcast'}   = $BCCD_NET->{'bcast'};
    2395                         $nic_conf->{$nic}->{'mask'}    = $BCCD_NET->{'mask'};
    2396                         $nic_conf->{$nic}->{'bccdnet'} = $BCCD_NET->{'bccdnet'};
     2411                        $self->{nic_conf}->{$nic}->{'pxenic'}  = $nic;
     2412                        $self->{nic_conf}->{$nic}->{'ipaddr'}  = $BCCD_NET->{'ipaddr'};
     2413                        $self->{nic_conf}->{$nic}->{'bcast'}   = $BCCD_NET->{'bcast'};
     2414                        $self->{nic_conf}->{$nic}->{'mask'}    = $BCCD_NET->{'mask'};
     2415                        $self->{nic_conf}->{$nic}->{'bccdnet'} = $BCCD_NET->{'bccdnet'};
    23972416                      DELETE_VIRTUAL_NIC:
    2398                         foreach my $x (keys(%{$nic_conf})) {
    2399                             if(defined($nic_conf->{"$x:1"}->{'ipaddr'}) &&
    2400                                $nic_conf->{"$x:1"}->{'ipaddr'} eq $BCCD_NET->{'ipaddr'}) {
    2401                                 delete $nic_conf->{"$x:1"};
     2417                        foreach my $x (keys(%{$self->{nic_conf}})) {
     2418                            if(defined($self->{nic_conf}->{"$x:1"}->{'ipaddr'})
     2419                               && $self->{nic_conf}->{"$x:1"}->{'ipaddr'} eq $BCCD_NET->{'ipaddr'}) {
     2420                                delete $self->{nic_conf}->{"$x:1"};
    24022421                            }
    24032422                        }
     
    24062425                        # If no PXE, then allow the user to set network information manually
    24072426                        if (-e '/testmode'){
    2408                             $nic_conf->{$nic}->{'ipaddr'} = '192.168.0.*';
     2427                            $self->{nic_conf}->{$nic}->{'ipaddr'} = '192.168.0.*';
    24092428                        }else{
    2410                             $nic_conf->{$nic}->{'ipaddr'} =
     2429                            $self->{nic_conf}->{$nic}->{'ipaddr'} =
    24112430                                ($temp = $d->inputbox(text=>
    24122431                                                      "$nic IP address (mandatory)")) ? $temp : undef;
     
    24162435                                redo FIND_EXT_NIC;
    24172436                            }
    2418                             elsif($nic_conf->{$nic}->{'ipaddr'}
     2437                            elsif($self->{nic_conf}->{$nic}->{'ipaddr'}
    24192438                                  eq $BCCD_NET->{'ipaddr'}) {
    24202439                                $d->msgbox(text =>
     
    24252444                       
    24262445                        if (-e '/testmode'){
    2427                             $nic_conf->{$nic}->{'mask'} = "255.255.255.0";
     2446                            $self->{nic_conf}->{$nic}->{'mask'} = "255.255.255.0";
    24282447                        } else {
    2429                             $nic_conf->{$nic}->{'mask'} =
     2448                            $self->{nic_conf}->{$nic}->{'mask'} =
    24302449                                ($temp = $d->inputbox(text=>
    24312450                                                      "$nic Subnet mask (mandatory)")) ? $temp : undef;
     
    24362455                        }
    24372456                       
    2438                         $nic_conf->{$nic}->{'gw'} = ($temp = $d->inputbox(text=>"$nic Gateway (optional)")) ? $temp : undef;
     2457                        $self->{nic_conf}->{$nic}->{'gw'}
     2458                                                        = ($temp = $d->inputbox(text=>"$nic Gateway (optional)")) ? $temp : undef;
    24392459                        if(!$self->is_dialog_ok($d)) {
    24402460                            redo FIND_EXT_NIC;
    24412461                        }
    24422462                    }
    2443                 } while(!defined($nic_conf->{$nic}->{'ipaddr'}) || !defined($nic_conf->{$nic}->{'mask'}));
     2463                } while(!defined($self->{nic_conf}->{$nic}->{'ipaddr'})
     2464                                        || !defined($self->{nic_conf}->{$nic}->{'mask'}));
    24442465            }
    24452466        }
Note: See TracChangeset for help on using the changeset viewer.