Changeset 3118 in /cluster/svnroot


Ignore:
Timestamp:
Apr 10, 2011 9:54:21 PM (10 years ago)
Author:
skylar
Message:

interim commit (#609)

Location:
bccd-ng/branches/skylar-devel/trees
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • bccd-ng/branches/skylar-devel/trees/bin/bccd-nic-setup

    r2751 r3118  
    6464        $Bccd->config_interfaces($nic_conf);
    6565        $Bccd->config_dhcp($nic_conf);
     66        $Bccd->config_nat($nic_conf);
    6667        $rc = touch($LOCK_FILE);
    6768        if(!$rc) {
  • bccd-ng/branches/skylar-devel/trees/bin/bccd-reset-network

    r3016 r3118  
    8282fi
    8383
    84 ${LOGCMD} -p info "Running bccd-nat"
    85 /bin/bccd-nat
    86 RC=$?
    87 if [ ${RC} -ne 0 ]; then
    88         fatal -m "bccd-nat failed" -r ${RC}
    89 fi
     84#${LOGCMD} -p info "Running bccd-nat"
     85#/bin/bccd-nat
     86#RC=$?
     87#if [ ${RC} -ne 0 ]; then
     88#       fatal -m "bccd-nat failed" -r ${RC}
     89#fi
    9090
    9191${LOGCMD} -p info "Starting networking again"
  • bccd-ng/branches/skylar-devel/trees/usr/local/lib/site_perl/5.10.0/Bccd.pm

    r2940 r3118  
    21642164
    21652165sub config_nat{
    2166         my($self) = @_;
     2166        my($self,$nic_conf) = @_;
    21672167        my($natnic,$sub);
    21682168        $sub = 'config_nat';
     
    21702170                $self->log_and_cont('INFO',$sub,"Gathering routing information");
    21712171        }
    2172         open(my $NETSTAT, '-|', '/bin/netstat', '-rn') or
    2173                 $self->log_and_die("ERROR",$sub,"Couldn't open up netstat for piping!");
    2174 
    2175         NETSTAT:
    2176         while(my $line = <$NETSTAT>) {
    2177                 chomp $line;
    2178                 my @splitline = split(/\s+/, $line);
    2179                 if($splitline[0] eq '0.0.0.0') {
    2180                 if($self->is_log($INFO) || $self->is_log($DEBUG)) {
    2181                                 $self->log_and_cont('INFO',$sub,"$splitline[7] is a default router");
     2172
     2173        NIC:
     2174        foreach my $nic (keys(%{$nic_conf})) {
     2175                if(defined($nic_conf->{$nic}->{'bccdnet'})) {
     2176                        $natnic = $nic;
     2177                        # Test for virtual NIC and use base if it's configured
     2178                        if($natnic =~ m{(\w+):1$} && defined($nic_conf->{$1})) {
     2179                                $natnic = $1;
    21822180                        }
    2183                         $natnic = $splitline[7];
    2184                         last NETSTAT;
    21852181                }
    21862182        }
    2187         close($NETSTAT);
    21882183
    21892184        if(defined($natnic)) {
     
    23362331        }
    23372332    }
    2338    
     2333
    23392334    return $nic_conf;
    23402335}
Note: See TracChangeset for help on using the changeset viewer.