getusers.pl
Copying Source is Forbidden
82 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 Bc_chef qw(cookie_get);
13
use Bc_misc qw(get_param);
14
use Bc_sql qw(
15
get_constant
16
sql_execute
17
user_exists
18
$QUERY_PAGE
19
$QUERY_UID
20
$LOGGEDIN
21
get_users_forDropdowns
22
get_debug_users
23
24
$DB
25
);
26
27
use Redir qw(error_redir);
28
use Security qw(banned);
29
use User qw(isUserAdmin get_user_stat $USER_DATA);
30
use Html qw(pre_html_header);
31
32
my $DEBUG = 0;
33
my $INCLUDEBANNED = 0;
34
35
if (not user_exists($LOGGEDIN) or banned($LOGGEDIN) and not isUserModerator()) {
36
my $msg = "Access Denied";
37
if ($DEBUG) { $msg .= " (getusers.pl)"; }
38
print error_redir("/", $msg);
39
40
exit 1;
41
}
42
43
my $admins = get_param("a");
44
my $ordered = get_param("o");
45
my $start = get_param("s");
46
my $selected = get_param("sel");
47
my $highlight = get_param("hi");
48
49
my @users = get_users_forDropdowns($admins, $ordered, $LOGGEDIN, $INCLUDEBANNED, $start);
50
51
if ($DEBUG) {
52
print pre_html_header();
53
} else {
54
print pre_html_header({type=>"text/plain"});
55
}
56
my $rv = ""; #"$admins=$admins-----$ordered=$ordered-----";
57
58
if ($DEBUG) {
59
$rv .= "<b>" . @users . "</b> users<br>\n";
60
}
61
62
my @highlight_users = ();
63
64
foreach my $u (@users) {
65
# $u = "123ABC=Nick"
66
if ($highlight eq "debug_users") {
67
@highlight_users = get_debug_users();
68
foreach my $hu (@highlight_users) {
69
my ($uid, $nick) = split("=", $u);
70
if ($hu eq $uid) {
71
$u = "*" . $u; # *123ABC=Nick
72
}
73
}
74
}
75
76
$rv .= "$u" . "-----"; # 123ABC=Bob-----......=......-----
77
}
78
$rv =~ s/-----$//; # remove trailing -----
79
80
print $rv;
81
82
exit 1;