new_random_user.pl
Copying Source is Forbidden
59 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 Redir qw(notice_redir error_redir);
14
use Bc_chef qw(cookie_get);
15
use Bc_misc qw(get_param referrer commafied);
16
use Bc_sql qw(
17
get_constant
18
sql_execute
19
user_exists
20
$QUERY_PAGE
21
$QUERY_UID
22
$LOGGEDIN
23
sql_create_random_user_updated
24
25
$DB
26
);
27
use Security qw(banned);
28
use User qw(isUserAdmin $USER_DATA);
29
30
my $DEBUG = 1;
31
if (not user_exists($LOGGEDIN) or
32
banned($LOGGEDIN) or
33
not isUserAdmin($LOGGEDIN)) {
34
my $msg = "Access Denied";
35
if ($DEBUG) { $msg .= " (new_random_user.pl)"; }
36
print error_redir("/", $msg);
37
38
exit 1;
39
}
40
41
my $output = error_redir(referrer(), "creation of random user(s) failed!");
42
43
my $c = get_param("c");
44
if ($c < 1) { $c = 1; }
45
46
my $added = sql_create_random_user_updated($c);
47
48
if ($added) {
49
if ($DEBUG) {
50
$output = pre_html_header() . header("generated random test user(s)", "", "", "", "generates random test users", "");
51
$output .= "you added <b>" . commafied($added) . "</b> user(s)<br>";
52
} else {
53
$output = notice_redir(referrer(), "<b>$added</b> random user(s) created!");
54
}
55
}
56
57
print $output;
58
59
exit 1;