use warnings;
our $ccbs_dbdebug = 0;
+
+# Set this flag to disable any admin tasks -- it's quite crude, but hey :-)
+our $ccbs_noadmin = 0;
sub print_header {
print CGI::header(-type=>'text/html; charset=utf-8');
my ($page, $title, $vars) = @_;
$vars->{'page'} = $page;
$vars->{'title'} = $title;
+ $vars->{'public'} = $ccbs_noadmin;
my $config = {
INCLUDE_PATH => 'templates/',
exit;
}
+sub admin_only {
+ user_error("Beklager, databasen står i no-admin-mode.") if ($ccbs_noadmin);
+}
$SIG{__DIE__} = sub {
# Gosh! Net::Resolver::DNS is brain-damaged.