
#!/usr/local/bin/perl
 $repo = '/local/configs';
  chomp($repo);
 $backup = '/backup/configs';
   chomp($backup);

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

  system("mkdir -p $repo/$month\_$time");
  system("mkdir -p $backup/$month\_$time");
  @conf=('/etc/exim.conf','/etc/fstab','/etc/group','/etc/httpd/conf/httpd.conf','/etc/ips','/etc/localdomains','/etc/my.cnf','/etc/named.conf','/etc/passwd','/etc/quota.conf','/etc/remotedomains','/etc/rndc.conf','/etc/shadow','/etc/passwd','/etc/wwwacct.conf');

   foreach $file(@conf){
     chomp($file);
  print "I will copy $file to $repo/$month\_$time\n";
    system("cp $file $repo/$month\_$time -arf");
  print "I will now copy $file to $backup/$month\_$time\n";
    system("cp $file $backup/$month\_$time -arf");
  }