Unused code removed
This commit is contained in:
parent
c109d4b05e
commit
cc75be1f93
|
@ -1,4 +1,4 @@
|
|||
vn-vmware (1.0.14) stable; urgency=low
|
||||
vn-vmware (1.0.15) stable; urgency=low
|
||||
|
||||
* Initial Release.
|
||||
|
||||
|
|
14
vn-vmware.pl
14
vn-vmware.pl
|
@ -89,14 +89,6 @@ my %opts = (
|
|||
help => "Memory reservation",
|
||||
default => 0
|
||||
},
|
||||
'cbt-size' => {
|
||||
type => "=i",
|
||||
help => "CBT size"
|
||||
},
|
||||
'cbt' => {
|
||||
type => "",
|
||||
help => "Whether to enable CBT"
|
||||
},
|
||||
'overwrite' => {
|
||||
type => "",
|
||||
help => "Whether to remove the destination machine if it exists; Be very careful with this option!",
|
||||
|
@ -144,8 +136,6 @@ 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 $cbt_size = Opts::get_option('cbt-size');
|
||||
my $cbt = Opts::option_is_set('cbt');
|
||||
my $overwrite = Opts::option_is_set('overwrite');
|
||||
my $poweron = Opts::option_is_set('poweron');
|
||||
my $show_logs = Opts::option_is_set('show-logs');
|
||||
|
@ -458,7 +448,7 @@ sub backup_machine() {
|
|||
my $gzip_cpus = max(1, int(Sys::CPU::cpu_count()) - 1);
|
||||
my $tar_command = "tar -I \"pigz -p $gzip_cpus\" -cf $tar_file -C $local_tmp_dir .";
|
||||
|
||||
log_message "Compressing with Gzip (using $gzip_cpus CPUs) to TAR file: $tar_file";
|
||||
log_message "Compressing with Gzip (using $gzip_cpus CPUs) to TAR file.";
|
||||
log_message $tar_command;
|
||||
my $tar_status = system($tar_command);
|
||||
|
||||
|
@ -727,7 +717,7 @@ sub clone_machine {
|
|||
}
|
||||
|
||||
sub snapshot_machine() {
|
||||
log_message "Creating snapshot of '$vm_name' with CBT $cbt.";
|
||||
log_message "Creating snapshot of '$vm_name'.";
|
||||
|
||||
$vm->CreateSnapshot(
|
||||
name => $snapshot_name,
|
||||
|
|
Reference in New Issue