vvelox
/
Rex-Virtualization-CBSD
mirror of https://github.com/VVelox/Rex-Virtualization-CBSD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

perl tidy new stuff

This commit is contained in:
Zane C. B-H 2021-10-12 09:48:03 -05:00
parent 8c0c5b281f
commit 3cc81b4342
2 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Rex-Virtualization-CBSD/lib/Rex/Virtualization/CBSD/vm_os_profiles.pm
View File

@ -16,10 +16,10 @@ use Rex::Commands::User;
use Rex::Commands::Fs;
sub execute {
my ($class, $wanted_os) = @_;
my ( $class, $wanted_os ) = @_;
# the OS we want profiles for
if (!defined($wanted_os)) {
if ( !defined($wanted_os) ) {
die 'No OS to list profiles for defined';
}
@ -41,8 +41,8 @@ sub execute {
my %profiles;
foreach my $config (@vm_configs) {
my ( $vm, $os, $profile ) = split( /\-/, $config, 3 );
if ($os eq $wanted_os) {
$profile=~s/\.conf$//;
if ( $os eq $wanted_os ) {
$profile =~ s/\.conf$//;
$profiles{$profile} = 1;
}
}

13
Rex-Virtualization-CBSD/lib/Rex/Virtualization/CBSD/vm_os_profiles_hash.pm
View File

@ -16,7 +16,7 @@ use Rex::Commands::User;
use Rex::Commands::Fs;
sub execute {
my ($class, $wanted_os) = @_;
my ( $class, $wanted_os ) = @_;
Rex::Logger::debug("Getting a list of VM OS types for CBSD ");
@ -36,11 +36,12 @@ sub execute {
my %profiles;
foreach my $config (@vm_configs) {
my ( $vm, $os, $profile ) = split( /\-/, $config, 3 );
$profile=~s/\.conf$//;
if (!defined( $profiles{$os} )) {
$profiles{$os}={ $profile => 1 };
}else {
$profiles{$os}{$profile}=1
$profile =~ s/\.conf$//;
if ( !defined( $profiles{$os} ) ) {
$profiles{$os} = { $profile => 1 };
}
else {
$profiles{$os}{$profile} = 1;
}
}