Changeset 21462 for lang/perl/App-MadEye

Timestamp:

10/17/08 08:39:13 (3 months ago)

Author:

tokuhirom

Message:

check part of content

Files:

• lang/perl/App-MadEye/trunk/lib/App/MadEye/Plugin/Agent/HTTP.pm (modified) (2 diffs)

lang/perl/App-MadEye/trunk/lib/App/MadEye/Plugin/Agent/HTTP.pm

@@ -17 +17 @@
 
     if ($res->code == 200) {
-        return 0;
+        if (my $part = $self->config->{config}->{part}) {
+            if (index($res->content, $part) >= 0) {
+                return; # ok
+            } else {
+                return "contents does not contain $part";
+            }
+        } else {
+            return 0;
+        }
     } else {
         return join( "\n", $res->code, $res->message, $res->content );
@@ -47 +55 @@
             required: no
             type: str
+        part:
+            required: no
+            type: str
 
 =head1 AUTHOR