add cbsd_base_dir and misc doc cleanup
This commit is contained in:
parent
2dbe69941a
commit
aa7167572f
|
@ -42,6 +42,16 @@ sub new {
|
||||||
|
|
||||||
=head1 Methods
|
=head1 Methods
|
||||||
|
|
||||||
|
=head2 cbsd_base_dir
|
||||||
|
|
||||||
|
This returns the CBSD base dir that the install is stored in.
|
||||||
|
|
||||||
|
No arguments are taken.
|
||||||
|
|
||||||
|
This will die upon error.
|
||||||
|
|
||||||
|
my $cbsd_base_dir=vm 'cbsd_base_dir'
|
||||||
|
|
||||||
=head2 disk_list
|
=head2 disk_list
|
||||||
|
|
||||||
This returns a list of disks setup for use with Bhyve in CBSD via parsing
|
This returns a list of disks setup for use with Bhyve in CBSD via parsing
|
||||||
|
@ -71,7 +81,7 @@ This dies upon failure.
|
||||||
|
|
||||||
my @disks
|
my @disks
|
||||||
eval{
|
eval{
|
||||||
@disks=vm disk_list;
|
@disks=vm 'disk_list';
|
||||||
} or do {
|
} or do {
|
||||||
my $error = $@ || 'Unknown failure';
|
my $error = $@ || 'Unknown failure';
|
||||||
warn('Failed to the disk list... '.$error);
|
warn('Failed to the disk list... '.$error);
|
||||||
|
@ -90,7 +100,7 @@ The returned value is a flat hash of key value pairs.
|
||||||
|
|
||||||
my %vm_info
|
my %vm_info
|
||||||
eval{
|
eval{
|
||||||
%vm_info=vm info => 'foo';
|
%vm_info=vm 'info' => 'foo';
|
||||||
} or do {
|
} or do {
|
||||||
my $error = $@ || 'Unknown failure';
|
my $error = $@ || 'Unknown failure';
|
||||||
warn('Failed to get settings for the VM... '.$error);
|
warn('Failed to get settings for the VM... '.$error);
|
||||||
|
@ -134,7 +144,7 @@ This dies upon failure.
|
||||||
|
|
||||||
my %vm_list;
|
my %vm_list;
|
||||||
eval{
|
eval{
|
||||||
%vm_list=vm list;
|
%vm_list=vm 'list';
|
||||||
} or do {
|
} or do {
|
||||||
my $error = $@ || 'Unknown failure';
|
my $error = $@ || 'Unknown failure';
|
||||||
warn('Failed to list the VM... '.$error);
|
warn('Failed to list the VM... '.$error);
|
||||||
|
@ -212,7 +222,7 @@ The command called is as below.
|
||||||
This dies upon failure.
|
This dies upon failure.
|
||||||
|
|
||||||
eval{
|
eval{
|
||||||
vm pause => 'foo';
|
vm 'pause' => 'foo';
|
||||||
} or do {
|
} or do {
|
||||||
my $error = $@ || 'Unknown failure';
|
my $error = $@ || 'Unknown failure';
|
||||||
warn('Failed to pause the VM foo... '.$error);
|
warn('Failed to pause the VM foo... '.$error);
|
||||||
|
@ -242,7 +252,7 @@ This dies upon failure.
|
||||||
|
|
||||||
my @devices
|
my @devices
|
||||||
eval{
|
eval{
|
||||||
@devices=vm nic_list => 'foo';
|
@devices=vm 'nic_list' => 'foo';
|
||||||
} or do {
|
} or do {
|
||||||
my $error = $@ || 'Unknown failure';
|
my $error = $@ || 'Unknown failure';
|
||||||
warn('Failed to the PCI device list... '.$error);
|
warn('Failed to the PCI device list... '.$error);
|
||||||
|
@ -261,7 +271,7 @@ One argument is taken and that is the name of the VM.
|
||||||
This dies upon failure.
|
This dies upon failure.
|
||||||
|
|
||||||
eval{
|
eval{
|
||||||
vm remove => 'foo'
|
vm 'remove' => 'foo'
|
||||||
} or do {
|
} or do {
|
||||||
my $error = $@ || 'Unknown failure';
|
my $error = $@ || 'Unknown failure';
|
||||||
warn('Failed to remove the VM foo... '.$error);
|
warn('Failed to remove the VM foo... '.$error);
|
||||||
|
@ -278,7 +288,7 @@ One argument is taken and that is the name of the VM.
|
||||||
This dies upon failure.
|
This dies upon failure.
|
||||||
|
|
||||||
eval{
|
eval{
|
||||||
vm restart => 'foo'
|
vm 'restart' => 'foo'
|
||||||
} or do {
|
} or do {
|
||||||
my $error = $@ || 'Unknown failure';
|
my $error = $@ || 'Unknown failure';
|
||||||
warn('Failed to restart the VM foo... '.$error);
|
warn('Failed to restart the VM foo... '.$error);
|
||||||
|
@ -296,7 +306,7 @@ start all VM whose names begin with 'vm', e.g. 'vm1', 'vm2'...
|
||||||
This dies upon failure.
|
This dies upon failure.
|
||||||
|
|
||||||
eval{
|
eval{
|
||||||
vm start => 'foo'
|
vm 'start' => 'foo'
|
||||||
} or do {
|
} or do {
|
||||||
my $error = $@ || 'Unknown failure';
|
my $error = $@ || 'Unknown failure';
|
||||||
warn('Failed to start the VM foo... '.$error);
|
warn('Failed to start the VM foo... '.$error);
|
||||||
|
@ -321,7 +331,7 @@ The following options are optional.
|
||||||
This dies upon failure.
|
This dies upon failure.
|
||||||
|
|
||||||
eval{
|
eval{
|
||||||
vm stop => 'foo',
|
vm 'stop' => 'foo',
|
||||||
hard_timeout => 60;
|
hard_timeout => 60;
|
||||||
} or do {
|
} or do {
|
||||||
my $error = $@ || 'Unknown failure';
|
my $error = $@ || 'Unknown failure';
|
||||||
|
|
|
@ -0,0 +1,33 @@
|
||||||
|
#
|
||||||
|
# (c) Zane C. Bowers-Hadley <vvelox@vvelox.net>
|
||||||
|
#
|
||||||
|
|
||||||
|
package Rex::Virtualization::CBSD::cbsd_base_dir;
|
||||||
|
|
||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
|
||||||
|
our $VERSION = '0.0.1'; # VERSION
|
||||||
|
|
||||||
|
use Rex::Logger;
|
||||||
|
use Rex::Helper::Run;
|
||||||
|
use Term::ANSIColor qw(colorstrip);
|
||||||
|
use Rex::Commands::User;
|
||||||
|
|
||||||
|
sub execute {
|
||||||
|
my ($class) = @_;
|
||||||
|
|
||||||
|
Rex::Logger::debug("Geting the CBSD base dir ");
|
||||||
|
|
||||||
|
my %cbsd;
|
||||||
|
eval{
|
||||||
|
%cbsd= get_user('cbsd');
|
||||||
|
} or do{
|
||||||
|
my $error = $@ || 'Unknown failure';
|
||||||
|
die ( "get_user('cbsd') died with... ".$error );
|
||||||
|
};
|
||||||
|
|
||||||
|
return $cbsd{home};
|
||||||
|
}
|
||||||
|
|
||||||
|
1;
|
Loading…
Reference in New Issue