Changeset f70f9c8 for fedkit/splitter.pl

Timestamp:

Sep 17, 2007 12:56:06 PM (17 years ago)

Author:

Ted Faber <faber@…>

Branches:

axis_example, compt_changes, info-ops, master, version-1.30, version-2.00, version-3.01, version-3.02

Children:

838fb6a

Parents:

3c7da22

Message:

One more filehandle to IO::File and add fed-tun.pl to the scripts list.

File:

• fedkit/splitter.pl (modified) (2 diffs)

fedkit/splitter.pl

@@ -7 +7 @@
 use File::Copy;
 
-@scripts = ("federate.sh", "smbmount.pl", "make_hosts");
+@scripts = ("federate.sh", "smbmount.pl", "make_hosts", "fed-tun.pl");
 $local_script_dir = ".";
 
@@ -411 +411 @@
 
         # Write out the file
-        open(GWCONFIG, ">$tmpdir/$gateways/$myname$sdomain.gw.conf") || 
+        $gwconfig= new IO::File(">$tmpdir/$gateways/$myname$sdomain.gw.conf")|| 
             die "can't open $tmpdir/$gateways/$myname$sdomain.gw.conf: $!\n";
 
-        print GWCONFIG "Active: $active\n";
-        print GWCONFIG "TunnelCfg: $tun{$gateways}\n";
-        print GWCONFIG "BossName: $boss{$master}$domain{$master}\n";
-        print GWCONFIG "FsName: $fs{$master}$domain{$master}\n";
-        print GWCONFIG "Type: $type\n";
-        print GWCONFIG "Peer: $desthost$ddomain\n";
-        print GWCONFIG "Pubkeys: " . 
+        print $gwconfig "Active: $active\n";
+        print $gwconfig "TunnelCfg: $tun{$gateways}\n";
+        print $gwconfig "BossName: $boss{$master}$domain{$master}\n";
+        print $gwconfig "FsName: $fs{$master}$domain{$master}\n";
+        print $gwconfig "Type: $type\n";
+        print $gwconfig "Peer: $desthost$ddomain\n";
+        print $gwconfig "Pubkeys: " . 
             "/proj/$sproject/exp/$eid/tmp/$gw_pubkey_base\n";
-        print GWCONFIG "Privkeys: " .
+        print $gwconfig "Privkeys: " .
             "/proj/$sproject/exp/$eid/tmp/$gw_secretkey_base\n";
-        close(GWCONFIG);
+        $gwconfig->close();
 
         # This testbed has a gateway (most will) so make a copy of the keys it