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

Annotation of /FigCommon/switch_to_release.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.10 - (view) (download) (as text)

1 : efrank 1.4
2 :     use FIG;
3 :    
4 : efrank 1.1 #
5 :     # switch_to_release <release_number>
6 :     #
7 :     # Change the currently-running release to <release_number>
8 :     #
9 :     # Check to be sure that $fig_disk/dist/releases/<release_number> exists
10 : olson 1.7 #
11 : efrank 1.1 # Update $fig_disk/CURRENT_RELEASE with the new release number.
12 : olson 1.7 #
13 : efrank 1.1 # Swing the symlinks $fig_disk/FIG/bin and $fig_disk/FIG/CGI to the right place
14 :     #
15 : olson 1.9 # Create the symlink $fig_disk/dist/releases/current to point to <release_number>
16 :     #
17 :     # Create a symlink $fig_disk/dist/releases/last to point to the pre-switch release.
18 : olson 1.7 #
19 :     # Expand the environment-specific tool headers from $fig_disk/config/base_tool_hdr
20 :     # to include the release-specific directories. Place the output in
21 :     # dist/releases/<release_number>/<arch>.
22 :     #
23 :    
24 : olson 1.8 require FigCommon::SwitchRelease;
25 : efrank 1.1
26 :     if (@ARGV != 1)
27 :     {
28 :     die "Usage: switch_to_release release-number";
29 :     }
30 :    
31 :     my $release_number = $ARGV[0];
32 :    
33 :     #
34 : olson 1.7 # We assume the architecture name is keept in $RTARCH in the environment.
35 : efrank 1.1 #
36 : efrank 1.6 my $arch = $ENV{RTARCH};
37 : efrank 1.1
38 : olson 1.8 FigCommon::SwitchRelease::switch_to_release($FIG_Config::fig_disk, $arch, $release_number);
39 : efrank 1.5
40 : olson 1.10 exit 0;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3