[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.10, Thu Apr 1 12:59:40 2004 UTC revision 1.12, Thu Jun 3 18:33:20 2004 UTC
# Line 146  Line 146 
146      push(@$Config, ["RC", "$fig_disk/FIG/ResolutionCenter", 1]);      push(@$Config, ["RC", "$fig_disk/FIG/ResolutionCenter", 1]);
147      push(@$Config, ["NR", "$fig_disk/FIG/NR", 1]);      push(@$Config, ["NR", "$fig_disk/FIG/NR", 1]);
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]);  
150      push(@$Config, ["cgi_url", "http://$hostname/FIG", 1]);      my $sandbox;
151        if ($ENV{FIGCONFIG_SANDBOX})
152        {
153            $sandbox = "/$ENV{FIGCONFIG_SANDBOX}";
154        }
155    
156        push(@$Config, ["temp_url", "http://$hostname$sandbox/FIG-Tmp", 1]);
157        push(@$Config, ["cgi_url", "http://$hostname$sandbox/FIG", 1]);
158    
159      #      #
160      # Add values for a relative base href of temp and CGI pages.  The latter      # Add values for a relative base href of temp and CGI pages.  The latter
# Line 155  Line 162 
162      # sense to derive the above 2 values from these.  -- GJO      # sense to derive the above 2 values from these.  -- GJO
163      #      #
164    
165      push(@$Config, ["temp_base", "/FIG-Tmp/", 1]);      push(@$Config, ["temp_base", "$sandbox/FIG-Tmp/", 1]);
166      push(@$Config, ["cgi_base", "/FIG/", 1]);      push(@$Config, ["cgi_base", "$sandbox/FIG/", 1]);
167  }  }
168    
169  sub compute_environment  sub compute_environment
# Line 188  Line 195 
195      push(@$Env, ["PATH", join(":", @path), 1]);      push(@$Env, ["PATH", join(":", @path), 1]);
196    
197      push(@$Env, ["LD_LIBRARY_PATH", "${env_lib}", 1]);      push(@$Env, ["LD_LIBRARY_PATH", "${env_lib}", 1]);
198    
199        my @perllib = grep({ $_ ne "." } @INC, "$fig_disk/config", $release_lib);
200    
201        push(@$Env, ["PERL5LIB", join(":", @perllib), 1]);
202  }  }
203    
204  sub configure_python  sub configure_python
# Line 247  Line 258 
258      #      #
259      # Special case for the mac.      # Special case for the mac.
260      #      #
261        # RDO 20040603 - don't do this any more; we want to pick up
262        # the python we ship.
263        #
264    
265      if ($ENV{FIGCONFIG_ENV} eq "mac")      if (0 && $ENV{FIGCONFIG_ENV} eq "mac")
266      {      {
267          #          #
268          # We'd like to use the MacPython that is installed          # We'd like to use the MacPython that is installed
# Line 534  Line 548 
548    
549      print $fh "use FIG_Config;\n";      print $fh "use FIG_Config;\n";
550      print $fh "\n";      print $fh "\n";
551        print $fh "#### END tool_hdr ####\n\n"
552  }  }
553    
554  sub write_tool_hdr_python  sub write_tool_hdr_python
# Line 552  Line 567 
567      }      }
568      print $fh "\n";      print $fh "\n";
569    
570      print $fh "import sys\n";      print $fh "import sys, os\n";
571    
572    
573      print $fh "sys.path.append('$OtherConfig->{python_site_path}')\n";      print $fh "sys.path.append('$OtherConfig->{python_site_path}')\n";
574    
575        #
576        # Append the perl path to the environment, for use later with CallPerl.
577        #
578    
579        my $perlpath = join(":", @INC, "$fig_disk/config", $release_lib);
580        print $fh <<END;
581    if os.getenv("PERL5LIB", "") != "":
582        _delim = ":"
583    else:
584        _delim = ""
585    os.environ["PERL5LIB"] = "$perlpath" + _delim + os.getenv("PERL5LIB", "")
586    
587    END
588    
589      print $fh "# Following block is expanded by switch_to_release to add use lib directives\n";      print $fh "# Following block is expanded by switch_to_release to add use lib directives\n";
590      print $fh "# to point at the correct locations in the release directory.\n";      print $fh "# to point at the correct locations in the release directory.\n";
591      print $fh "#BEGIN switch_to_release generated code\n";      print $fh "#BEGIN switch_to_release generated code\n";
# Line 567  Line 596 
596    
597      print $fh "import FIG_Config\n";      print $fh "import FIG_Config\n";
598      print $fh "\n";      print $fh "\n";
599        print $fh "#### END tool_hdr_py ####\n\n"
600  }  }
601    
602  setup_directories("$fig_disk/bin",  setup_directories("$fig_disk/bin",

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3