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;
my $scoringsystem = $cgi->param('scoringsystem');
if ($date !~ /^ ( \d{4} - \d\d - \d\d ) $/x) {
- die "Ugyldig dato (må være på YYYY-MM-DD)";
+ ccbs::user_error("Ugyldig dato (må være på YYYY-MM-DD).");
}
$dbh->do('INSERT INTO tournaments (season, tournamentname, country, location, date, machine, scoringsystem) VALUES (?,?,?,?,?,?,?)',
--- /dev/null
+[%# vim:set filetype=html: %]
+<div>
+ <p>Beklager, det oppsto et problem ved behandlingen av forespørselen din:</p>
+
+ <p><strong>[% message %]</strong></p>
+
+ <p>Vennligst gå tilbake og prøv igjen.</p>
+</div>