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

Diff of /FigKernelScripts/FFB2_build_updated_FF.pl

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

revision 1.19, Mon Nov 22 17:58:30 2010 UTC revision 1.20, Mon Nov 22 20:06:09 2010 UTC
# Line 6  Line 6 
6  use Cache::Memcached::Fast;  use Cache::Memcached::Fast;
7  use Getopt::Long;  use Getopt::Long;
8    
9  my $usage = "usage: FFB2_build_updated_FF [--override fn-override-file] [--skipotu] OldReleaseDir NewReleaseDir memcache-host memcache-port [ssfam]";  my $usage = "usage: FFB2_build_updated_FF [--no-reload-memcache] [--override fn-override-file] [--skipotu] OldReleaseDir NewReleaseDir memcache-host memcache-port [ssfam]";
10    
11    my $pseed = "/vol/pseed/FIGdisk/FIG/Data";
12    
13  my $skip_otu;  my $skip_otu;
14  my $override_file;  my $override_file;
15    my $no_reload_memcache = 0;
16    
17  my $rc = GetOptions("skipotu" => \$skip_otu,  my $rc = GetOptions("skipotu" => \$skip_otu,
18                      "override=s" => \$override_file);                      "override=s" => \$override_file,
19                        "no-reload-memcache" => \$no_reload_memcache);
20    
21  $rc or die $usage;  $rc or die $usage;
22    
# Line 47  Line 51 
51  my $mc = new Cache::Memcached::Fast({ servers => ["$mchost:$mcport"] } );  my $mc = new Cache::Memcached::Fast({ servers => ["$mchost:$mcport"] } );
52  $mc or die "Could not connect to memcached at $mchost:$mcport\n";  $mc or die "Could not connect to memcached at $mchost:$mcport\n";
53    
 $mc->flush_all();  
   
54  #  #
55  # Do some work up front to ensure we can load the memcache with all the data we need.  # Do some work up front to ensure we can load the memcache with all the data we need.
56  #  #
# Line 64  Line 66 
66      &FIG::run("FFB2_make_subsys_based_families > $ssfam");      &FIG::run("FFB2_make_subsys_based_families > $ssfam");
67  }  }
68    
69    if (!$no_reload_memcache)
70    {
71        $mc->flush_all();
72    
73  print "Loading memcache\n";  print "Loading memcache\n";
74  &FIG::run("FFB2_load_memcache $ssfam $oldD/families.2c $mchost $mcport");      &FIG::run("FFB2_load_memcache --seed $pseed $ssfam $oldD/families.2c $mchost $mcport");
75  print "Done\n";  print "Done\n";
76    }
77    
78  my $parallel = !$skip_otu;  my $parallel = !$skip_otu;
79  my $child_pid;  my $child_pid;

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3