
#!/usr/local/bin/perl

######################################################################
# Replications' destinations check procedure
######################################################################


sub small_replication_checks {

 if ( -e "/backup/dbs/" ) {
     print "Folder exists \n";
       system("rm -rf /backup/dbs");
       system("mkdir -p /backup/dbs");
  
      } else {
 
        print "Folder does not exist \n";
        system("mkdir -p /backup/dbs");

 }
}

sub small_weekly_replication_checks {

 if ( -e "/backup/dbs_weekly/" ) {
     print "Folder exists \n";
       system("rm -rf /backup/dbs_weekly");
       system("mkdir -p /backup/dbs_weekly");

      } else {

        print "Folder does not exist \n";
        system("mkdir -p /backup/dbs_weekly");

 }
}

sub big_replication_checks {

 if ( -e "/backup/dbs_big/" ) {
     print "Folder exists \n";
       system("rm -rf /backup/dbs_big");
       system("mkdir -p /backup/dbs_big");
   
      } else {
        
        print "Folder does not exist \n";
        system("mkdir -p /backup/dbs_big");

 }
}

sub big_weekly_replication_checks {

 if ( -e "/backup/dbs_big_weekly/" ) {
     print "Folder exists \n";
       system("rm -rf /backup/dbs_big_weekly");
       system("mkdir -p /backup/dbs_big_weekly");

      } else {

        print "Folder does not exist \n";
        system("mkdir -p /backup/dbs_big_weekly");

 }
}

######################################################################
# Replication accomplishment procedures
######################################################################

sub replicate_small {
    print "Starting replication small dbs \n";
   system("rsync -aHz /local/dbs/ /backup/dbs/");
}

sub replicate_big {
    print "Starting replication of big dbs \n";
   system("rsync -aHz /local/dbs_big/ /backup/dbs_big/");
}

sub replicate_small_weekly {
   print "Starting weekly replication of small dbs";
  small_weekly_replication_checks;
 system("rsync -aHz /local/dbs/ /backup/dbs_weekly/");
}

sub replicate_big_weekly {
   print "Starting weekly replication of big dbs";
  big_weekly_replication_checks;
 system("rsync -aHz /local/dbs_big/ /backup/dbs_big_weekly/");
}

######################################################################
# Initiating replication, depending on the day of the week
######################################################################

$now = localtime;

 ($day, $month, $time, $year) = split(" ", $now);
   chomp($day);

 if ($day =~/Sun/) {  
small_replication_checks;
 replicate_small;
big_replication_checks;
 replicate_big;
replicate_small_weekly;
 replicate_big_weekly;
 } else {
small_replication_checks;
 replicate_small; 
}