[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.11 - (view) (download) (as text)

1 : olson 1.11 #
2 :     # Copyright (c) 2003-2006 University of Chicago and Fellowship
3 :     # for Interpretations of Genomes. All Rights Reserved.
4 :     #
5 :     # This file is part of the SEED Toolkit.
6 :     #
7 :     # The SEED Toolkit is free software. You can redistribute
8 :     # it and/or modify it under the terms of the SEED Toolkit
9 :     # Public License.
10 :     #
11 :     # You should have received a copy of the SEED Toolkit Public License
12 :     # along with this program; if not write to the University of Chicago
13 :     # at info@ci.uchicago.edu or the Fellowship for Interpretation of
14 :     # Genomes at veronika@thefig.info or download a copy from
15 :     # http://www.theseed.org/LICENSE.TXT.
16 :     #
17 :    
18 : efrank 1.4
19 :     use FIG;
20 :    
21 : efrank 1.1 #
22 :     # switch_to_release <release_number>
23 :     #
24 :     # Change the currently-running release to <release_number>
25 :     #
26 :     # Check to be sure that $fig_disk/dist/releases/<release_number> exists
27 : olson 1.7 #
28 : efrank 1.1 # Update $fig_disk/CURRENT_RELEASE with the new release number.
29 : olson 1.7 #
30 : efrank 1.1 # Swing the symlinks $fig_disk/FIG/bin and $fig_disk/FIG/CGI to the right place
31 :     #
32 : olson 1.9 # Create the symlink $fig_disk/dist/releases/current to point to <release_number>
33 :     #
34 :     # Create a symlink $fig_disk/dist/releases/last to point to the pre-switch release.
35 : olson 1.7 #
36 :     # Expand the environment-specific tool headers from $fig_disk/config/base_tool_hdr
37 :     # to include the release-specific directories. Place the output in
38 :     # dist/releases/<release_number>/<arch>.
39 :     #
40 :    
41 : olson 1.8 require FigCommon::SwitchRelease;
42 : efrank 1.1
43 :     if (@ARGV != 1)
44 :     {
45 :     die "Usage: switch_to_release release-number";
46 :     }
47 :    
48 :     my $release_number = $ARGV[0];
49 :    
50 :     #
51 : olson 1.7 # We assume the architecture name is keept in $RTARCH in the environment.
52 : efrank 1.1 #
53 : efrank 1.6 my $arch = $ENV{RTARCH};
54 : efrank 1.1
55 : olson 1.8 FigCommon::SwitchRelease::switch_to_release($FIG_Config::fig_disk, $arch, $release_number);
56 : efrank 1.5
57 : olson 1.10 exit 0;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3