New parameters to archive backups
gitea/vn-vmware/pipeline/head This commit looks good
Details
gitea/vn-vmware/pipeline/head This commit looks good
Details
This commit is contained in:
parent
66c97bb570
commit
a39d7db316
11
config.pl
11
config.pl
|
|
@ -24,7 +24,16 @@ rotation => 'lastMonth',
|
|||
rotations => {
|
||||
lastMonth => {
|
||||
days => 31,
|
||||
count => 31
|
||||
count => 31,
|
||||
archive_regex => '^\d{4}-\d{2}-01'
|
||||
|
||||
# Function used to archive and exclude backups from rotation
|
||||
# https://perldoc.perl.org/Time/Piece.html
|
||||
# https://perldoc.perl.org/Time/Seconds.html
|
||||
archive_fn => sub {
|
||||
my ($backup_time, $now) = @_;
|
||||
return $backup_time->year < $now->year - 1;
|
||||
}
|
||||
},
|
||||
lastWeek => {
|
||||
days => 7
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
vn-vmware (1.1.17) stable; urgency=low
|
||||
vn-vmware (1.1.18) stable; urgency=low
|
||||
|
||||
* Initial Release.
|
||||
|
||||
|
|
|
|||
120
vn-vmware.pl
120
vn-vmware.pl
|
|
@ -11,6 +11,7 @@ use VMware::VIExt;
|
|||
use Time::Piece;
|
||||
use Time::Seconds;
|
||||
use File::Path;
|
||||
use File::Copy 'move';
|
||||
use Sys::CPU;
|
||||
use Term::ANSIColor;
|
||||
use IO::Handle;
|
||||
|
|
@ -77,6 +78,10 @@ my %opts = (
|
|||
help => "Number of backups to keep despite the rotation days",
|
||||
default => 0
|
||||
},
|
||||
'archive-regex' => {
|
||||
type => "=s",
|
||||
help => "Regular expression used to archive and exclude backups from rotation"
|
||||
},
|
||||
'dst-name' => {
|
||||
type => "=s",
|
||||
help => "Name of the new virtual machine"
|
||||
|
|
@ -153,33 +158,35 @@ Opts::add_options(%opts);
|
|||
Opts::parse();
|
||||
Opts::validate();
|
||||
|
||||
my $server = Opts::get_option('server');
|
||||
my $operation = Opts::get_option('operation');
|
||||
my $job = Opts::get_option('job');
|
||||
my $vm_name = Opts::get_option('vm-name');
|
||||
my $rotation_days = Opts::get_option('rotation-days');
|
||||
my $rotation_count = Opts::get_option('rotation-count');
|
||||
my $dst_name = Opts::get_option('dst-name');
|
||||
my $dst_host = Opts::get_option('dst-host');
|
||||
my $dst_datastore = Opts::get_option('dst-datastore');
|
||||
my $memory = Opts::get_option('memory');
|
||||
my $num_cpus = Opts::get_option('num-cpus');
|
||||
my $mac = Opts::get_option('mac');
|
||||
my $vnic = Opts::get_option('vnic');
|
||||
my $priority = Opts::get_option('priority');
|
||||
my $mem_reservation = Opts::get_option('mem-reservation');
|
||||
my $cpu_reservation = Opts::get_option('cpu-reservation');
|
||||
my $overwrite = Opts::option_is_set('overwrite');
|
||||
my $poweron = Opts::option_is_set('poweron');
|
||||
my $test = Opts::option_is_set('test');
|
||||
my $snapshot_name = Opts::get_option('snapshot-name');
|
||||
my $snapshot_desc = Opts::get_option('snapshot-desc');
|
||||
my $server = Opts::get_option('server');
|
||||
my $operation = Opts::get_option('operation');
|
||||
my $job = Opts::get_option('job');
|
||||
my $vm_name = Opts::get_option('vm-name');
|
||||
my $rotation_days = Opts::get_option('rotation-days');
|
||||
my $rotation_count = Opts::get_option('rotation-count');
|
||||
my $archive_regex = Opts::get_option('archive-regex');
|
||||
my $dst_name = Opts::get_option('dst-name');
|
||||
my $dst_host = Opts::get_option('dst-host');
|
||||
my $dst_datastore = Opts::get_option('dst-datastore');
|
||||
my $memory = Opts::get_option('memory');
|
||||
my $num_cpus = Opts::get_option('num-cpus');
|
||||
my $mac = Opts::get_option('mac');
|
||||
my $vnic = Opts::get_option('vnic');
|
||||
my $priority = Opts::get_option('priority');
|
||||
my $mem_reservation = Opts::get_option('mem-reservation');
|
||||
my $cpu_reservation = Opts::get_option('cpu-reservation');
|
||||
my $overwrite = Opts::option_is_set('overwrite');
|
||||
my $poweron = Opts::option_is_set('poweron');
|
||||
my $test = Opts::option_is_set('test');
|
||||
my $snapshot_name = Opts::get_option('snapshot-name');
|
||||
my $snapshot_desc = Opts::get_option('snapshot-desc');
|
||||
|
||||
my $vm;
|
||||
my $log_fh;
|
||||
my $backup_disks;
|
||||
my $time_pattern = '%Y-%m-%d_%H-%M';
|
||||
my $local_backup_dir = $config{local_backup_dir};
|
||||
my $archive_fn = sub { return false; };
|
||||
|
||||
sub stringify_message {
|
||||
my ($message) = @_;
|
||||
|
|
@ -355,6 +362,13 @@ sub backup_job() {
|
|||
if (exists $rotation_cfg->{days}) {
|
||||
$rotation_days = $rotation_cfg->{days};
|
||||
}
|
||||
if (exists $rotation_cfg->{archive_regex}) {
|
||||
$archive_regex = $rotation_cfg->{archive_regex};
|
||||
$archive_regex = qr/$archive_regex/;
|
||||
}
|
||||
if (exists $rotation_cfg->{archive_fn}) {
|
||||
$archive_fn = $rotation_cfg->{archive_fn};
|
||||
}
|
||||
}
|
||||
|
||||
open_machine();
|
||||
|
|
@ -617,29 +631,65 @@ sub rotate_backup() {
|
|||
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 $now = Time::Piece->new;
|
||||
|
||||
my @archive_files;
|
||||
my @delete_files;
|
||||
my $file_count = 0;
|
||||
|
||||
my $rotateTime = Time::Piece->new();
|
||||
$rotateTime -= ONE_DAY * $rotation_days;
|
||||
|
||||
my $rotate_time = Time::Piece->new();
|
||||
$rotate_time -= ONE_DAY * $rotation_days;
|
||||
|
||||
opendir(my $dh, $local_dir);
|
||||
while (my $file = readdir($dh)) {
|
||||
my @reResult;
|
||||
unless (@reResult = $file =~ $regex) {
|
||||
my @re_result;
|
||||
unless (@re_result = $file =~ $regex) {
|
||||
next;
|
||||
}
|
||||
$file_count++;
|
||||
my ($fileMatch) = @reResult;
|
||||
my $fileTime = Time::Piece->strptime($fileMatch, $time_pattern);
|
||||
|
||||
if ($fileTime < $rotateTime) {
|
||||
my ($file_match) = @re_result;
|
||||
my $file_time = Time::Piece->strptime($file_match, $time_pattern);
|
||||
|
||||
my $archive =
|
||||
(defined($archive_regex) && $file_match =~ $archive_regex)
|
||||
|| (defined($archive_fn) && $archive_fn->($file_time, $now));
|
||||
|
||||
if ($archive) {
|
||||
push(@archive_files, $file);
|
||||
next;
|
||||
}
|
||||
|
||||
$file_count++;
|
||||
|
||||
if ($file_time < $rotate_time) {
|
||||
push(@delete_files, $file);
|
||||
}
|
||||
}
|
||||
|
||||
my $archive_count = scalar(@archive_files);
|
||||
my $archive_dir = "$local_dir/.archive";
|
||||
|
||||
if ($archive_count > 0) {
|
||||
log_message "Archiving $archive_count backups.";
|
||||
|
||||
unless (-e $archive_dir) {
|
||||
log_message "Creating archive directory: $archive_dir";
|
||||
unless ($test) {
|
||||
mkdir $archive_dir;
|
||||
}
|
||||
}
|
||||
|
||||
foreach my $archive_file (@archive_files) {
|
||||
log_message "$archive_file";
|
||||
unless ($test) {
|
||||
move ("$local_dir/$archive_file", "$archive_dir/$archive_file");
|
||||
}
|
||||
}
|
||||
|
||||
log_message "Some backups archived.";
|
||||
}
|
||||
|
||||
my $delete_count = scalar(@delete_files);
|
||||
my $kept_count = $file_count - $delete_count;
|
||||
|
||||
|
|
@ -657,11 +707,11 @@ sub rotate_backup() {
|
|||
|
||||
log_message "Removing $delete_count detected old backups.";
|
||||
|
||||
foreach my $deleteFile (@delete_files) {
|
||||
my $deleteFilePath = "$local_dir/$deleteFile";
|
||||
log_message $deleteFilePath;
|
||||
foreach my $delete_file (@delete_files) {
|
||||
my $delete_file_path = "$local_dir/$delete_file";
|
||||
log_message $delete_file_path;
|
||||
unless ($test) {
|
||||
unlink "$deleteFilePath";
|
||||
unlink "$delete_file_path";
|
||||
}
|
||||
}
|
||||
|
||||
|
|
|
|||
Reference in New Issue