NAME

CGI::AppBuilder::TaskLoads - Loading files to a database

SYNOPSIS

use CGI::AppBuilder::TaskLoads;

my $sec = CGI::AppBuilder::TaskLoads->new();
my ($sta, $msg) = $sec->exe_sql($ar);

DESCRIPTION

This class provides methods for reading and parsing configuration files.

new (ifn => 'file.cfg', opt => 'hvS:')

This is a inherited method from CGI::AppBuilder. See the same method in CGI::AppBuilder for more details.

get_ldrcfg ($ar)

Input variables:

$ar	- array ref containing the following variables:

Variables used or routines called:

None

How to use:

Return: array/hash array or its ref {$k}{$e} where $k = [v|1|..|study_id]; $e contains

rdr - relative directory
mfn - meta file name, i.e., the xls contains domain and variable metadata
dfn - domain file name containing domain metadata
vfn - variable file name containing variable metadata
ofd - output file directory
dml - data manipulation act: A|D|I|U
var - hash array ref containing variables

ld_mdrstd($q,$ar)

Input variables:

$q	- CGI class
$ar	- array ref containing the following variables:

Variables used or routines called:

None

Return: $pr will contain the parameters adn output from running the PL/SQL.

build_dml($rr, $rf, $ar)

Input variables:

$rr	- array ([$i]{$k}) with new data
$rf   - hash array with the following elements
  tbn - table name: 		cc_domains
  kcn - key column name: 	dn_id
  scn - select column name:	study_id
  scv - select column value: 1
  act - DML type: A-auto, D-delete, I-insert, U-update
$ar   - hash array for system wide parameters

Variables used or routines called:

None

Return: This procedure returns an array containing DML SQL statements and populate the $rf with the following new elements:

c1_crf  - column definition array [$i]{$k} for the table where $k=
          column_name,data_type,data_length
c1_vars - a list of column names separated by comma in the table
c2_crf  - column definition array [$i]{$k} for the new data where $k=
          column_name,data_type,data_length
c2_vars - a list of column names separated by comma in the data

cvt_ar2list($cr)

Input variables:

$cr	- array ref containing column definitions ([$i]{$k}) where $k is
        column_name, data_type, and data_length

Variables used or routines called:

None

Return: a list containing column names separated by comma

fmt_list2sel ($cns)

Input variables:

$cns	- column names separated by comma

Variables used or routines called:

None

Return: a formated list to be used in SELECT statement.

cvt_ar2hr($ar, $vars)

Input variables:

$ar	- array ref containing two dimensional data elements in an array
$vars - variable names sparated by comma

Variables used or routines called:

None

Return: an array with hash elements $r->[$i]{$k}.

coding

sub prt_txt_file { my ($s, $fn,$ar) = @_; my ($fname, $path, $sfx) = fileparse($fn,qr{\..*}); my $t1 = "<center><b>$fname$sfx</b></center>\n<hr>\n<pre>\n"; my $typ = my $w = my $st = my $t = ""; my $n = $w; open FILE, "<$fn" or die "ERR: could not open $fn: $!\n"; while (<FILE>) { s/</\&lt;/g; s/>/\&gt;/g; s/ /^L/g; # change the non-printable char to printable char if ($st) { s/($st)/<font color=red>$1<\/font>/ig; } my ($tt, $i) = ($_, -1); if (length($tt) < $n || !$w ) { $t .= $tt; next; } while (length($tt) >= $n) { ++$i; if ($i) { # the second line $t .= " "x4 . substr($tt, 0, $n) . "\n"; } else { # first line $t .= substr($tt, 0, $n) . "\n"; } $tt = substr($tt, $n); } $t .= " "x4 . $tt; } close FILE; return $t if $typ; print "$t1$t</pre><br>\n"; }

HISTORY

• Version 0.10

  This version was started on 09/28/2011.

SEE ALSO (some of docs that I check often)

Oracle::Loader, Oracle::Trigger, CGI::AppBuilder, File::Xcopy, CGI::AppBuilder::Message

AUTHOR

Copyright (c) 2009 Hanming Tu. All rights reserved.

This package is free software and is provided "as is" without express or implied warranty. It may be used, redistributed and/or modified under the terms of the Perl Artistic License (see http://www.perl.com/perl/misc/Artistic.html)

cpanm CGI::AppBuilder::TaskLoads

perl -MCPAN -e shell
install CGI::AppBuilder::TaskLoads