#!/usr/local/bin/perl
#  Backup manager
#  Usage <exp.pl> <ORACLE_SID>
#
use lib qw(/export/home/demiurg/dvp/backup/lib);

use strict;
use File::Basename;
use Time::localtime;
use dbautil;

sub RunBackup {
#
 my ($output, $retval, $fname);

 my $backup_cmd =$dbautil::p->{'backup'}->{'backup_cmd'} ;

#   unless ($dbautil::debug) { 
#        print  $dbautil::p->{'backup'}->{'filelist'};
#	print "Before is ".$backup_cmd."\n";
#   }
#  my $before_cmd =$dbautil::p->{'backup'}->{'before_cmd'} ;
#   $output = `$before_cmd`; 
#  print $output ;

 ($retval, $output ) =  &RunCmd ($backup_cmd, "qq");

#
#
# Now time to copy File
 print $dbautil::p->{'backup'}->{'cp'};
 open (LIST, $dbautil::p->{'backup'}->{'filelist'})  || die "Bad filename \n";
 while (<LIST> ) {
 chop; 
 $fname  = $_;
 cp ( $dbautil::p->{'backup'}->{'cp'},  $fname, 
       basename($fname).".".$dbautil::run_date );
#  print "\n".basename($fname).".".$dbautil::run_date."\n";
 }
 close (LIST); 

}
ReadConfigFile ($ARGV[0]);
RunBackup;