File Coverage

blib/lib/Watchdog/HTTP.pm

Criterion	Covered	Total	%
statement	4	6	66.6
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	6	8	75.0

package Watchdog::HTTP;

use strict;
use Alias;
use base qw(Watchdog::Base);
use HTTP::Request;
use LWP::UserAgent;
use vars qw($VERSION $HOST $PORT $FILE);

$VERSION = '0.02';

=head1 NAME

Watchdog::HTTP - Test status of HTTP service

=head1 SYNOPSIS

  use Watchdog::HTTP;
  $h = new Watchdog::HTTP($name,$host,$port,$file);
  print $h->id, $h->is_alive ? ' is alive' : ' is dead', "\n";

=head1 DESCRIPTION

B is an extension for monitoring an HTTP server.

=cut

my($name,$port,$file) = ('httpd',80,'');

=head1 CLASS METHODS

=head2 new($name,$host,$port,$file)

Returns a new B object.  I<$name> is a string which
will identify the service to a human (default is 'httpd').  I<$host>
is the hostname which is running the service (default is 'localhost').
I<$port> is the port on which the service listens (default is 80).

=cut

sub new($$$) {
  my $proto = shift;
  my $class = ref($proto) || $proto;
  $_[0] = $name unless defined($_[0]);
  $_[2] = $port unless defined($_[2]);
  my $self  = bless($class->SUPER::new(@_),$class);
  return $self;
}

#------------------------------------------------------------------------------

=head1 OBJECT METHODS

=head2 is_alive()

Returns true if an HTTP B method succeeds for the URL
B or false if it doesn't.

=cut

sub is_alive() {
  my $self = attr shift;
  my $request  = new HTTP::Request(GET => "http://$HOST:$PORT/$FILE");
  my $ua       = new LWP::UserAgent;
  my $response = $ua->request($request);
  return $response->is_success ? 1 : 0;
}

#------------------------------------------------------------------------------

=head1 SEE ALSO

L

=head1 AUTHOR

new Maintainer: Clemens Gesell [e-mail]

Paul Sharpe [e-mail]

=head1 COPYRIGHT

Copyright (c) 1998 Paul Sharpe. England.  All rights reserved.  This
program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

=cut