NAME

CGI::AppBuilder::PLSQL - Oracle PL/SQL Procedures

SYNOPSIS

  use CGI::AppBuilder::Define;

  my $sec = CGI::AppBuilder::PLSQL->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.

def_inputvars($ar)

Input variables:

  $ar   - array ref containing the following variables:
        pid             : project id such as ckpt, owb, dba, etc.
        task            : task name required such as task1,task2,etc.
        target(sel_sn1) : select one (DB/server name) defining sid
        args(sel_sn2)   : select two (Arguments)
        task_fn         : task file name containing all the tasks defined
        svr_conn        : host/server connection info
        db_conn         : db connection info for each target/server
        task_conn       : special connection for tasks. 
                          It overwrites db_conn for the task
        HA_*            : hash array

  

Variables used or routines called:

  None

read_text_file($fn, $dvr)

sub read_text_file { my $s = shift; my ($fn, $dvr) = @_; if (!$fn) { carp " No file name is specified."; return; } if (!-f $fn) { carp " File - $fn does not exist!"; return; }

    my ($t);
    open FILE, "< $fn" or
        croak "ERR: could not read to file - $fn: $!\n";
    while (<FILE>) {
        # skip comment and empty lines
        next if $_ =~ /^\s*#/ || $_ =~ /^\s*$/; 
        s/\s*[^'"\(]#[^'",\)].*$//;     # remove inline comments
        chomp;                          # remove line break
        $t .= $_;
    }
    close FILE;
    return $t;
}