[Bio] / FigKernelScripts / boot_cluster_seed.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/boot_cluster_seed.pl

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

revision 1.1, Thu May 12 15:27:50 2005 UTC revision 1.2, Sun May 29 02:15:02 2005 UTC
# Line 31  Line 31 
31    
32  use LWP::UserAgent;  use LWP::UserAgent;
33    
34    use Getopt::Long;
35    
36    my $sge_only = 0;
37    
38    if (!GetOptions("sge-only" => \$sge_only))
39    {
40        die "Usage: $0 [--sge-only]\n";
41    }
42    
43  #  #
44  # Step 1.  # Step 1.
45  #  #
46    
47    
48    if (not $sge_only)
49    {
50  if (-d $FIG_Config::db_datadir)  if (-d $FIG_Config::db_datadir)
51  {  {
52      #      #
# Line 90  Line 102 
102  {  {
103      die "Could not connect to database: $@\n";      die "Could not connect to database: $@\n";
104  }  }
105    }
106    
107  #  #
108  # Step 4/5.  # Step 4/5.
# Line 137  Line 150 
150  # Step 8.  # Step 8.
151  #  #
152    
153    if (not $sge_only)
154    {
155  &FIG::run("$FIG_Config::ext_bin/mysqladmin -u root shutdown");  &FIG::run("$FIG_Config::ext_bin/mysqladmin -u root shutdown");
156    }
157    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3