view release on metacpan or  search on metacpan

PLSQL.pm  view on Meta::CPAN

  is_callsql	- whether to run call_plsql

=cut

sub exec_plsql {
    my ($s, $q, $ar) = @_;

    # print $s->disp_form($q, $ar); 
    print $s->disp_header($q, $ar); 

  my @c0 = caller(0); my @c1 = caller(1);
  my $cls = (exists $c1[3]) ? $c1[3] : ''; 
  my $prg = "$cls [$c0[2]] -> $c0[3]"; 
  
    # 1. check required parameters
    $s->echo_msg("1. checking required parameters...", 2);
    my $vs = 'pid,task,task_fn,svr_conn,db_conn';
    foreach my $t (split /,/, $vs) {
      if (! exists $ar->{$t}) {
        $s->echo_msg("ERR($prg): Parameter $t does not exist.",0); return;
      }

PLSQL.pm  view on Meta::CPAN

    wantarray ? %$pr : $pr; 
    
    # $s->call_plsql(\@a, $ar);

}

sub call_plsql {
    my ($s, $rr, $ar) = @_;
    
  my @c0 = caller(0); my @c1 = caller(1);
  my $cls = (exists $c1[3]) ? $c1[3] : ''; 
  my $prg = "$cls [$c0[2]] -> $c0[3]"; 

    my $vs = 'dir_sep,sql_cfn,sql_cs';
    my ($ds,$cfn,$cs) = $s->get_params($vs, $ar);
    my $scn = eval $s->set_param('svr_conn', $ar);  	# Server connections
    my $dbc = eval $s->set_param('db_conn', $ar);     # DB connections
    my ($svr,$usr,$pwd,$ohm) = ();
      $ohm = $ar->{ohm} 	if exists $ar->{ohm}; 
      $ohm = $scn->{orahome}	if !$ohm && exists $scn->{orahome};