dbic_tool_make_schema_at.pl

   1 #!/usr/bin/perl
   2
   3 =head1 NAME
   4
   5  dbic_tool_make_schema_at.pl.
   6  A script to create the DBIx::Class objects using the DBIx::Class::Schema::Loader (version.1.0.).
   7
   8 =cut
   9
  10 =head1 SYPNOSIS
  11
  12 dbic_tool_make_schema_at.pl [-h] -p <module_path> -d <dir> -s <schema> -D <dbname> -H <dbhost>
  13
  14 =head2 I<Flags:>
  15
  16 =over
  17
  18 =item -p
  19
  20 B<module_path>              the module path used to create the different DBIx::Class objects (example: CXGN::SEDM::Schema) (mandatory)
  21
  22 =item -d
  23
  24 B<directory>                the directory where the objects will be created (example: /data/local/perllib/CXGN) (mandatory)
  25
  26 =item -s
  27
  28 B<schema>                   the schema of the database that will be used to create the DBIx::Class objects (example: sed) (mandatory)
  29
  30 =item -D
  31
  32 B<db_name>                  the database name to access to the database (mandatory)
  33
  34 =item -H
  35
  36 B<db_hostname>              the database hostname to access to the database (mandatory)
  37
  38 =item -h
  39
  40 B<help>                     show the help
  41
  42 =back
  43
  44 =cut
  45
  46 =head1 DESCRIPTION
  47
  48  This script create the objects for the DBIx::Class
  49
  50 =cut
  51
  52 =head1 AUTHORS
  53
  54   Aureliano Bombarely Gomez.
  55   (ab782@cornell.edu).
  56
  57 =cut
  58
  59 =head1 METHODS
  60
  61 dbic_tool_make_schema_at.pl
  62
  63
  64 =cut
  65
  66 use strict;
  67 use warnings;
  68
  69 use Getopt::Std;
  70 use CXGN::DB::InsertDBH;
  71 use DBIx::Class::Schema::Loader qw/ make_schema_at /;
  72
  73 our ($opt_p, $opt_d, $opt_s, $opt_D, $opt_H, $opt_h);
  74 getopts("p:d:s:D:H:h");
  75 if (!$opt_p && !$opt_d && !$opt_s && !$opt_D && !$opt_H && !$opt_h) {
  76     print "There are n\'t any tags. Print help\n\n";
  77     help();
  78 }
  79
  80 my $path   = $opt_p || die("None module path was supplied as -p <module_structure_path> argument.\n");
  81 my $dir    = $opt_d || die("None directory was supplied as -d <directory> argument.\n");
  82 my $schema = $opt_s || die("None database schema was supplied as -s <dbschema> argument.\n");
  83 my $db     = $opt_D || die("None database name was supplied as -D <dbname> argument.\n");
  84 #my $user   = $opt_U || die("None database username was supplied as -U <dbuser> argument.\n");
  85 #my $pass   = $opt_P || die("None database password was supplied as -P <dbpass> argument.\n");
  86 my $host   = $opt_H || die("None database hostname was supplied as -H <dbhost> argument.\n");
  87
  88
  89 print "\n\nParameters:\n\tPATH: $path\n\tDIR: $dir\n\tSCHEMA: $schema\n\tDB_NAME: $db\n\tDB_HOST: $host\n\n";
  90 my $dbh =  CXGN::DB::InsertDBH->new({ dbname => $db, dbhost => $host })->get_actual_dbh();
  91
  92
  93 make_schema_at(
  94         $path,
  95         { debug => 1, dump_directory => $dir, db_schema => $schema },
  96         [ sub {$dbh }],
  97     );
  98
  99
 100 =head2 help
 101
 102   Usage: help()
 103   Desc: print help of this script
 104   Ret: none
 105   Args: none
 106   Side_Effects: exit of the script
 107   Example: if (!@ARGV) {
 108                help();
 109            }
 110
 111 =cut
 112
 113 sub help {
 114   print STDERR <<EOF;
 115   $0:
 116
 117     Description:
 118       A script to create the DBIx::Class objects using the DBIx::Class::Schema::Loader
 119
 120     Usage:
 121      dbic_tool_make_schema_at.pl [-h] -p <module_path> -d <dir> -s <schema> -U <username> -D <dbname> -H <dbhost> -P <dbpass>
 122
 123     Flags:
 124       -p <module_path>          the module path used to create the different DBIx::Class objects (example: CXGN::SEDM::Schema) (mandatory)
 125       -d <directory>            the directory where the objects will be created (example: /data/local/perllib/CXGN) (mandatory)
 126       -s <schema>               the schema of the database that will be used to create the DBIx::Class objects (example: sed) (mandatory)
 127       -D <db_name>              the database name to access to the database (mandatory)
 128       -H <db_hostname>          the database hostname to access to the database (mandatory)
 129       -h <help>                 show the help
 130
 131
 132 EOF
 133 exit (1);
 134 }