Cisco-UCS

 view release on metacpan or  search on metacpan

lib/Cisco/UCS/Blade.pm  view on Meta::CPAN

package Cisco::UCS::Blade;

use warnings;
use strict;

use Carp 		qw(croak);
use Scalar::Util 	qw(weaken);
use Cisco::UCS::Blade::Adaptor;
use Cisco::UCS::Blade::CPU;
use Cisco::UCS::Blade::PowerBudget;
use Cisco::UCS::Common::PowerStats;

our $VERSION = '0.51';

our @ATTRIBUTES	= qw(association availability discovery dn model name 
operability presence revision serial uuid vendor);

lib/Cisco/UCS/Blade.pm  view on Meta::CPAN

sub new {
	my ($class, %args) = @_;
	my $self = {};
	bless $self, $class;

	defined $args{dn}
		? $self->{dn} = $args{dn}
		: croak 'dn not defined';

	defined $args{ucs}
		? weaken($self->{ucs} = $args{ucs})
		: croak 'dn not defined';

	my %attr = %{ $self->{ucs}->resolve_dn( 
				dn => $self->{dn})->{outConfig}->{computeBlade}
		};
	
	while ( my ($k, $v) = each %attr ) { $self->{$k} = $v }

	return $self
}

lib/Cisco/UCS/Blade/Adaptor.pm  view on Meta::CPAN

package Cisco::UCS::Blade::Adaptor;

use strict;
use warnings;

use Scalar::Util qw(weaken);

our $VERSION = '0.51';

our %V_MAP = (
	'adminPowerState'	=> 'admin_pwoer_state',
	'baseMac'		=> 'base_mac',
	'bladeId'		=> 'blade_id',
	'chassisId'		=> 'chassis_id',
	'connPath'		=> 'conn_path',
	'connStatus'		=> 'conn_status',

lib/Cisco/UCS/Blade/Adaptor.pm  view on Meta::CPAN

                        my $self = shift;
                        return $self->{$attribute}
                }   
        }   
}

sub new {
        my ( $class, $ucs, $args ) = @_; 

        my $self = bless {}, $class;
	weaken( $self->{ucs} = $ucs );
            
        foreach my $var ( keys %$args ) {
                $self->{ $var } = $args->{ $var };
        }

        return $self
}

sub env_stats {
        my $self = shift;

lib/Cisco/UCS/Blade/CPU.pm  view on Meta::CPAN

package Cisco::UCS::Blade::CPU;

use strict;
use warnings;

use Cisco::UCS::Common::EnvironmentalStats;
use Scalar::Util qw(weaken);

our $VERSION = '0.51';

our %V_MAP = (
	arch			=> 'arch',
	cores			=> 'cores',
	coresEnabled		=> 'cores_enabled',
	dn			=> 'dn',
	id			=> 'id',
	model			=> 'model',

lib/Cisco/UCS/Blade/CPU.pm  view on Meta::CPAN

                        my $self = shift;
                        return $self->{$attribute}
                }   
        }   
}

sub new {
        my ( $class, $ucs, $args ) = @_; 

        my $self = bless {}, $class;
	weaken( $self->{ucs} = $ucs );
            
        foreach my $var ( keys %$args ) {
                $self->{ $var } = $args->{ $var };
        }

        return $self
}

