get_users_forDropdowns.pl
Copying Source is Forbidden
55 lines of code
1
#!/usr/local/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 "/var/www/html/Pm";
11
12
use Html qw(pre_html_header header);
13
use Bc_chef qw(cookie_get);
14
use Bc_misc qw(get_param);
15
use Bc_sql qw(
16
get_constant
17
sql_execute
18
user_exists
19
$QUERY_PAGE
20
$QUERY_UID
21
$LOGGEDIN
22
23
$DB
24
);
25
26
use Security qw(banned);
27
28
my $DEBUG = 0;
29
30
my $output;
31
32
if (not user_exists($LOGGEDIN) or banned($LOGGEDIN)) {
33
my $msg = "Access Denied";
34
if ($DEBUG) { $msg .= " (TEMPLATE.pl)"; }
35
$output = error_redir("/", $msg);
36
} else {
37
############################################################
38
39
### YOUR CONTENT HERE
40
$output = pre_html_header() . header("tits are ok", "", "", "", "pussy is GREAT!", "");
41
$output .= <<END;
42
<select id=users>
43
</select>
44
45
<script async>get_users_forDropdowns("users");</script>
46
</body>
47
</html>
48
END
49
50
############################################################
51
}
52
53
print $output;
54
55
exit 1;