edit_defstats.pl
Copying Source is Forbidden
78 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 Html2 qw(hr br embolden);
14
use Bc_chef qw(cookie_get);
15
use Bc_misc qw(get_param referrer);
16
use Bc_sql qw(
17
get_constant
18
sql_execute
19
user_exists
20
$QUERY_PAGE
21
$QUERY_UID
22
$LOGGEDIN
23
24
$DB
25
);
26
27
use User qw(isUserAdmin $USER_DATA);
28
use Redir qw(error_redir notice_redir);
29
use Security qw(banned);
30
31
my $DEBUG = 0;
32
33
if (not user_exists($LOGGEDIN) or banned($LOGGEDIN) or not isUserAdmin($LOGGEDIN)) {
34
my $msg = "Access Denied";
35
if ($DEBUG) { $msg .= " (edit_defstats.pl)"; }
36
print error_redir("/", $msg);
37
38
exit 1;
39
}
40
41
my $output = "";
42
if ($DEBUG) { $output = pre_html_header() . header("edit default stats", "", "", "", "", ""); }
43
44
############################################################
45
46
my $v = get_param("v");
47
48
if ($v) {
49
my $update = "update defaults set value=" . $DB->quote($v) . " where name='STATS'";
50
51
if ($DEBUG) {
52
$output .= "value=$v" . br;
53
$output .= "sql=$update" . br;
54
} else {
55
my $result = sql_execute($update, "edit defstats.pl");
56
if ($result) {
57
$output = notice_redir(referrer(), "default stats updated");
58
59
# end if ($result)
60
} else {
61
$output = notice_redir(referrer(), "default stats not updated");
62
63
# end else of if ($result)
64
}
65
}
66
67
# end if ($v)
68
} else {
69
$output = error_redir(referrer(), "gotta give me somethin to work with, buddy!");
70
71
# end else of if ($v)
72
}
73
74
############################################################
75
76
print $output;
77
78
exit 1;