#!/usr/bin/perl -w

#############################################
### Date:    09.04.2010                   ###
### Version: 1.0                          ###
### File:    jun_arch.pl                  ###
#############################################

use warnings;
use File::Copy;
### define in this file your paths like $archpath or $bkpath etc.
require "/path/backup.conf";

### get date
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
my ($date);
$date = sprintf"%4d%02d%02d",$year+1900,$mon+1,$mday,$hour,$min,$sec;


print $archpath." ".length($bkppath)."\n";
        
my $createfolder = $archpath."".$date;

print $createfolder."\n";

### create folder with admin rights
mkdir("$createfolder",0755);


### find files and sub-folders in a folder
my @files;
my $path = $bkppath;

opendir(DIR, $path) or die "cant find $path: $!";
while (defined(my $file = readdir(DIR))) {
        next if $file =~ /^\.\.?$/;
        if ("$path$file"){
                push @files,"$path$file";
        }
}
closedir(DIR);

### use files and subfolder from an array

foreach my $i (@files){
        
        # use only config files
        if($i =~ m/.txt/){
                                 
         # find out the length of the filename
         my $len = length($i)-length($bkppath);

         # pars filename from path
         my $sub = substr($i,length($bkppath),$len);
                 
                 # strip out .txt
                 my $filename = substr($sub,0,(length($sub)-4));
                 
                 my $file_new = "$archpath$date/$filename-$date.cfg";
                 
                 print "move $i to $file_new\n";
                 move($i,$file_new);
                 
         }
}