admin_update_homepage.pl
Copying Source is Forbidden
95 lines of code
1
#!/usr/local/bin/perl
2
3
binmode(STDIN, ":utf8");
4
binmode(STDOUT, ":utf8");
5
6
# must have's!
7
use strict;
8
use warnings;
9
use CGI::Carp qw(fatalsToBrowser);
10
use DBI;
11
use URI::Escape;
12
13
use lib "/var/www/html/Pm";
14
15
use Html qw(pre_html_header header display_debug_code display_debug_one);
16
use Html2 qw(tag br hr embolden italicize);
17
use Bc_chef qw(cookie_get);
18
use Bc_misc qw(get_param referrer get_param_unfiltered);
19
use Bc_sql qw(sql_execute
20
get_constant
21
user_exists
22
$QUERY_PAGE
23
$QUERY_UID
24
$LOGGEDIN
25
26
$DB
27
);
28
use Redir qw(notice_redir error_redir);
29
use User qw(isUserSuperAdmin $USER_DATA);
30
use Security qw(banned);
31
32
my $DEBUG = get_param("dce");
33
34
my $TABLE_NAME = "homepage";
35
if ($DEBUG) { $TABLE_NAME = "homepage_temp"; }
36
37
my $output;
38
39
if (not user_exists($LOGGEDIN) or banned($LOGGEDIN) or not isUserSuperAdmin($LOGGEDIN)) {
40
my $msg = "Access Denied";
41
if ($DEBUG) { $msg .= " (admin_update_homepage.pl)"; }
42
$output = error_redir("/", $msg);
43
} else {
44
############################################################
45
46
### YOUR CONTENT HERE
47
my $guest = get_param("guest", 0, 1);
48
my $loggedin = get_param("loggedin", 0, 1);
49
50
my $guest_sql = "update $TABLE_NAME set value=" . $DB->quote($guest) . " where name='GUEST'";
51
my $loggedin_sql = "update $TABLE_NAME set value=" . $DB->quote($loggedin) . " where name='LOGGEDIN'";
52
my $gresult = sql_execute($guest_sql, "admin update homepage.pl");
53
my $lresult = sql_execute($loggedin_sql, "admin update homepage.pl");
54
55
if ($DEBUG) {
56
$output = pre_html_header();
57
$output .= "DEBUG MODE ENABLED" . hr . br;
58
59
$output .= "sql for guest in $TABLE_NAME" . br;
60
{ my %ta;
61
$ta{tag} = "textarea";
62
$ta{cols} = 150;
63
$ta{rows} = 5;
64
$ta{innerHTML} = $guest_sql;
65
66
$output .= tag(\%ta) . br;
67
}
68
if ($gresult) { $output .= "yay!" . br; } else { $output .= "booo!" . br; }
69
$output .= br;
70
$output .= "sql for loggedin in $TABLE_NAME" . br;
71
{ my %ta;
72
$ta{tag} = "textarea";
73
$ta{cols} = 150;
74
$ta{rows} = 5;
75
$ta{innerHTML} = $loggedin_sql;
76
77
$output .= tag(\%ta) . br;
78
}
79
if ($lresult) { $output .= "yay!" . br; } else { $output .= "booo!" . br; }
80
} else {
81
my $r = referrer();
82
if (not $r) { $r = "/"; }
83
if ($gresult and $lresult) {
84
$output = notice_redir($r, "Homepages updated");
85
} else {
86
$output = error_redir($r, "update failed!");
87
}
88
}
89
90
############################################################
91
}
92
93
print $output;
94
95
exit 1;