Promoted probe() method to parent class

cosimo · Feb 2, 2012 · 4ca55a8 · 4ca55a8
1 parent 3920313
commit 4ca55a8
Showing 1 changed file with 1 addition and 68 deletions.
diff --git a/lib/Net/Prober/http.pm b/lib/Net/Prober/http.pm
@@ -1,76 +1,9 @@
-package Net::Prober::ping;
+package Net::Prober::http;
 
 use strict;
 use warnings;
 use base 'Net::Prober::Probe::HTTP';
 
-use Carp ();
-use Digest::MD5 ();
-
-sub probe {
-    my ($self, $args) = @_;
-
-    my ($host, $port, $timeout, $proto, $url, $expected_md5, $content_match) =
-        $self->parse_args($args, qw(host port timeout proto url md5 match));
-
-    if ($proto eq 'http') {
-        $port ||= 80;
-    }
-    elsif ($proto eq 'https') {
-        $port ||= 443;
-    }
-
-    $url =~ s{^/+}{};
-
-    my $scheme = $port == 443 ? "https" : "http";
-    my $probe_url = "$scheme://$host:$port/$url";
-
-    $self->time_now();
-
-    my $ua = $self->agent();
-    my $resp = $ua->get($probe_url);
-    my $elapsed = $self->time_elapsed();
-    my $content = $resp->content();
-    my $good = $resp->is_redirect() || $resp->is_success();
-
-    if ($good and defined $expected_md5) {
-        my $md5 = Digest::MD5::md5_hex($content);
-        if ($md5 ne $expected_md5) {
-            $good = 0;
-        }
-    }
-
-    if ($good and defined $content_match) {
-        my $match_re;
-        eval {
-            $match_re = qr{$content_match}ms;
-        } or do {
-            Carp::croak("Invalid regex for http content match '$content_match'\n");
-        };
-        if ($content !~ $match_re) {
-            $good = 0;
-        }
-    }
-
-    my %status = (
-        status => $resp->status_line,
-        content => $content,
-        elapsed => $elapsed,
-    );
-
-    my $md5 = $content
-        ? Digest::MD5::md5_hex($content)
-        : undef;
-
-    $status{md5} = $md5 if $md5;
-
-    if ($good) {
-        return $self->probe_ok(%status);
-    }
-
-    return $self->probe_failed(%status);
-}
-
 1;
 
 __END__