[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.8 - (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.7 # Create the symlink $fig_disk/disk/releases/current to point to <release_number>
16 :     #
17 :     # Expand the environment-specific tool headers from $fig_disk/config/base_tool_hdr
18 :     # to include the release-specific directories. Place the output in
19 :     # dist/releases/<release_number>/<arch>.
20 :     #
21 :    
22 : olson 1.8 require FigCommon::SwitchRelease;
23 : efrank 1.1
24 :     if (@ARGV != 1)
25 :     {
26 :     die "Usage: switch_to_release release-number";
27 :     }
28 :    
29 :     my $release_number = $ARGV[0];
30 :    
31 :     #
32 : olson 1.7 # We assume the architecture name is keept in $RTARCH in the environment.
33 : efrank 1.1 #
34 : efrank 1.6 my $arch = $ENV{RTARCH};
35 : efrank 1.1
36 : olson 1.8 FigCommon::SwitchRelease::switch_to_release($FIG_Config::fig_disk, $arch, $release_number);
37 : efrank 1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3