sub db_connect {
$ccbs_dbdebug = defined(shift) ? 1 : 0;
- my $dbh = DBI->connect("dbi:Pg:dbname=ccbs;host=sql.samfundet.no", "ccbsmmeligaen", "Noohos8h")
+ my $dbh = DBI->connect("dbi:Pg:dbname=ccbs;host=sql.samfundet.no", "ccbs", "GeT|>>B_")
or die "Couldn't connect to database";
$dbh->{RaiseError} = 1;
return $dbh;
print $output;
}
+sub user_error {
+ my $msg = shift;
+
+ ccbs::print_header();
+ ccbs::process_template('user-error.tmpl', 'Feil',
+ { message => $msg });
+
+ exit;
+}
+
$SIG{__DIE__} = sub {
# Gosh! Net::Resolver::DNS is brain-damaged.
my $msg = shift;