Commit 24887fbf authored by Leigh Stoller's avatar Leigh Stoller

Revise last revision

parent c0addbac
......@@ -498,16 +498,19 @@ sub tmcc ($;$$%)
sub tmccbossname()
{
my @tmccresults;
my $bossname;
return $ENV{'BOSSNAME'}
if (exists($ENV{'BOSSNAME'}));
if (runtmcc(TMCCCMD_BOSSINFO, undef, \@tmccresults) < 0 ||
if (exists($ENV{'BOSSNAME'})) {
$bossname = $ENV{'BOSSNAME'};
}
elsif (runtmcc(TMCCCMD_BOSSINFO, undef, \@tmccresults) < 0 ||
!scalar(@tmccresults)) {
warn("*** WARNING: Could not get bossinfo from tmcc!\n");
return undef;
}
my ($bossname) = split(" ", $tmccresults[0]);
else {
($bossname) = split(" ", $tmccresults[0]);
}
#
# Taint check. Nice to do for the caller. Also strips any newline.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment