Beta Shell v2.0

File Manager

~ /usr/share/perl5/vendor_perl/VM/EC2/Instance

Name	Size	Perms	Modified	Actions
[ .. / .. ]
ConsoleOutput.pm	2 KB	-rw-r--r--	2020-08-21 11:10:19	Edit Del
IamProfile.pm	1.41 KB	-rw-r--r--	2020-08-21 11:10:19	Edit Del
Metadata.pm	13.54 KB	-rw-r--r--	2020-08-21 11:10:19	Edit Del
MonitoringState.pm	2.13 KB	-rw-r--r--	2020-08-21 11:10:19	Edit Del
PasswordData.pm	1.7 KB	-rw-r--r--	2020-08-21 11:10:19	Edit Del
Placement.pm	1.48 KB	-rw-r--r--	2020-08-21 11:10:19	Edit Del
Set.pm	2.26 KB	-rw-r--r--	2020-08-21 11:10:19	Edit Del
State	-	drwxr-xr-x	2022-02-23 11:28:23	Del
State.pm	2.13 KB	-rw-r--r--	2020-08-21 11:10:19	Edit Del
Status	-	drwxr-xr-x	2022-02-23 11:28:23	Del
Status.pm	1.9 KB	-rw-r--r--	2020-08-21 11:10:19	Edit Del
StatusItem.pm	3.85 KB	-rw-r--r--	2020-08-21 11:10:19	Edit Del

Editing: StatusItem.pm (3.85 KB)

package VM::EC2::Instance::StatusItem;

=head1 NAME

VM::EC2::Instance::StatusItem - Object describing a instance status event

=head1 SYNOPSIS

 @status_items = $ec2->describe_instance_status();
 for my $i (@status_items) {
    print $i->instance_id,
           ': instance check=',$i->instance_status,
           ', system check=',$i->system_status,"\n";
    if (my $e = $i->events) {
       print $i->instance_id,' event = ',$e;
    }
 }

=head1 DESCRIPTION

This object represents an instance status returned by
$ec2->describe_instance_status().

=head1 METHODS

These object methods are supported:

 instanceId            -- The ID of the affected instance.
 instance              -- The VM::EC2::Instance object
 availabilityZone      -- The availability zone of this instance.
 events                -- A list of VM::EC2::Instance::Status::Event objects
                           representing a scheduled maintenance events on this
                           instance (see note).
 instanceState         -- The state of this instance (e.g. "running")
 systemStatus          -- A VM::EC2::Instance::Status object indicating the
                            status of the system check.
 instanceStatus        -- A VM::EC2::Instance::Status object indicating the
                            status of the instance availability check.

NOTE: There is an inconsistency in the AWS documentation for this data
type. The events field is documented as being a list, but the examples
shown return a single object. At release time, I was unable to verify
which is correct and have written the code such that it will always
return a list, which may be single elementin length.

In a string context, this object will interpolate as:

 "$instanceId: XX/2 tests passed"

where XX is the number of checks that passed.

In the case of an instance that is not running, the interpolation will be:

 "$instanceId: $state"

Where $state is the state of the instance (e.g. "stopped").

=head1 SEE ALSO

L<VM::EC2>
L<VM::EC2::Generic>
L<VM::EC2::Instance>
L<VM::EC2::Tag>

=head1 AUTHOR

Lincoln Stein E<lt>lincoln.stein@gmail.comE<gt>.

Copyright (c) 2012 Ontario Institute for Cancer Research

This package and its accompanying libraries is free software; you can
redistribute it and/or modify it under the terms of the GPL (either
version 1, or at your option, any later version) or the Artistic
License 2.0.  Refer to LICENSE for the full license text. In addition,
please see DISCLAIMER.txt for disclaimers of warranty.

=cut

use strict;
use base 'VM::EC2::Generic';
use VM::EC2::Instance::State;
use VM::EC2::Instance::Status;
use VM::EC2::Instance::Status::Event;

sub valid_fields {
    my $self = shift;
    return qw(instanceId availabilityZone eventsSet instanceState systemStatus instanceStatus);
}

sub events {
    my $self = shift;
    my $e    = $self->eventsSet or return;
    if (ref $e && $e->{item}) {
	return map {VM::EC2::Instance::Status::Event->new($_,$self->ec2)} @{$e->{item}};
    }  else {
	return VM::EC2::Instance::Status::Event->new($e,$self->ec2);
    }
}

sub instance {
    my $self = shift;
    return $self->ec2->describe_instances($self->instanceId);
}

sub instanceState {
    my $self = shift;
    my $s    = $self->SUPER::instanceState or return;
    return VM::EC2::Instance::State->new($s,$self->ec2);
}

sub systemStatus {
    my $self = shift;
    my $s    = $self->SUPER::systemStatus or return;
    return VM::EC2::Instance::Status->new($s,$self->ec2);
}

sub instanceStatus {
    my $self = shift;
    my $s    = $self->SUPER::systemStatus or return;
    return VM::EC2::Instance::Status->new($s,$self->ec2);
}

sub short_name {
    my $self = shift;
    my $instance = $self->instanceId;
    my $passed   = grep {$_ eq 'ok'} ($self->instanceStatus,$self->systemStatus);
    my $state    = $self->instance_state;
    return $state eq 'running' ? "$instance: $passed/2 checks passed" : "$instance: $state";
}


1;