edit_photo.pl
Copying Source is Forbidden
71 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);
16
use Html2 qw(hr br embolden)
17
use Bc_chef qw(cookie_get);
18
use Bc_misc qw(get_param referrer);
19
use Bc_sql qw(
20
get_constant
21
sql_execute
22
user_exists
23
$QUERY_PAGE
24
$QUERY_UID
25
$LOGGEDIN
26
27
$DB
28
);
29
30
use Security qw(banned);
31
use Redir qw(error_redir notice_redir);
32
33
my $DEBUG = 0;
34
35
my $output;
36
37
if (not user_exists($LOGGEDIN) or banned($LOGGEDIN)) {
38
my $msg = "Access Denied";
39
if ($DEBUG) { $msg .= " (TEMPLATE.pl)"; }
40
$output = error_redir("/", $msg);
41
} else {
42
############################################################
43
44
### YOUR CONTENT HERE
45
my $imgid = get_param("imgid");
46
my $imgname = get_param("imgname");
47
my $imgdesc = get_param("imgdesc");
48
my $sql = "update images set name=" . $DB->quote($imgname) . ", desc=" . $DB->quote($imgdesc) . " where ID=" . $DB->quote($imgid) . " and UID=" . $DB->quote($LOGGEDIN);
49
50
if ($DEBUG) {
51
$output = pre_html_header();
52
$output .= "DEBUG MODE ENABLED!" . hr . br;
53
54
$output .= "imgid: $imgid" . br;
55
$output .= "imgname: $imgname" . br;
56
$output .= "imgdesc: $imgdesc" . br;
57
$output .= "sql: $sql" . br;
58
} else {
59
if (sql_execute($sql, "edit_photo.pl")) {
60
$output = notice_redir(referrer(), "Photo updated");
61
} else {
62
$output = error_redir(referrer(), "Photo update failed");
63
}
64
}
65
66
############################################################
67
}
68
69
print $output;
70
71
exit 1;