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

View of /FigKernelScripts/ev_code_cron.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.16 - (download) (as text) (annotate)
Wed Sep 3 20:34:35 2008 UTC (11 years, 7 months ago) by parrello
Branch: MAIN
CVS Tags: mgrast_dev_08112011, rast_rel_2009_05_18, mgrast_dev_08022011, rast_rel_2014_0912, myrast_rel40, mgrast_dev_05262011, rast_rel_2008_12_18, mgrast_dev_04082011, rast_rel_2010_0928, rast_2008_0924, mgrast_version_3_2, mgrast_dev_12152011, mgrast_dev_06072011, rast_rel_2008_09_30, rast_rel_2009_0925, rast_rel_2010_0526, rast_rel_2014_0729, mgrast_dev_02212011, rast_rel_2010_1206, mgrast_release_3_0, mgrast_dev_03252011, rast_rel_2010_0118, mgrast_rel_2008_0924, mgrast_rel_2008_1110_v2, rast_rel_2009_02_05, rast_rel_2011_0119, mgrast_rel_2008_0625, mgrast_release_3_0_4, mgrast_release_3_0_2, mgrast_release_3_0_3, mgrast_release_3_0_1, mgrast_dev_03312011, mgrast_release_3_1_2, mgrast_release_3_1_1, mgrast_release_3_1_0, mgrast_dev_04132011, rast_rel_2008_10_09, mgrast_dev_04012011, rast_release_2008_09_29, mgrast_rel_2008_0923, mgrast_rel_2008_0919, rast_rel_2009_07_09, rast_rel_2010_0827, mgrast_rel_2008_1110, myrast_33, rast_rel_2011_0928, rast_rel_2008_09_29, mgrast_rel_2008_0917, rast_rel_2008_10_29, mgrast_dev_04052011, mgrast_dev_02222011, rast_rel_2009_03_26, mgrast_dev_10262011, rast_rel_2008_11_24, HEAD
Changes since 1.15: +2 -1 lines
Updated comments to mention the replacement scripts.

#__perl__
#

=pod

=head1 ev_code_cron.pl (DEPRECATED)

A wrapper to recalculate and reload the evidence codes. This should allow you to redo all the evidence codes daily, weekly or whatever.
Really just a series of wrappers around other jobs. Should most certainly be niced while running.

This script has been replaced by [[EvCodeRefreshPl]].

=head2 author

RobE RobE@theFIG.info

=cut


use strict;
use FIG;
my $fig=new FIG;
use constant DEBUG=>1;

# recalculate the evidence codes

my $dest=$FIG_Config::temp."/evidence_codes.".time; # a temporary directory for the calculations to be stored.
mkdir ($dest, 0755);

##### FIND SUBSYSTEMS
# at the moment we are building evidence codes for all subsystems that are not experimental
# using the fig->trusted_subsystems code

print STDERR "Finding the subsystems\n" if (DEBUG);
open(OUT, ">$dest/all_subsys") || die "Can't write to $dest/all_subsys";
foreach my $ss ($fig->all_subsystems)
{
    next unless ($fig->usable_subsystem($ss));
    print OUT "$ss\n";
}
close OUT;

##### REBUILD EVIDENCE CODES
# just use the existing code to do this
my $command=$FIG_Config::bin."/get_ev_codes $dest/all_subsys > $dest/ev.codes";
print STDERR "Running the evidence code command $command\n" if (DEBUG);
system($command);

### The following adds the dlit and ilit evidence codes to the end of the 
### others;
if (-s "$FIG_Config::data/Dlits/dlits")
{
    system "$FIG_Config::bin/export_dlits";
    system "$FIG_Config::bin/compute_extra_dlit_data";
    system "$FIG_Config::bin/load_dlits";
    system "$FIG_Config::bin/generate_ilits > $FIG_Config::data/Dlits/ilits";
    system "$FIG_Config::bin/generate_dlit_ev_codes > $FIG_Config::data/Dlits/dlit.ev.codes";
    system "$FIG_Config::bin/generate_ilit_ev_codes < $FIG_Config::data/Dlits/ilits > $FIG_Config::data/Dlits/ilit.ev.codes";
    system "cat $FIG_Config::data/Dlits/[di]lit.ev.codes | sort -u >> $dest/ev.codes";
}

##### RELOAD ATTRIBUTES DATABASE
system("EvCodeRefresh --trace=3 $dest/ev.codes");


MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3