Changeset 3247 in /cluster/svnroot


Ignore:
Timestamp:
Jun 21, 2011 8:21:19 PM (9 years ago)
Author:
skylar
Message:

just have empty script for now (#644)

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

Legend:

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

    r3245 r3247  
    21672167
    21682168sub config_nat{
    2169     my($self,$nic_conf) = @_;
    2170     my($natnic,$sub);
    2171     $sub = 'config_nat';
    2172     if($self->is_log($INFO) || $self->is_log($DEBUG)) {
    2173         $self->log_and_cont('INFO',$sub,"Gathering routing information");
    2174     }
    2175    
     2169        my($self,$nic_conf) = @_;
     2170        my($natnic,$sub);
     2171        $sub = 'config_nat';
     2172    if($self->is_log($INFO) || $self->is_log($DEBUG)) {
     2173                $self->log_and_cont('INFO',$sub,"Gathering routing information");
     2174        }
     2175
    21762176    open(my $NETSTAT, '-|', '/bin/netstat', '-rn') or
    21772177        $self->log_and_die("ERROR",$sub,"Couldn't open up netstat for piping!");
    2178    
    2179   NETSTAT:
     2178
     2179    NETSTAT:
    21802180    while(my $line = <$NETSTAT>) {
    21812181        chomp $line;
     
    21902190    }
    21912191    close($NETSTAT);
    2192    
    2193     if(defined($natnic)) {
     2192
     2193        if(defined($natnic)) {
    21942194        if($self->is_log($INFO) || $self->is_log($DEBUG)) {
    21952195            $self->log_and_cont('INFO',$sub,"Writing out $NATSH");
     
    22052205        print $NAT qq{#!/bin/bash\n\n};
    22062206 
    2207         print $NAT qq{if hostname|grep -q node000; then\n};
    2208        
    22092207        foreach my $LINE (
    22102208            q{--flush},
     
    22212219        close($NAT);
    22222220        if($self->is_log($INFO) || $self->is_log($DEBUG)) {
    2223             $self->log_and_cont('INFO',$sub,"Making $NATSH executable");
    2224         }
    2225         chmod(S_IRWXU|S_IRGRP|S_IXGRP|S_IROTH|S_IXOTH, $NATSH) or
    2226             $self->log_and_die("ERROR",$sub,"Couldn't set $NATSH to be executable: $!");
    2227        
    2228         return 1;
    2229     }
    2230     return undef;
     2221                        $self->log_and_cont('INFO',$sub,"Making $NATSH executable");
     2222                }
     2223                chmod(S_IRWXU|S_IRGRP|S_IXGRP|S_IROTH|S_IXOTH, $NATSH) or
     2224                        $self->log_and_die("ERROR",$sub,"Couldn't set $NATSH to be executable: $!");
     2225               
     2226                return 1;
     2227        }
     2228        return undef;
    22312229}
    22322230
Note: See TracChangeset for help on using the changeset viewer.