/usr/local/CPAN/Nagios-Interface/Nagios/Interface/HostAlert.pm

• package Nagios::Interface::HostAlert
  • log_info_order
  • as_string
• EOF

package Nagios::Interface::HostAlert;
use Moose;
with 'Nagios::Interface::Alert::Host';

sub log_info_order {
	qw( host up soft count message );
}

sub as_string {
	my $self = shift;
	( "(".( $self->soft ? "soft" : "" )
	  ."#".$self->count.") "
	  ."Host ".$self->host." is "
	  .($self->up ? "up" : "down")
	  .": ".$self->message );
}

1;