Changeset 3246 in /cluster/svnroot for bccd-ng/trunk/trees/usr/local/lib/site_perl/5.10.0/Bccd.pm

Timestamp:

Jun 21, 2011 8:20:14 PM (10 years ago)

Author:

skylar

Message:

merging in tftp nat fix (#643)

File:

• bccd-ng/trunk/trees/usr/local/lib/site_perl/5.10.0/Bccd.pm (modified) (1 diff)

bccd-ng/trunk/trees/usr/local/lib/site_perl/5.10.0/Bccd.pm

@@ -2198 +2198 @@
         if(defined($natnic)) {
         if($self->is_log($INFO) || $self->is_log($DEBUG)) {
-                        $self->log_and_cont('INFO',$sub,"Writing out $NATSH");
-                }
-                open(my $NAT, '>', $NATSH) or
-                        $self->log_and_die("ERROR",$sub,"Couldn't open $NATSH for writing: $!");
-
-                my $natip = $self->get_nic_ip($natnic);
-                if(!defined($natip)) {
-                        $self->log_and_die("ERROR",$sub,"Couldn't get IP address for $natnic!");
-                }
-
-                print $NAT qq{#!/bin/bash\n\n};
-                foreach my $LINE (
-                                                                q{--flush},
-                                                                q{-t nat --flush},
-                                                                q{--delete-chain},
-                                                                q{-t nat --delete-chain},
-                                                                qq{-t nat -A POSTROUTING -s 192.168.3.0/24 -j SNAT --to $natip},
-                                                        ) {
-                        print $NAT "/sbin/iptables $LINE\n";
-                }
-
-                close($NAT);
+            $self->log_and_cont('INFO',$sub,"Writing out $NATSH");
+        }
+        open(my $NAT, '>', $NATSH) or
+            $self->log_and_die("ERROR",$sub,"Couldn't open $NATSH for writing: $!");
+        
+        my $natip = $self->get_nic_ip($natnic);
+        if(!defined($natip)) {
+            $self->log_and_die("ERROR",$sub,"Couldn't get IP address for $natnic!");
+        }
+        
+        print $NAT qq{#!/bin/bash\n\n};
+ 
+        print $NAT qq{if hostname|grep -q node000; then\n};
+       
+        foreach my $LINE (
+            q{--flush},
+            q{-t nat --flush},
+            q{--delete-chain},
+            q{-t nat --delete-chain},
+            qq{-t nat -A POSTROUTING -o $natnic -j LOG --log-level debug --log-prefix "POSTRT: "},
+            qq{-t nat -A POSTROUTING -o $natnic -s 192.168.3.0/24 -j SNAT --to $natip},
+            ) {
+            print $NAT qq{\t/sbin/iptables $LINE\n};
+        }
+        print $NAT qq{fi\n};
+        
+        close($NAT);
         if($self->is_log($INFO) || $self->is_log($DEBUG)) {
                         $self->log_and_cont('INFO',$sub,"Making $NATSH executable");