Parent Directory
|
Revision Log
Add license words.
# # Copyright (c) 2003-2006 University of Chicago and Fellowship # for Interpretations of Genomes. All Rights Reserved. # # This file is part of the SEED Toolkit. # # The SEED Toolkit is free software. You can redistribute # it and/or modify it under the terms of the SEED Toolkit # Public License. # # You should have received a copy of the SEED Toolkit Public License # along with this program; if not write to the University of Chicago # at info@ci.uchicago.edu or the Fellowship for Interpretation of # Genomes at veronika@thefig.info or download a copy from # http://www.theseed.org/LICENSE.TXT. # 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 |