From: Jan Michel Date: Mon, 15 Dec 2014 18:27:42 +0000 (+0100) Subject: error? X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=9617046c7e57c1e2c2c2130d5e638909c3bd056f;p=trb3web.git error? --- diff --git a/index.pl b/index.pl index b4b5290..41d0b15 100755 --- a/index.pl +++ b/index.pl @@ -1,9 +1,11 @@ #!/usr/bin/perl -w +print "Content-type: text/html\n\n"; + use strict; use warnings; use CGI::Carp qw(fatalsToBrowser); use frame; -print "Content-type: text/html\n\n"; + my $file = $ENV{'QUERY_STRING'}; $file = "main" unless (defined $file && $file =~ /^\w+$/ && -e "$file.htm");