[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.7, Thu Feb 12 17:04:53 2004 UTC revision 1.10, Thu Apr 1 12:59:40 2004 UTC
# Line 112  Line 112 
112  #our $release_bin = "$ENV{FIGCONFIG_RELEASE_DIR}/bin/$ENV{FIGCONFIG_ENV}";  #our $release_bin = "$ENV{FIGCONFIG_RELEASE_DIR}/bin/$ENV{FIGCONFIG_ENV}";
113  #our $release_lib = "$ENV{FIGCONFIG_RELEASE_DIR}/lib/$ENV{FIGCONFIG_ENV}";  #our $release_lib = "$ENV{FIGCONFIG_RELEASE_DIR}/lib/$ENV{FIGCONFIG_ENV}";
114    
115  our $release_bin = "$fig_disk/dist/releases/current/bin/$ENV{FIGCONFIG_ENV}";  our $release_bin = "$fig_disk/dist/releases/current/$ENV{FIGCONFIG_ENV}/bin";
116  our $release_lib = "$fig_disk/dist/releases/current/lib/$ENV{FIGCONFIG_ENV}";  our $release_lib = "$fig_disk/dist/releases/current/$ENV{FIGCONFIG_ENV}/lib";
117    
118  our $fig_bin = "$fig_disk/FIG/bin";  our $fig_bin = "$fig_disk/FIG/bin";
119    
# Line 148  Line 148 
148      push(@$Config, ["temp", "$fig_disk/FIG/Tmp", 1]);      push(@$Config, ["temp", "$fig_disk/FIG/Tmp", 1]);
149      push(@$Config, ["temp_url", "http://$hostname/FIG-Tmp", 1]);      push(@$Config, ["temp_url", "http://$hostname/FIG-Tmp", 1]);
150      push(@$Config, ["cgi_url", "http://$hostname/FIG", 1]);      push(@$Config, ["cgi_url", "http://$hostname/FIG", 1]);
151    
152        #
153        # Add values for a relative base href of temp and CGI pages.  The latter
154        # is used by HHTP.pm to write common page start.  It would make the most
155        # sense to derive the above 2 values from these.  -- GJO
156        #
157    
158        push(@$Config, ["temp_base", "/FIG-Tmp/", 1]);
159        push(@$Config, ["cgi_base", "/FIG/", 1]);
160  }  }
161    
162  sub compute_environment  sub compute_environment
# Line 305  Line 314 
314  if [ -n "\$$name" ] ; then  if [ -n "\$$name" ] ; then
315      DELIM=:      DELIM=:
316  fi  fi
317  $name=\${$name}\${DELIM}$value  $name=$value\${DELIM}\${$name}
318  export $name  export $name
319  END  END
320          }          }
# Line 333  Line 342 
342    
343              print $fh <<END;              print $fh <<END;
344  if (\$?$name) then  if (\$?$name) then
345      setenv $name \${$name}:$value      setenv $name $value:\${$name}
346  else  else
347      setenv $name $value      setenv $name $value
348  endif  endif

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.10

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3