edit_default.pl
Copying Source is Forbidden
92 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 add_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 = 1;
32
33
if (not user_exists($LOGGEDIN) or banned($LOGGEDIN) or not isUserAdmin($LOGGEDIN)) {
34
my $msg = "Access Denied";
35
if ($DEBUG) { $msg .= " (edit_default.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 value", "", "", "", "", ""); }
43
44
############################################################
45
46
my $n = get_param("n"); # name of default to edit
47
my $t = get_param("t"); # "tab"
48
my $v = get_param("v"); # value of default
49
my $r = add_param("t", $t, referrer());
50
51
if ($v and $n) {
52
my $update = "update defaults 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 .= "n=$n" . br;
58
$output .= "v=$v" . br;
59
$output .= "sql=$update" . br;
60
} else {
61
my $result = sql_execute($update);
62
if ($result) {
63
$output = notice_redir($r, "$n updated");
64
65
# end if ($result)
66
} else {
67
$output = notice_redir($r, "$n stats not updated");
68
69
# end else of if ($result)
70
}
71
}
72
73
# end if ($v and $n)
74
} else {
75
if ($DEBUG) {
76
$output .= "referrer=" . referrer() . br;
77
$output .= "r=$r" . br;
78
$output .= "n=$n" . br;
79
$output .= "v=$v" . br . br;
80
$output .= "That didn't work!" . br;
81
} else {
82
$output = error_redir($r, "That didn't work!");
83
}
84
85
# end else of if ($v)
86
}
87
88
############################################################
89
90
print $output;
91
92
exit 1;