Changeset 157ac77

Timestamp:

Sep 18, 2009 1:08:46 PM (15 years ago)

Author:

Ted Faber <faber@…>

Branches:

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

Children:

adcbdaf

Parents:

68bb551

Message:

duh; avoid embedded newline

File:

• fedkit/fed-tun.pl (modified) (1 diff)

fedkit/fed-tun.pl

@@ -89 +89 @@
     $filename = $opts{'f'};
 }
+else {
+    # Find the configuration file in the usual place, which depends on what
+    # experiment and project we're in.
+    my $pid;
+    my $eid;
+
+    open(TMCD, "$TMCC status |") || die "tmcc failed\n";
+    print "Opened $TMCC status\n" if ($debug);
+    while (<TMCD>) {
+        chomp;
+        /ALLOCATED=([^\/]+)\/(\S+)/ && do {
+            $pid = $1;
+            $eid = $2;
+        };
+    }
+    close(TMCD);
+    my $hn = `hostname`;
+    chomp $hn;
+    $filename = "/proj/$pid/exp/$eid/tmp/$hn.gw.conf"
+        if $pid and $eid;
+}
 
 if (defined($opts{'r'})) {