X-Git-Url: https://git.sesse.net/?p=ccbs;a=blobdiff_plain;f=html%2Fccbs.pm;h=21a19a80216fd4a5246d5975db7ccacdf292961b;hp=7d5f90dd0a4abf827367ca7d164ed232f0be6060;hb=06e66c13cdac696e02006b40681cbcf681704670;hpb=35f6e765d69f966c8b4abc84f25bb0bfa3df9853 diff --git a/html/ccbs.pm b/html/ccbs.pm index 7d5f90d..21a19a8 100755 --- a/html/ccbs.pm +++ b/html/ccbs.pm @@ -2,6 +2,7 @@ package ccbs; use Template; use CGI; use DBI; +use HTML::Entities; use strict; use warnings; @@ -21,7 +22,7 @@ sub print_see_other { sub db_connect { $ccbs_dbdebug = defined(shift) ? 1 : 0; - my $dbh = DBI->connect("dbi:Pg:dbname=ccbs;host=sql.samfundet.no", "ccbs", "GeT|>>B_") + my $dbh = DBI->connect("dbi:Pg:dbname=ccbs;host=altersex.samfundet.no", "ccbs", "GeT|>>B_") or die "Couldn't connect to database"; $dbh->{RaiseError} = 1; return $dbh; @@ -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;