Replacing header() call by plain string, more portable!

diff --git a/web/htdocs/commands/get.pl b/web/htdocs/commands/get.pl
index 962c9e7c7e58e61b81a038af37a8748953ee18d2..b01ebe002cb823f24e2572b718e63e9f78855e92 100755 (executable)
--- a/web/htdocs/commands/get.pl
+++ b/web/htdocs/commands/get.pl
@@ -4,7 +4,7 @@ use HADES::TrbNet;
 use Data::Dumper;
 if ($ENV{'SERVER_SOFTWARE'} =~ /HTTPi/i) {
   print "HTTP/1.0 200 OK\n";
-  print header("text/html");
+  print "Content-type: text/html\r\n\r\n";
   }
 else {
   use lib '..';

diff --git a/web/htdocs/commands/getmultreg.pl b/web/htdocs/commands/getmultreg.pl
index 6e8c1324f83cc9710c3e0f49831c555d30b2716a..eb663713ea747d4cbec3162f0caffc682240f236 100755 (executable)
--- a/web/htdocs/commands/getmultreg.pl
+++ b/web/htdocs/commands/getmultreg.pl
@@ -3,7 +3,7 @@ use HADES::TrbNet;
 use Data::Dumper;
 if ($ENV{'SERVER_SOFTWARE'} =~ /HTTPi/i) {
   print "HTTP/1.0 200 OK\n";
-  print header("text/html");
+  print "Content-type: text/html\r\n\r\n";
   }
 else {
   use lib '..';

diff --git a/web/htdocs/commands/getpadiwa.pl b/web/htdocs/commands/getpadiwa.pl
index 930ed05aac281ef5fa1e524c1c6960d386633a61..675dbe0843b6d98327ae1fc262e23bcba09c9ab6 100755 (executable)
--- a/web/htdocs/commands/getpadiwa.pl
+++ b/web/htdocs/commands/getpadiwa.pl
@@ -3,7 +3,7 @@ use HADES::TrbNet;
 use Data::Dumper;
 if ($ENV{'SERVER_SOFTWARE'} =~ /HTTPi/i) {
   print "HTTP/1.0 200 OK\n";
-  print header("text/html");
+  print "Content-type: text/html\r\n\r\n";
   }
 else {
   use lib '..';

diff --git a/web/htdocs/commands/nettrace.pl b/web/htdocs/commands/nettrace.pl
index 6080da892b98812ed0b97e346d7c3e50f3fa1111..c508b375ef1a4408f07ebae9eb9665949cec05c2 100755 (executable)
--- a/web/htdocs/commands/nettrace.pl
+++ b/web/htdocs/commands/nettrace.pl
@@ -4,7 +4,7 @@ use HADES::TrbNet;
 use Data::Dumper;
 if ($ENV{'SERVER_SOFTWARE'} =~ /HTTPi/i) {
   print "HTTP/1.0 200 OK\n";
-  print header("text/html");
+  print "Content-type: text/html\r\n\r\n";
   }
 else {
   use lib '..';

diff --git a/web/htdocs/commands/put.pl b/web/htdocs/commands/put.pl
index f60b50487bb4524d67a1083b422807847b6309e5..091cd7c08dd73255cea57ec5202793af713c7321 100755 (executable)
--- a/web/htdocs/commands/put.pl
+++ b/web/htdocs/commands/put.pl
@@ -3,7 +3,7 @@ use HADES::TrbNet;
 use Data::Dumper;
 if ($ENV{'SERVER_SOFTWARE'} =~ /HTTPi/i) {
   print "HTTP/1.0 200 OK\n";
-  print header("text/html");
+  print "Content-type: text/html\r\n\r\n";
   }
 else {
   use lib '..';

diff --git a/web/htdocs/commands/putbit.pl b/web/htdocs/commands/putbit.pl
index f4e65593694d0bfeb7f7d568c34381a7d58873b0..20422757a428a2538a92ee3160bf8942eb62b322 100755 (executable)
--- a/web/htdocs/commands/putbit.pl
+++ b/web/htdocs/commands/putbit.pl
@@ -3,7 +3,7 @@ use HADES::TrbNet;
 use Data::Dumper;
 if ($ENV{'SERVER_SOFTWARE'} =~ /HTTPi/i) {
   print "HTTP/1.0 200 OK\n";
-  print header("text/html");
+  print "Content-type: text/html\r\n\r\n";
   }
 else {
   use lib '..';

diff --git a/web/htdocs/commands/spiexec.pl b/web/htdocs/commands/spiexec.pl
index f23d295edf77c4d39ea9858608b372e9130e2f63..02560ce21197c3ff6a786c53aea89f2c3e40ca03 100755 (executable)
--- a/web/htdocs/commands/spiexec.pl
+++ b/web/htdocs/commands/spiexec.pl
@@ -3,7 +3,7 @@ use HADES::TrbNet;
 use Data::Dumper;
 if ($ENV{'SERVER_SOFTWARE'} =~ /HTTPi/i) {
   print "HTTP/1.0 200 OK\n";
-  print header("text/html");
+  print "Content-type: text/html\r\n\r\n";
   }
 else {
   use lib '..';

diff --git a/web/htdocs/index.pl b/web/htdocs/index.pl
index 33ebd91b92775ad30a707fc28ae27007b053ba00..7680a8caa268ec4bddf8ce452690f4822bb418b3 100755 (executable)
--- a/web/htdocs/index.pl
+++ b/web/htdocs/index.pl
@@ -2,7 +2,7 @@
 use CGI::Carp qw(warningsToBrowser fatalsToBrowser); 
 if ($ENV{'SERVER_SOFTWARE'} =~ /HTTPi/i) {
   print "HTTP/1.0 200 OK\n";
-  print header("text/html");
+  print "Content-type: text/html\r\n\r\n";
   }
 else {
   print "Content-type: text/html\n\n";

diff --git a/web/htdocs/mvd/cb_controller.pl b/web/htdocs/mvd/cb_controller.pl
index 50b96424a4c9ee08ace00c3f1eb1f48797c4d8ba..955082a30585cb4fcbaca0f90c0e3ecddbe9e07b 100755 (executable)
--- a/web/htdocs/mvd/cb_controller.pl
+++ b/web/htdocs/mvd/cb_controller.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 if ($ENV{'SERVER_SOFTWARE'} =~ /HTTPi/i) {
   print "HTTP/1.0 200 OK\n";
-  print header("text/html");
+  print "Content-type: text/html\r\n\r\n";
   }
 else {
   use lib '..';

diff --git a/web/htdocs/mvd/jtag.pl b/web/htdocs/mvd/jtag.pl
index 0b528d5e57f0911db66c10f082877de90667e7df..3b1422e06720e95585ffd74a69d7f0320d445e35 100755 (executable)
--- a/web/htdocs/mvd/jtag.pl
+++ b/web/htdocs/mvd/jtag.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 if ($ENV{'SERVER_SOFTWARE'} =~ /HTTPi/i) {
   print "HTTP/1.0 200 OK\n";
-  print header("text/html");
+  print "Content-type: text/html\r\n\r\n";
   }
 else {
   use lib '..';

diff --git a/web/htdocs/mvd/roc.pl b/web/htdocs/mvd/roc.pl
index 194ba2f8448ef46587da3926a526420b0de44e7f..2173cc5a2129cc70396ea26af3b5aa7ad096955b 100755 (executable)
--- a/web/htdocs/mvd/roc.pl
+++ b/web/htdocs/mvd/roc.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 if ($ENV{'SERVER_SOFTWARE'} =~ /HTTPi/i) {
   print "HTTP/1.0 200 OK\n";
-  print header("text/html");
+  print "Content-type: text/html\r\n\r\n";
   }
 else {
   use lib '..';

diff --git a/web/htdocs/network/generic.pl b/web/htdocs/network/generic.pl
index cb3e0706c216b43bf0aa390008e217c9a40770e2..35a7e2ba6a8cf48d6ba1dc7ffd6f502ec98e48a7 100755 (executable)
--- a/web/htdocs/network/generic.pl
+++ b/web/htdocs/network/generic.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 if ($ENV{'SERVER_SOFTWARE'} =~ /HTTPi/i) {
   print "HTTP/1.0 200 OK\n";
-  print header("text/html");
+  print "Content-type: text/html\r\n\r\n";
   }
 else {
   use lib '..';

diff --git a/web/htdocs/network/hub.pl b/web/htdocs/network/hub.pl
index 9fa929f25311471dd713da688909d0b2d00dcf39..88f04a753d9c22ffdabf4e77796c3bad48731ff3 100755 (executable)
--- a/web/htdocs/network/hub.pl
+++ b/web/htdocs/network/hub.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 if ($ENV{'SERVER_SOFTWARE'} =~ /HTTPi/i) {
   print "HTTP/1.0 200 OK\n";
-  print header("text/html");
+  print "Content-type: text/html\r\n\r\n";
   }
 else {
   use lib '..';

diff --git a/web/htdocs/network/trbnet.pl b/web/htdocs/network/trbnet.pl
index 71e48b1c0eabbf7a58ca1243458675f3a8d53f29..50c693815b436a6a46ddb56e0d5937a292116b31 100755 (executable)
--- a/web/htdocs/network/trbnet.pl
+++ b/web/htdocs/network/trbnet.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 if ($ENV{'SERVER_SOFTWARE'} =~ /HTTPi/i) {
   print "HTTP/1.0 200 OK\n";
-  print header("text/html");
+  print "Content-type: text/html\r\n\r\n";
   }
 else {
   use lib '..';

diff --git a/web/htdocs/nxyter/index.pl b/web/htdocs/nxyter/index.pl
index f4e8f23a5107aa7a677a5b28e52d8c512d965329..aecdc89bac84fea064f4061e1db68649b7349c2e 100755 (executable)
--- a/web/htdocs/nxyter/index.pl
+++ b/web/htdocs/nxyter/index.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 if ($ENV{'SERVER_SOFTWARE'} =~ /HTTPi/i) {
   print "HTTP/1.0 200 OK\n";
-  print header("text/html");
+  print "Content-type: text/html\r\n\r\n";
   }
 else {
   use lib '..';

diff --git a/web/htdocs/tdc/tdcstatctrl.pl b/web/htdocs/tdc/tdcstatctrl.pl
index 0de51eda401987f316e49de4e25fca1fa7451bd1..a552bf3ff3ff91a1db4a5eec454eb39134d9e304 100755 (executable)
--- a/web/htdocs/tdc/tdcstatctrl.pl
+++ b/web/htdocs/tdc/tdcstatctrl.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 if ($ENV{'SERVER_SOFTWARE'} =~ /HTTPi/i) {
   print "HTTP/1.0 200 OK\n";
-  print header("text/html");
+  print "Content-type: text/html\r\n\r\n";
   }
 else {
   use lib '..';