/usr/share/perl5/VM/EC2/Instance/StatusItem.pm is in libvm-ec2-perl 1.28-2build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 | 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;
|