- Timestamp:
- Sep 18, 2009 1:08:46 PM (15 years ago)
- Branches:
- axis_example, compt_changes, info-ops, master, version-2.00, version-3.01, version-3.02
- Children:
- adcbdaf
- Parents:
- 68bb551
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
fedkit/fed-tun.pl
r68bb551 r157ac77 89 89 $filename = $opts{'f'}; 90 90 } 91 else { 92 # Find the configuration file in the usual place, which depends on what 93 # experiment and project we're in. 94 my $pid; 95 my $eid; 96 97 open(TMCD, "$TMCC status |") || die "tmcc failed\n"; 98 print "Opened $TMCC status\n" if ($debug); 99 while (<TMCD>) { 100 chomp; 101 /ALLOCATED=([^\/]+)\/(\S+)/ && do { 102 $pid = $1; 103 $eid = $2; 104 }; 105 } 106 close(TMCD); 107 my $hn = `hostname`; 108 chomp $hn; 109 $filename = "/proj/$pid/exp/$eid/tmp/$hn.gw.conf" 110 if $pid and $eid; 111 } 91 112 92 113 if (defined($opts{'r'})) {
Note: See TracChangeset
for help on using the changeset viewer.