view release on metacpan or  search on metacpan

PLSQL.pm  view on Meta::CPAN

    }

    # 4. set output directories
    $s->echo_msg("4. setting output directories...", 2);
    # mkdir $pr->{out_dir}, 0777 if (! -d $pr->{out_dir});
    # mkdir $pr->{tgt_dir}, 0777 if (! -d $pr->{tgt_dir});
    if (! -d $pr->{log_dir}) { 
      eval { mkpath($pr->{log_dir},0,0777) };
      croak "ERR: could not mkdir - $pr->{log_dir}: $!: $@<br>\n" if ($@);
      if ($^O !~ /^MSWin/i) { 				# non window
        system("chmod -R ugo+w $pr->{log_dir}"); 
      }
    } 
    my $radr = $ENV{REMOTE_ADDR}; $radr =~ s/\./_/g;
    my $tmpd = join $ds,$pr->{web_outdir},$sn,$radr,$pr->{y4},$pr->{mm},$pr->{dd};
    if (! -d $tmpd && ! $pr->{is_tasksql}) {
      eval { mkpath($tmpd,0,0777) };
      croak "ERR: could not mkdir - $tmpd: $!: $@<br>\n" if ($@);
      if ($^O !~ /^MSWin/i) { 				# non window
        system("chmod -R ugo+w $tmpd"); 
      }
    } 
    my $tpf1 = join $ds, $tmpd, "${tsk}_$pr->{tm}.sql"; 

    # 5. compose command
    $s->echo_msg("5. composing commands...", 2);
    my $rc  = {'0'=>'OK', '1'=>'Command is not invoked', '2'=>'Failed'};
    my ($svr,$usr,$pwd,$ohm) = ();
    my $vhm = 'ORACLE_HOME'; 
       $ohm = $ENV{$vhm} 	if exists $ENV{$vhm} && $ENV{$vhm};