Changeset 3241 in /cluster/svnroot


Ignore:
Timestamp:
Jun 20, 2011 8:32:54 AM (9 years ago)
Author:
skylar
Message:

need to interpoliate (#643)

File:
1 edited

Legend:

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

    r3239 r3241  
    22042204        print $NAT qq{#!/bin/bash\n\n};
    22052205 
    2206         print $NAT q{if hostname|grep -q node000; then\n};
     2206        print $NAT qq{if hostname|grep -q node000; then\n};
    22072207       
    22082208        foreach my $LINE (
     
    22142214            qq{-t nat -A POSTROUTING -o $natnic -s 192.168.3.0/24 -j SNAT --to $natip},
    22152215            ) {
    2216             print $NAT "\t/sbin/iptables $LINE\n";
    2217         }
    2218         print $NAT q{fi\n};
     2216            print $NAT qq{\t/sbin/iptables $LINE\n};
     2217        }
     2218        print $NAT qq{fi\n};
    22192219       
    22202220        close($NAT);
Note: See TracChangeset for help on using the changeset viewer.