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

View of /FigKernelScripts/extract_data_for_syncing_after_update.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.5 - (download) (as text) (annotate)
Thu Jun 3 16:04:25 2004 UTC (15 years, 6 months ago) by overbeek
Branch: MAIN
CVS Tags: merge-trunktag-bobdev_news-2, Root-bobdev_news, merge-bobdev_news-1, caBIG-dataload-0, merge-trunktag-bobdev_news-1, merge-bodev_news-3, efrank-preMakefileToStandardMk, caBIG-00-00-00, merge-bobdev_news-2, merge-trunktag-bodev_news-3
Branch point for: Branch-bobdev_news
Changes since 1.4: +4 -6 lines
package outputs from extract_data_for_syncing_after_update into a directory

use P2Pupdate;

use FIG;
my $fig = new FIG;

( 
 ($sync_from_date      = shift @ARGV) &&
  ($dir                = shift @ARGV)
)
    || die "usage: usage: extract_data_for_syncing_after_update SyncFromDate(MM/DD/YYYY) Dir";
(! -d $dir) || die "$dir already exists";
mkdir($dir,0777) || die "could not make $dir";
$assignments_package  = "$dir/assignments_package";
$annotations_package  = "$dir/annotations_package";
$trans_rules_package  = "$dir/trans_rules_package";
$subsys_package       = "$dir/subsys_package";

&P2Pupdate::package_translation_rules($FIG_Config::fig,$trans_rules_package);
&P2Pupdate::package_subsystems($fig,$subsys_package,0);

my(@genomes) = $fig->genomes;
&P2Pupdate::package_assignments($fig,"master","master",$sync_from_date,\@genomes,$assignments_package);
&P2Pupdate::package_annotations($fig,"master",$sync_from_date,\@genomes,$annotations_package);


MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3