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

Diff of /FigKernelScripts/extract_data_for_syncing_after_update.pl

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

revision 1.4, Thu Jun 3 15:48:54 2004 UTC revision 1.5, Thu Jun 3 16:04:25 2004 UTC
# Line 3  Line 3 
3  use FIG;  use FIG;
4  my $fig = new FIG;  my $fig = new FIG;
5    
 # usage: extract_data_for_syncing_after_update SyncFromDate(MM/DD/YYYY) AssignmentsPackage AnnotationsPackage TranslationRulesPackage SubsystemsPackage  
   
6  (  (
7   ($sync_from_date      = shift @ARGV) &&   ($sync_from_date      = shift @ARGV) &&
8    ($dir                = shift @ARGV)    ($dir                = shift @ARGV)
# Line 12  Line 10 
10      || die "usage: usage: extract_data_for_syncing_after_update SyncFromDate(MM/DD/YYYY) Dir";      || die "usage: usage: extract_data_for_syncing_after_update SyncFromDate(MM/DD/YYYY) Dir";
11  (! -d $dir) || die "$dir already exists";  (! -d $dir) || die "$dir already exists";
12  mkdir($dir,0777) || die "could not make $dir";  mkdir($dir,0777) || die "could not make $dir";
13  $assignments_package  = "$dir/$assignments_package";  $assignments_package  = "$dir/assignments_package";
14  $annotations_package  = "$dir/$annotations_package";  $annotations_package  = "$dir/annotations_package";
15  $trans_rules_package  = "$dir/$trans_rules_package";  $trans_rules_package  = "$dir/trans_rules_package";
16  $subsys_package       = "$dir/$subsys_package";  $subsys_package       = "$dir/subsys_package";
17    
18  &P2Pupdate::package_translation_rules($FIG_Config::fig,$trans_rules_package);  &P2Pupdate::package_translation_rules($FIG_Config::fig,$trans_rules_package);
19  &P2Pupdate::package_subsystems($fig,$subsys_package,0);  &P2Pupdate::package_subsystems($fig,$subsys_package,0);

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3