[Bio] / Sprout / FigConfigFix.pl Repository:
ViewVC logotype

Diff of /Sprout/FigConfigFix.pl

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

revision 1.2, Tue Feb 5 04:59:51 2008 UTC revision 1.3, Thu Feb 14 19:05:35 2008 UTC
# Line 91  Line 91 
91          DocUtils::ModifyConfigFile("$FIG_Config::nmpdr_base/next/FIGdisk/config/FIG_Config.pm", $changes, []);          DocUtils::ModifyConfigFile("$FIG_Config::nmpdr_base/next/FIGdisk/config/FIG_Config.pm", $changes, []);
92      } elsif ($parameters[0] eq 'roll') {      } elsif ($parameters[0] eq 'roll') {
93          $changes->{nmpdr_site_url} = "http://www.nmpdr.org";          $changes->{nmpdr_site_url} = "http://www.nmpdr.org";
94            $changes->{cgi_base} = '/FIG/';
95            $changes->{temp_base} = '/FIG-Tmp/';
96          Trace("Changing nmpdr site URL for new version to $changes->{nmpdr_site_url}.") if T(2);          Trace("Changing nmpdr site URL for new version to $changes->{nmpdr_site_url}.") if T(2);
97          DocUtils::ModifyConfigFile("$FIG_Config::nmpdr_base/next/FIGdisk/config/FIG_Config.pm", $changes, []);          DocUtils::ModifyConfigFile("$FIG_Config::nmpdr_base/next/FIGdisk/config/FIG_Config.pm", $changes, []);
98          $changes->{nmpdr_site_url} = "http://www.nmpdr.org/prev";          $changes->{nmpdr_site_url} = "http://www.nmpdr.org/prev";
99            $changes->{cgi_base} = '/prev/FIG/';
100            $changes->{temp_base} = '/prev/FIG-Tmp/';
101          Trace("Changing nmpdr site URL for old version to $changes->{nmpdr_site_url}.") if T(2);          Trace("Changing nmpdr site URL for old version to $changes->{nmpdr_site_url}.") if T(2);
102          DocUtils::ModifyConfigFile("$FIG_Config::nmpdr_base/cur/FIGdisk/config/FIG_Config.pm", $changes, []);          DocUtils::ModifyConfigFile("$FIG_Config::nmpdr_base/cur/FIGdisk/config/FIG_Config.pm", $changes, []);
103      } elsif ($parameters[0] eq 'fix') {      } elsif ($parameters[0] eq 'fix') {
104          $changes->{nmpdr_site_url} = "http://www.nmpdr.org";          $changes->{nmpdr_site_url} = "http://www.nmpdr.org";
105            $changes->{cgi_base} = '/FIG/';
106            $changes->{temp_base} = '/FIG-Tmp/';
107          Trace("Changing nmpdr site URL for current version to $changes->{nmpdr_site_url}.") if T(2);          Trace("Changing nmpdr site URL for current version to $changes->{nmpdr_site_url}.") if T(2);
108          DocUtils::ModifyConfigFile("$FIG_Config::nmpdr_base/cur/FIGdisk/config/FIG_Config.pm", $changes, []);          DocUtils::ModifyConfigFile("$FIG_Config::nmpdr_base/cur/FIGdisk/config/FIG_Config.pm", $changes, []);
109      } else {      } else {

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3