30 |
my $DIR_TIME_FMT = '%Y%m%d'; # strftime format for backup dir |
my $DIR_TIME_FMT = '%Y%m%d'; # strftime format for backup dir |
31 |
|
|
32 |
my $LOG = '/var/log/backup.log'; # add path here... |
my $LOG = '/var/log/backup.log'; # add path here... |
33 |
$LOG = '/tmp/backup.log'; |
#$LOG = '/tmp/backup.log'; |
34 |
|
|
35 |
# store backups in which directory |
# store backups in which directory |
36 |
my $BACKUP_DEST = '/data/isis_backup'; |
my $BACKUP_DEST = '/backup/isis_backup'; |
37 |
|
|
38 |
# files to ignore in backup |
# files to ignore in backup |
39 |
my @ignore = ('.md5sum', '.backupignore', 'backupignore.txt'); |
my @ignore = ('.md5sum', '.backupignore', 'backupignore.txt'); |
40 |
|
|
41 |
# open log |
# open log |
42 |
open(L, "> $LOG") || die "can't open log $LOG: $!"; |
open(L, ">> $LOG") || die "can't open log $LOG: $!"; |
43 |
select((select(L), $|=1)[0]); # flush output |
select((select(L), $|=1)[0]); # flush output |
44 |
|
|
45 |
# make a lock on logfile |
# make a lock on logfile |