changed http header for pwr on httpi

diff --git a/web/htdocs/tools/pwr/pwr.pl b/web/htdocs/tools/pwr/pwr.pl
index ac0f4ebd7a165702b7d4e3228e08e5a0c92772ad..b85167d7cb93fdafac50b54aafc093a555cb55c3 100755 (executable)
--- a/web/htdocs/tools/pwr/pwr.pl
+++ b/web/htdocs/tools/pwr/pwr.pl
@@ -1,4 +1,7 @@
 #!/usr/bin/perl -w
+if ($ENV{'SERVER_SOFTWARE'} =~ /HTTPi/i) {
+  &htsponse(200, "OK");
+  }
 print "Content-type: text/html\n\n";