From: Andreas Neiser Date: Tue, 21 Jan 2014 08:09:29 +0000 (+0100) Subject: Replacing header() call by plain string, more portable! X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=b1c09b371a7f0a1618651931f1c88506ae512614;p=daqtools.git Replacing header() call by plain string, more portable! --- diff --git a/web/htdocs/commands/get.pl b/web/htdocs/commands/get.pl index 962c9e7..b01ebe0 100755 --- 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 6e8c132..eb66371 100755 --- 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 930ed05..675dbe0 100755 --- 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 6080da8..c508b37 100755 --- 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 f60b504..091cd7c 100755 --- 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 f4e6559..2042275 100755 --- 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 f23d295..02560ce 100755 --- 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 33ebd91..7680a8c 100755 --- 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 50b9642..955082a 100755 --- 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 0b528d5..3b1422e 100755 --- 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 194ba2f..2173cc5 100755 --- 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 cb3e070..35a7e2b 100755 --- 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 9fa929f..88f04a7 100755 --- 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 71e48b1..50c6938 100755 --- 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 f4e8f23..aecdc89 100755 --- 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 0de51ed..a552bf3 100755 --- 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 '..';