Add form (no backend yet) for registering new players.
[ccbs] / html / ccbs.pm
index f09996a..faaae89 100755 (executable)
@@ -2,13 +2,14 @@ package ccbs;
 use Template;
 use CGI;
 use DBI;
+use HTML::Entities;
 use strict;
 use warnings;
 
 our $ccbs_dbdebug = 0;
        
 sub print_header {
-       print CGI::header(-type=>'application/xhtml+xml; charset=utf-8');
+       print CGI::header(-type=>'text/html; charset=utf-8');
 }
 sub print_see_other {
        my $location = shift;
@@ -92,7 +93,7 @@ $SIG{__DIE__} = sub {
 
        ccbs::print_header();
        ccbs::process_template('error.tmpl', 'Internal Server Error',
-               { message => $msg });
+               { message => HTML::Entities::encode_entities($msg) });
 };
 
 1;