#!/usr/bin/perl

use strict;
use warnings;
use Net::Ping;
use CGI qw/:standard/;

my @hosts= -e 'ship.cfg' ? do {
    open my $cfgfile, '<', 'ship.cfg' 
      or die $!;
    map {chomp; $_ } <$cfgfile>;
} : qw/host1 host2 host3/;  # defaults

my (@up, @down);
my $p=Net::Ping->new('udp');
push @{ $p->ping($_) ? \@up : \@down }, $_ for @hosts;
$p->close();

print header, start_html, 
  start_form, submit 'Refresh';
    
my @verbage=qw/are hosts are hosts/;
@verbage[0,1]=qw/is host/ if @up == 1;
@verbage[2,3]=qw/is host/ if @down == 1;
    
print p, "There $verbage[2] ",
  (scalar @down),
  " $verbage[3] down" unless @down;

print p, "There $verbage[0] ",
  (scalar @up),
  " $verbage[1] alive" unless @up;

if (@up) {
    print p, "The following $verbage[1] $verbage[0] alive:\n", br;
    print li($_) for sort @up;
}

if (@down) {
    print p, "The following $verbage[3] $verbage[2] down:\n", br;
    print li($_) for sort @down;
}

__END__