#!/usr/local/bin/perl

binmode(STDIN, ":utf8");

binmode(STDOUT, ":utf8");

# must have's!

use strict;

use warnings;

use CGI::Carp qw(fatalsToBrowser);

use DBI;

use URI::Escape;

use lib "/var/www/html/Pm";

use Html qw(pre_html_header header);

use Bc_chef qw(cookie_get);

use Bc_misc qw(get_param referrer new_id);

use Bc_sql qw(

              get_constant

              sql_execute

              user_exists

              $QUERY_PAGE

              $QUERY_UID

              $LOGGEDIN

              $DB

             );

use Security qw(banned);

use Redir qw(error_redir notice_redir);

my $DEBUG = 0;

my $output;

if (not user_exists($LOGGEDIN) or banned($LOGGEDIN)) {

  my $msg =  "Access Denied";

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

  $output = error_redir("/", $msg);

} else {

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

  ### YOUR CONTENT HERE

  my $numchars = get_param("l");

  if (not $numchars) { $numchars = 10; }

  $output = pre_html_header({type => "text/plain"});

  $output .= new_id($numchars, 1, 1, 1);

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

}

print $output;

exit 1;