[Bio] / FigCommon / bootstrap.pl Repository:
ViewVC logotype

Diff of /FigCommon/bootstrap.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.34, Wed Dec 12 22:42:05 2007 UTC revision 1.35, Wed Jan 2 17:52:55 2008 UTC
# Line 208  Line 208 
208  {  {
209      return if defined($FIG_Config::hosttype);      return if defined($FIG_Config::hosttype);
210    
211      my $hosttype = `bash -c 'echo \$HOSTTYPE'`;      open(CF, "<$FIG_Config::env_config_file") or
212      if ($hosttype eq '')          die "Cannot open $FIG_Config::env_config_file: $!";
213    
214        my $hostinfo = `bash -c 'echo \$HOSTTYPE \$HOSTNAME'`;
215        if ($hostinfo  !~ /^\s*(\S+)\s*(\S+)/)
216      {      {
217          die "Error retrieving hosttype; bash failed with rc=$?";          die "Error retrieving hosttype; bash failed with rc=$?";
218      }      }
219      chomp $hosttype;      my $hosttype = $1;
220      open(CF, "<$FIG_Config::env_config_file") or      my $hostname = $2;
221          die "Cannot open $FIG_Config::env_config_file: $!";  
222      my $found;      my %dat;
223      while (<CF>)      while (<CF>)
224      {      {
225          if (/^$hosttype\t(\S+)/)          if (/^(\S+)\t(\S+)/)
226          {          {
227              $found++;              $dat{$1} = $2;
228              $FIG_Config::common_runtime = $1;          }
             $FIG_Config::ext_bin = "$1/bin";  
             $FIG_Config::hosttype = $hosttype;  
             $found++;  
             last;  
229          }          }
230        close(CF);
231    
232        my $dir;
233        if ($dat{$hostname} ne '')
234        {
235            $dir = $dat{$hostname};
236        }
237        elsif ($dat{$hosttype} ne '')
238        {
239            $dir = $dat{$hosttype};
240      }      }
241      $found or die "Could not find binary directory for hosttype $hosttype in $FIG_Config::env_config_file";      else
242        {
243            die "Could not find  config mapping for hostname $hostname and hosttype $hosttype\n";
244        }
245        $FIG_Config::common_runtime = $dir;
246        $FIG_Config::ext_bin = "$dir/bin";
247        $FIG_Config::hosttype = $hosttype;
248  }  }
249  END  END
250  }  }

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3