perl/modules/W3C/LinkChecker/bin checklink,4.96,4.97

Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv23833

Modified Files:
	checklink 
Log Message:
Mimic LWP by setting the "Client-Warning: Internal response" to "IP disallowed" internal responses.

Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.96
retrieving revision 4.97
diff -u -d -r4.96 -r4.97
--- checklink	14 Feb 2008 23:45:38 -0000	4.96
+++ checklink	14 Feb 2008 23:56:42 -0000	4.97
@@ -159,6 +159,7 @@
   if ($iptype && $iptype ne 'PUBLIC') {
     $resp = HTTP::Response->new(403,
     'Checking non-public IP address disallowed by link checker configuration');
+    $resp->header('Client-Warning', 'Internal response');
   }
   return $resp;
 }

Received on Thursday, 14 February 2008 23:57:00 UTC