- Timestamp:
- Sep 17, 2007 12:56:06 PM (17 years ago)
- Branches:
- axis_example, compt_changes, info-ops, master, version-1.30, version-2.00, version-3.01, version-3.02
- Children:
- 838fb6a
- Parents:
- 3c7da22
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
fedkit/splitter.pl
r3c7da22 rf70f9c8 7 7 use File::Copy; 8 8 9 @scripts = ("federate.sh", "smbmount.pl", "make_hosts" );9 @scripts = ("federate.sh", "smbmount.pl", "make_hosts", "fed-tun.pl"); 10 10 $local_script_dir = "."; 11 11 … … 411 411 412 412 # Write out the file 413 open(GWCONFIG, ">$tmpdir/$gateways/$myname$sdomain.gw.conf")||413 $gwconfig= new IO::File(">$tmpdir/$gateways/$myname$sdomain.gw.conf")|| 414 414 die "can't open $tmpdir/$gateways/$myname$sdomain.gw.conf: $!\n"; 415 415 416 print GWCONFIG"Active: $active\n";417 print GWCONFIG"TunnelCfg: $tun{$gateways}\n";418 print GWCONFIG"BossName: $boss{$master}$domain{$master}\n";419 print GWCONFIG"FsName: $fs{$master}$domain{$master}\n";420 print GWCONFIG"Type: $type\n";421 print GWCONFIG"Peer: $desthost$ddomain\n";422 print GWCONFIG"Pubkeys: " .416 print $gwconfig "Active: $active\n"; 417 print $gwconfig "TunnelCfg: $tun{$gateways}\n"; 418 print $gwconfig "BossName: $boss{$master}$domain{$master}\n"; 419 print $gwconfig "FsName: $fs{$master}$domain{$master}\n"; 420 print $gwconfig "Type: $type\n"; 421 print $gwconfig "Peer: $desthost$ddomain\n"; 422 print $gwconfig "Pubkeys: " . 423 423 "/proj/$sproject/exp/$eid/tmp/$gw_pubkey_base\n"; 424 print GWCONFIG"Privkeys: " .424 print $gwconfig "Privkeys: " . 425 425 "/proj/$sproject/exp/$eid/tmp/$gw_secretkey_base\n"; 426 close(GWCONFIG);426 $gwconfig->close(); 427 427 428 428 # This testbed has a gateway (most will) so make a copy of the keys it
Note: See TracChangeset
for help on using the changeset viewer.