[Bio] / Sprout / SingleTableLoad.pl Repository:
ViewVC logotype

Annotation of /Sprout/SingleTableLoad.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (view) (download) (as text)

1 : parrello 1.1 #!/usr/bin/perl -w
2 :    
3 :     =head1 Single Table Load
4 :    
5 :     This script loads one or more Sprout table from an existing DTX file.
6 :    
7 :     It takes as positional parameters the table names.
8 :    
9 :     =cut
10 :    
11 :     use strict;
12 :     use Tracer;
13 :     use DocUtils;
14 :     use TestUtils;
15 :     use Cwd;
16 :     use Sprout;
17 :     use SFXlate;
18 :     use File::Copy;
19 :     use File::Path;
20 :    
21 :     # Get the command-line options.
22 :     my ($options, @parameters) = StandardSetup(['ERDB', 'Sprout', 'DBKernel'],
23 :     {
24 :     },
25 :     '<table1> <table2> ...',
26 :     @ARGV);
27 :     # Get a Sprout object.
28 :     my $sprout = SFXlate->new_sprout_only();
29 :     # Attempt the load. Note that we have the truncate flag on to force the table
30 :     # to be rebuilt.
31 :     $sprout->LoadUpdate(1, \@parameters);
32 :     # Denote we're done.
33 :     Trace("Load complete.") if T(2);
34 :    
35 :     1;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3