Changeset 157ac77


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

Legend:

Unmodified
Added
Removed
  • fedkit/fed-tun.pl

    r68bb551 r157ac77  
    8989    $filename = $opts{'f'};
    9090}
     91else {
     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}
    91112
    92113if (defined($opts{'r'})) {
Note: See TracChangeset for help on using the changeset viewer.