#!/usr/local/bin/perl

# must have's!

use strict;

use warnings;

use CGI::Carp qw(fatalsToBrowser);

use DBI;

use URI::Escape;

use Html qw(pre_html_header);

use Bc_chef qw(cookie_get);

use Bc_misc qw(get_param);

use Bc_sql qw(

              get_constant

              sql_execute

              user_exists

              $QUERY_PAGE

              $QUERY_UID

              $LOGGEDIN

              $DB

             );

use Security qw(banned);

my $DEBUG = 0;

if (not user_exists($LOGGEDIN) or

    banned($LOGGEDIN) or

    not isUserAdmin($LOGGEDIN)) {

  my $msg =  "Access Denied";

  if ($DEBUG) { $msg .= " (nickname_description.pl)"; }

  print error_redir("/", $msg);

  exit 1;

}

my $output = pre_html_header(); # this is JUST a placeholder

############################################################

############################################################

print $output;

exit 1;