sub env_stats {
	my $self = shift;

lib/Cisco/UCS/Blade/PowerBudget.pm  view on Meta::CPAN

package Cisco::UCS::Blade::PowerBudget;

use strict;
use warnings;

use Cisco::UCS::Blade::PowerBudget;
use Scalar::Util qw(weaken);

our $VERSION = '0.51';

our %V_MAP = (
	adminCommitted	=> 'admin_commited',
	adminPeak	=> 'admin_peak',
	capAction	=> 'cap_action',
	catalogPower	=> 'catalog_power',
	currentPower	=> 'current_power',
	dynRealloc	=> 'dyn_reallocation',

lib/Cisco/UCS/Chassis.pm  view on Meta::CPAN

use warnings;
use strict;

use Cisco::UCS::FEX;
use Cisco::UCS::Common::FanModule;
use Cisco::UCS::Common::Fan;
use Cisco::UCS::Chassis::PSU;
use Cisco::UCS::Chassis::Stats;
use Carp qw(croak);
use Scalar::Util qw(weaken);
use vars qw(@ISA);

@ISA = qw(Cisco::UCS);

our $VERSION = '0.51';

our %ATTRIBUTES = (
	adminState	=> 'admin_state',
	connPath	=> 'conn_path',
	connStatus	=> 'conn_status',

lib/Cisco/UCS/Chassis.pm  view on Meta::CPAN

	my ( $class, %args ) = @_;

	my $self = {};
	bless $self, $class;

	defined $args{dn}
		? $self->{dn} = $args{dn}
		: croak 'dn not defined';

	defined $args{ucs} 
		? weaken($self->{ucs} = $args{ucs} )
		: croak 'ucs not defined';

	my %attr = %{$self->{ucs}->resolve_dn(
						dn => $self->{dn}
					)->{outConfig}->{equipmentChassis}};

	while ( my ($k, $v) = each %attr ) { $self->{$k} = $v }

	return $self;
}

lib/Cisco/UCS/Chassis/PSU.pm  view on Meta::CPAN

package Cisco::UCS::Chassis::PSU;

use warnings;
use strict;

use Carp qw(croak);
use Scalar::Util qw(weaken);
use Cisco::UCS::Chassis::PSU::Stats;

our $VERSION = '0.51';

our %ATTRIBUTES	= (
	id 		=> 'id',
	model 		=> 'model',
	operability 	=> 'operability',
	operational	=> 'operState',
	performance	=> 'perf',

lib/Cisco/UCS/Chassis/PSU.pm  view on Meta::CPAN

        my ( $class, %args ) = @_;

        my $self = {};
        bless $self, $class;

        defined $args{dn}
		? $self->{dn} = $args{dn}
		: croak 'dn not defined';

        defined $args{ucs}
		? weaken($self->{ucs} = $args{ucs})
		: croak 'ucs not defined';

        my %attr = %{ $self->{ucs}->resolve_dn(
				dn => $self->{dn}
			)->{outConfig}->{equipmentPsu}};
        
        while ( my ($k, $v) = each %attr ) { $self->{$k} = $v }
                
        return $self;
}

lib/Cisco/UCS/Chassis/PSU/Stats.pm  view on Meta::CPAN

package Cisco::UCS::Chassis::PSU::Stats;

use warnings;
use strict;

use Carp qw(croak);
use Scalar::Util qw(weaken);

our $VERSION = '0.51';

our %ATTRIBUTES	= (
	ambientTemp	=> 'ambient_temp',
	ambientTempAvg	=> 'ambient_temp_avg',
	ambientTempMax	=> 'ambient_temp_max',
	ambientTempMin	=> 'ambient_temp_min',
	id 		=> 'id',
	input210v	=> 'input_210v',

lib/Cisco/UCS/Chassis/Stats.pm  view on Meta::CPAN

package Cisco::UCS::Chassis::Stats;

use strict;
use warnings;

use Scalar::Util qw(weaken);

our $VERSION = '0.51';

our %V_MAP = (
	inputPower	=> 'input_power',
	inputPowerAvg	=> 'input_power_avg',
	inputPowerMax	=> 'input_power_max',
	inputPowerMin	=> 'input_power_min',
	outputPower	=> 'output_power',
	outputPowerAvg	=> 'output_power_avg',

lib/Cisco/UCS/Common/EnvironmentalStats.pm  view on Meta::CPAN

package Cisco::UCS::Common::EnvironmentalStats;

use strict;
use warnings;

use Scalar::Util qw(weaken);

our $VERSION = '0.51';

our %V_MAP = (
	inputCurrent	=> 'input_current',
	inputCurrentAvg	=> 'input_current_avg',
	inputCurrentMin => 'input_current_min',
	inputCurrentMax => 'input_current_max',
	#intervals	=> 'intervals',
	temperature	=> 'temperature',

lib/Cisco/UCS/Common/EthernetPort.pm  view on Meta::CPAN

package Cisco::UCS::Common::EthernetPort;

use warnings;
use strict;

use Carp qw(croak);
use Scalar::Util qw(weaken);

our $VERSION = '0.51';

our @ATTRIBUTES = qw( dn epDn mac mode type);

our %ATTRIBUTES = (
	admin_state			=> 'adminState',
	chassis_id			=> 'chassisId',
	if_role				=> 'ifRole',
	if_type				=> 'ifType',

lib/Cisco/UCS/Common/EthernetPort.pm  view on Meta::CPAN

        my ( $class, %args ) = @_; 

        my $self = {}; 
        bless $self, $class;

        defined $args{dn}
		? $self->{dn} = $args{dn}
		: croak 'dn not defined';

        defined $args{ucs}
		? weaken( $self->{ucs} = $args{ucs} )
		: croak 'ucs not defined';

        my %attr = %{ $self->{ucs}->resolve_dn(
				dn => $self->{dn}
			)->{outConfig}->{etherPIo}};

	{
        	no strict 'refs';
		no warnings qw(redefine);

lib/Cisco/UCS/Common/Fan.pm  view on Meta::CPAN

package Cisco::UCS::Common::Fan;

use warnings;
use strict;

use Scalar::Util	qw(weaken);
use Carp		qw(croak);

our $VERSION = '0.51';

our @ATTRIBUTES = qw(dn id model operability power presence revision serial 
thermal tray vendor voltage);

our %ATTRIBUTES	= (
	performance	=> 'perf',
	oper_state	=> 'operState'

lib/Cisco/UCS/Common/Fan.pm  view on Meta::CPAN

	defined $args{dn}
		? $self->{dn} = $args{dn}
		: croak 'dn not defined';

	defined $args{id}
		? $self->{id} = $args{id}
		: croak 'id not defined';

	defined $args{ucs}
		? weaken( $self->{ucs} = $args{ucs} )
		: croak 'ucs not defined';

	my %attr = %{ $self->{ucs}->resolve_dn(
						dn => $self->{dn}
					)
			};

	%attr = %{ exists $attr{outConfig}{equipmentFan} 
			? $attr{outConfig}{equipmentFan} 
			: $attr{outConfig}{equipmentFanModule} 

lib/Cisco/UCS/Common/FanModule.pm  view on Meta::CPAN

package Cisco::UCS::Common::FanModule;

use warnings;
use strict;

use Carp qw(croak);
use Scalar::Util qw(weaken);

our $VERSION = '0.51';

our @ATTRIBUTES = qw(dn id model operability power presence revision serial 
thermal tray vendor voltage);

our %ATTRIBUTES = ( 
	performance	=> 'perf',
	oper_state	=> 'operState'
);  

lib/Cisco/UCS/Common/FanModule.pm  view on Meta::CPAN

	my ( $class, %args ) = @_;

	my $self = {};
	bless $self, $class;

	defined $args{dn}
		? $self->{dn} = $args{dn}
		: croak 'dn not defined';

	defined $args{ucs}
		? weaken($self->{ucs} = $args{ucs})
		: croak 'ucs not defined';

	my %attr = %{ $self->{ucs}->resolve_dn(
				dn => $self->{dn}
			)->{outConfig}->{equipmentFanModule} };

	while ( my ( $k, $v ) = each %attr ) { $self->{$k} = $v }

	return $self;
}

lib/Cisco/UCS/Common/PSU.pm  view on Meta::CPAN

package Cisco::UCS::Common::PSU;

use warnings;
use strict;

use Carp qw(croak);
use Scalar::Util qw(weaken);

our $VERSION = '0.51';

our @ATTRIBUTES	= qw(dn id model operability power presence revision serial 
thermal vendor voltage);

our %ATTRIBUTES	= (
	operational	=> 'operState',
	performance	=> 'perf'
);

lib/Cisco/UCS/Common/PSU.pm  view on Meta::CPAN

        my ( $class, %args ) = @_;

        my $self = {};
        bless $self, $class;

        defined $args{dn}
		? $self->{dn} = $args{dn}
		: croak 'dn not defined';

        defined $args{ucs}
		? weaken($self->{ucs} = $args{ucs})
		: croak 'ucs not defined';

        my %attr = %{ $self->{ucs}->resolve_dn(
					dn => $self->{dn}
				)->{outConfig}->{equipmentPsu} };
        
        while ( my ($k, $v) = each %attr ) { $self->{$k} = $v }
                
        return $self;
}

lib/Cisco/UCS/Common/PowerStats.pm  view on Meta::CPAN

package Cisco::UCS::Common::PowerStats;

use strict;
use warnings;

use Scalar::Util qw(weaken);

our $VERSION = '0.51';

our %V_MAP = (
	consumedPower	=> 'consumed_power',
	consumedPowerAvg=> 'consumed_power_avg',
	consumedPowerMin=> 'consumed_power_min',
	consumedPowerMax=> 'consumed_power_max',
	inputCurrent	=> 'input_current',
	inputCurrentAvg	=> 'input_current_avg',

lib/Cisco/UCS/Common/SwitchCard.pm  view on Meta::CPAN

package Cisco::UCS::Common::SwitchCard;

use warnings;
use strict;

use Cisco::UCS::Common::EthernetPort;
use Scalar::Util qw(weaken);
use Carp qw(croak);

our $VERSION = '0.51';

our @ATTRIBUTES = qw(dn id model operability power presence revision serial 
state thermal vendor voltage);

our %ATTRIBUTES	= (
	description	=> 'descr',
	num_ports	=> 'numPorts',

lib/Cisco/UCS/Common/SwitchCard.pm  view on Meta::CPAN

        my ( $class, %args ) = @_;

        my $self = {}; 
        bless $self, $class;

        defined $args{dn}
		? $self->{dn} = $args{dn}
		: croak 'dn not defined';

        defined $args{ucs}
		? weaken($self->{ucs} = $args{ucs})
		: croak 'ucs not defined';

        my %attr = %{ $self->{ucs}->resolve_dn(
				dn => $self->{dn}
			)->{outConfig}->{equipmentSwitchCard} };
    
        while ( my ( $k, $v ) = each %attr ) { $self->{$k} = $v }
    
        return $self;
}

lib/Cisco/UCS/FEX.pm  view on Meta::CPAN

package Cisco::UCS::FEX;

use warnings;
use strict;

use Carp qw(croak);
use Scalar::Util qw(weaken);

our $VERSION = '0.51';

our @ATTRIBUTES	= qw(discovery dn id model operability perf power presence 
revision serial side thermal vendor voltage);

our %ATTRIBUTES = (
	chassis_id	=> 'chassisId',
	config_state	=> 'configState',
	oper_state	=> 'operState',

lib/Cisco/UCS/FEX.pm  view on Meta::CPAN

        my ( $class, %args ) = @_; 

        my $self = {}; 
        bless $self, $class;

        defined $args{dn}
		? $self->{dn} = $args{dn}
		: croak 'dn not defined';

        defined $args{ucs}
		? weaken($self->{ucs} = $args{ucs})
		: croak 'ucs not defined';

        my %attr = %{ $self->{ucs}->resolve_dn(
					dn => $self->{dn}
				)->{outConfig}->{equipmentIOCard}};
            
        while ( my ($k, $v) = each %attr ) { $self->{$k} = $v }
                    
        return $self;
}

lib/Cisco/UCS/Fault.pm  view on Meta::CPAN

package Cisco::UCS::Fault;

use strict;
use warnings;

use Carp		qw(croak);
use Scalar::Util	qw(weaken);

our $VERSION = '0.51';

our @ATTRIBUTES	= qw(ack code cause created dn id occur rule severity tags 
type);

our %ATTRIBUTES	= (
	last_transition		=> 'lastTransition',
	highest_severity	=> 'highestSeverity',
	original_severity	=> 'origSeverity',

lib/Cisco/UCS/Fault.pm  view on Meta::CPAN

        my ( $class, %args ) = @_; 

        my $self = {}; 
        bless $self, $class;

        defined $args{dn}
		? $self->{dn} = $args{dn}
		: croak 'dn not defined';

        defined $args{ucs}
		? weaken($self->{ucs} = $args{ucs})
		: croak 'ucs not defined';

        my %attr = %{ $self->{ucs}->resolve_dn(
					dn => $self->{dn}
				)->{outConfig}->{faultInst}};

        while ( my ($k, $v) = each %attr ) { $self->{$k} = $v }

        return $self
}

lib/Cisco/UCS/Interconnect.pm  view on Meta::CPAN

package Cisco::UCS::Interconnect;

use warnings;
use strict;

use Cisco::UCS::Common::SwitchCard;
use Cisco::UCS::Common::PSU;
use Cisco::UCS::Common::Fan;
use Cisco::UCS::Interconnect::Stats;
use Scalar::Util qw(weaken);
use Carp qw(croak);

our $VERSION = '0.51';

our @ATTRIBUTES	= qw(dn id model operability serial vendor);

our %ATTRIBUTES = (
	memory		=> 'totalMemory',
	mgmt_ip		=> 'oobIfIp',
	mgmt_gw		=> 'oobIfGw',

lib/Cisco/UCS/Interconnect.pm  view on Meta::CPAN

	my ( $class, %args ) = @_;

	my $self = {};
	bless $self, $class;

	defined $args{dn}
		? $self->{dn} = $args{dn}
		: croak 'dn not defined';

	defined $args{ucs}
		? weaken( $self->{ucs} = $args{ucs} )
		: croak 'ucs not defined';

	my %attr = %{ $self->{ucs}->resolve_dn( 
				dn => $self->{dn} 
			)->{outConfig}->{networkElement} };

	while ( my( $k, $v ) = each %attr ) { $self->{$k} = $v }

	my ($v) = $self->{ucs}->version =~ /\((.*)\)/;

lib/Cisco/UCS/Interconnect/Stats.pm  view on Meta::CPAN

package Cisco::UCS::Interconnect::Stats;

use strict;
use warnings;

use Scalar::Util qw(weaken);
use Carp qw(croak);

our $VERSION = '0.51';

our %ATTRIBUTES = (
	load			=> 'load',
	load_avg		=> 'loadAvg',
	load_min		=> 'loadMin',
	load_max		=> 'loadMax',
	mem_available		=> 'memAvailable',

lib/Cisco/UCS/MgmtEntity.pm  view on Meta::CPAN

package Cisco::UCS::MgmtEntity;

use strict;
use warnings;

use Carp		qw(croak);
use Scalar::Util	qw(weaken);

our $VERSION = '0.51';

our @ATTRIBUTES	= qw(chassis1 chassis2 chassis3 dn id leadership state);

our %ATTRIBUTES = (
	chassis1_device_io_state	=> 'chassisDeviceIoState1',
	chassis2_device_io_state	=> 'chassisDeviceIoState2',
	chassis3_device_io_state	=> 'chassisDeviceIoState3',
	ha_failure_reason		=> 'haFailureReason',

lib/Cisco/UCS/MgmtEntity.pm  view on Meta::CPAN

	my ( $class, %args ) = @_; 

	my $self = {}; 
	bless $self, $class;

	defined $args{dn}
		? $self->{dn} = $args{dn}
		: croak 'dn not defined';

	defined $args{ucs}
		? weaken($self->{ucs} = $args{ucs})
		: croak 'dn not defined';

	my %attr = %{ $self->{ucs}->resolve_dn(
				dn => $self->{dn}
			)->{outConfig}->{mgmtEntity} };

	while ( my ($k, $v) = each %attr ) { $self->{$k} = $v }

	return $self
}

lib/Cisco/UCS/ServiceProfile.pm  view on Meta::CPAN

package Cisco::UCS::ServiceProfile;

use warnings;
use strict;

use Carp 		qw(croak);
use Scalar::Util 	qw(weaken);

our $VERSION = '0.51';

our @ATTRIBUTES	= qw(dn name owner pnDn type uuid);

our %ATTRIBUTES = (
	 agent_policy_name              => 'agentPolicyName',
	 assign_state                   => 'assignState',
	 assoc_state                    => 'assocState',
	 bios_profile_name              => 'biosProfileName',

lib/Cisco/UCS/ServiceProfile.pm  view on Meta::CPAN

	my ( $class, %args ) = @_;

	my $self = {};
	bless $self, $class;

	defined $args{dn}
		? $self->{dn} = $args{dn}
		: croak 'dn not defined';

	defined $args{ucs}
		? weaken( $self->{ucs} = $args{ucs} )
		: croak 'dn not defined';

	my %attr = %{ $self->{ucs}->resolve_dn(
				dn => $self->{dn}
			)->{outConfig}->{lsServer} };
	
	while ( my ($k, $v) = each %attr ) { $self->{$k} = $v }

	return $self
}