Minor fixes
This commit is contained in:
parent
cc75be1f93
commit
a8aecad1cd
|
@ -1,4 +1,4 @@
|
||||||
vn-vmware (1.0.15) stable; urgency=low
|
vn-vmware (1.0.16) stable; urgency=low
|
||||||
|
|
||||||
* Initial Release.
|
* Initial Release.
|
||||||
|
|
||||||
|
|
|
@ -476,14 +476,13 @@ sub backup_machine() {
|
||||||
}
|
}
|
||||||
|
|
||||||
sub rotate_backup() {
|
sub rotate_backup() {
|
||||||
log_message "Rotating '$vm_name' backups.";
|
|
||||||
|
|
||||||
my $local_dir = "$local_backup_dir/$vm_name";
|
|
||||||
|
|
||||||
if ($rotation_days == 0 && $rotation_count == 0) {
|
if ($rotation_days == 0 && $rotation_count == 0) {
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
log_message "Rotating '$vm_name' backups.";
|
||||||
|
|
||||||
|
my $local_dir = "$local_backup_dir/$vm_name";
|
||||||
my $regex = qr/\Q$vm_name\E_(\d{4}-\d{2}-\d{2}_\d{2}-\d{2})\.tar\.gz$/;
|
my $regex = qr/\Q$vm_name\E_(\d{4}-\d{2}-\d{2}_\d{2}-\d{2})\.tar\.gz$/;
|
||||||
|
|
||||||
my @delete_files;
|
my @delete_files;
|
||||||
|
|
Reference in New Issue