From: Bill Erickson <berick@esilibrary.com>
Date: Tue, 7 Aug 2012 20:29:03 +0000 (-0400)
Subject: test validation script
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=95a52c0f6bdb83f7331bbb4bcab89e75fb224ef3;p=evergreen%2Fequinox.git

test validation script

Signed-off-by: Bill Erickson <berick@esilibrary.com>
---

diff --git a/validate.pl b/validate.pl
index 1df514b0bc..659525506d 100644
--- a/validate.pl
+++ b/validate.pl
@@ -5,23 +5,15 @@ my $work_urls = {
     'dev198.esilibrary.com' => [
         {path => '/eg/opac/record/61'}, # proto, etc.
         {path => '/eg/opac/record/62'}, 
-        {path => '/eg/opac/record/63'},
-        {path => '/eg/opac/record/64'},
-        {path => '/eg/opac/record/65'},
-        {path => '/eg/opac/record/66'},
-        {path => '/eg/opac/record/67'},
-        {path => '/eg/opac/record/68'},
-        {path => '/eg/opac/record/69'},
-        {path => '/eg/opac/record/60'},
-    ]
+    ], 
+    'foo.bar.zug.com' => [{path => '/1'}]
 };
 
 package URLHandler;
 use Net::HTTP::NB;
 use IO::Select;
 
-use overload 
-    '""' => sub {return $_[0]->{url}};
+use overload '""' => sub {return $_[0]->{url}};
 
 sub new {
     my ($class, $args) = @_;
@@ -65,9 +57,12 @@ sub url {
 
 sub process_response {
     my $self = shift;
-    my ($code) = $self->{request}->read_response_headers;
+    my ($code, $msg, %headers) = $self->{request}->read_response_headers;
 
     print "code = $code; url = " . $self->{url} . "\n";
+    print "msg = $msg\n";
+    use Data::Dumper;
+    print Dumper(\%headers);
 
     if ($code eq '200') {