edit_misc.pl
Copying Source is Forbidden
85 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 remove_param);
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_misc.pl)"; }
36
print error_redir("/", $msg);
37
38
exit 1;
39
}
40
41
my $output = "";
42
if ($DEBUG) { $output = pre_html_header() . header("edit misc", "", "", "", "", ""); }
43
44
############################################################
45
46
my $n = get_param("n");
47
my $t = get_param("t");
48
my $v = get_param("v");
49
my $r = remove_param("t", referrer());
50
51
if ($v) {
52
my $update = "update misc set value=" . $DB->quote($v) . " where name=" . $DB->quote_identifier($n);
53
54
if ($DEBUG) {
55
$output .= "referrer=" . referrer() . br;
56
$output .= "r=$r" . br;
57
$output .= "t=$t" . br;
58
$output .= "name=$n" . br;
59
$output .= "value=$v" . br;
60
$output .= "sql=$update" . br;
61
} else {
62
my $result = sql_execute($update);
63
if ($result) {
64
$output = notice_redir("$r&t=$t", "$n updated");
65
66
# end if ($result)
67
} else {
68
$output = notice_redir("$r&t=$t", "$n not updated");
69
70
# end else of if ($result)
71
}
72
}
73
74
# end if ($v)
75
} else {
76
$output = error_redir("$r&t=$t", "That didn't work!");
77
78
# end else of if ($v)
79
}
80
81
############################################################
82
83
print $output;
84
85
exit 1;