#!/usr/local/bin/perl

use strict;
use warnings;
use Date::Calc qw( Today_and_Now );
use MIME::Lite;

#print "** start **\n";
my ( $cmd ) = ( '' );
my $pofront = 'C:\gwbackup\gwback32.exe ';
append_log ( "\n--- Begin Nightly Backup ---", 0);

$cmd = $pofront . '/po-\\\\Usacscpost52\POVOL\cscpos52 /backup-e:\cscpos52 /silent';
do_cmd_and_log( $cmd, "Copy cscpos52" );
$cmd = $pofront . '/po-\\\\Usashacmail\SYS\SHACPOST /backup-e:\shacpost /silent';
do_cmd_and_log( $cmd, "Copy shacpost" );
$cmd = $pofront . '/po-\\\\Usamcpost\sys\umcpost /backup-e:\umcpost /silent';
do_cmd_and_log( $cmd, "Copy umcpost" );

append_log( "End Backup", 1 );
#send_complete_msg();
#print "** done **\n\n";
exit;


sub append_log {
   my ( $txt, $dotime ) = @_;
   if ( $dotime ) {
      my @now = Today_and_Now();
      $now[3] = "0$now[3]" if ($now[3] =~ /^\d{1}$/);
      $now[4] = "0$now[4]" if ($now[4] =~ /^\d{1}$/);
      $txt = "  $now[1]/$now[2]/$now[0] $now[3]:$now[4] $txt";
   }
   open( OUTFILE, '>>C:\gwbackup\gwback.log');
   my $old_handle = select(OUTFILE);
   print "$txt\n";
   close OUTFILE;
   select($old_handle);
} #  append_log

sub do_cmd_and_log {
   my ( $cmd, $txt ) = @_;
   append_log( "Begin $txt", 1 );
   system($cmd);
} # do_cmd_and_log