bad.pl
30 lines of code
1
##!/usr/bin/perl
2
3
# must have's!
4
use strict;
5
use warnings;
6
use CGI::Carp qw(fatalsToBrowser);
7
use DBI;
8
use URI::Escape;
9
10
use lib "./Pm";
11
12
use Html qw(pre_html_header);
13
use Bc_chef qw(cookie_get);
14
use Bc_misc qw(get_param);
15
use Bc_sql qw(sql_execute
16
              get_constant
17
              $QUERY_PAGE
18
              $QUERY_UID
19
              $LOGGEDIN
20
21
              $DB
22
             );
23
24
my $DEBUG = 0;
25
26
my $output = pre_html_header(); # this is JUST a placeholder
27
28
print $output;
29
30
exit 1;