--- web/cgi-bin/docs.cgi 2001/02/08 21:17:47 1.4 +++ web/cgi-bin/docs.cgi 2003/05/11 19:51:06 1.5.2.1 @@ -13,9 +13,9 @@ use CGI; $| = 1; # Settings -my ($left) = "../left.inc" ; -my ($title) = "../title.inc"; -my ($bottom) = "../bottom.inc"; +my ($left) = "../htdocs/left.inc" ; +my ($title) = "../htdocs/title.inc"; +my ($bottom) = "../htdocs/bottom.inc"; my ($query) = new CGI; @@ -34,10 +34,10 @@ unless (defined $doc) { # Prevent hackers from supplying a malformed document string. # I.e. only allow normal characters, slashes and dots. unless ($doc =~ /^[a-zA-Z_\-0-9\.\/]+$/) { - print "Go Away, you nasty hax0r!"; + print "Malformed request"; exit; } -$doc = "../documentation/".$doc; +$doc = "../htdocs/documentation/".$doc; print <<"END"; @@ -125,5 +125,5 @@ sub print_file ($) { # Print a file without escaping HTML: - sub print_html ($) { my ($filename) = @_; - print `cat $filename`; + print `cat $filename 2>&1`; }