#!/usr/bin/perl -w
use POSIX qw(strftime);
$in_dir = '/home/data';
$out_dir = '/var/www/html/rwa_test/input';
$zip_dir = '/home/data/archive';
$kpva = strftime("%Y%m%d", localtime);
$wait = 30;

while (0 < 1)
{
system ("ls -htr $in_dir/*.P.M > $in_dir/failid.rwa ");

       sleep 30;

        open(TF, "$in_dir/failid.rwa");
        while (<TF>)
        {
          chomp;
          print $_,"\n";
           s|$in_dir/||;
          print $_,"\n";
          $ifn = $_;
                system("gzip -f <$in_dir/$ifn >$zip_dir/$ifn.$kpva.gz");

          open(IF,"$in_dir/$ifn");
          open(OF,">$out_dir/$ifn.$kpva");

        while(<IF>)
        {
             chomp;
            $line = $_;
             last if $line =~ /^-{19}/;
             $line =~ s/,/./g;
             $line =~ s/\t/;/g;
            print OF $line,"\n";
        }
        close (IF);
        close (OF);
$cmd = "dbisqlc -c ".'"uid=.....;pwd=.....;eng=......;dbn=...... "'." -q call ......Fun_LoadAllFiles( '"."$out_dir/$ifn.$kpva', '$ifn.$kpva')";
print $cmd,"\n";
        system (@cmd);
        system("mv -f $in_dir/$ifn $in_dir/$ifn.done");
        }
        close(TF);
        sleep $wait;
}

##</code><code>##

$cmd = "dbisqlc -c ".'"uid=****;pwd=****;eng=****;dbn=**** "'." -q call ****.Fun_LoadAllFiles( '"."$out_dir/$ifn.$kpva', '$ifn.$kpva')";