Changeset f70f9c8


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • fedkit/splitter.pl

    r3c7da22 rf70f9c8  
    77use File::Copy;
    88
    9 @scripts = ("federate.sh", "smbmount.pl", "make_hosts");
     9@scripts = ("federate.sh", "smbmount.pl", "make_hosts", "fed-tun.pl");
    1010$local_script_dir = ".";
    1111
     
    411411
    412412        # Write out the file
    413         open(GWCONFIG, ">$tmpdir/$gateways/$myname$sdomain.gw.conf") ||
     413        $gwconfig= new IO::File(">$tmpdir/$gateways/$myname$sdomain.gw.conf")||
    414414            die "can't open $tmpdir/$gateways/$myname$sdomain.gw.conf: $!\n";
    415415
    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: " .
    423423            "/proj/$sproject/exp/$eid/tmp/$gw_pubkey_base\n";
    424         print GWCONFIG "Privkeys: " .
     424        print $gwconfig "Privkeys: " .
    425425            "/proj/$sproject/exp/$eid/tmp/$gw_secretkey_base\n";
    426         close(GWCONFIG);
     426        $gwconfig->close();
    427427
    428428        # 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.