1 package Sesse::pr0n::Select;
5 use Sesse::pr0n::Common qw(error dberror);
10 my $apr = Apache2::Request->new($r);
11 my $dbh = Sesse::pr0n::Common::get_dbh();
12 my ($user, $takenby) = Sesse::pr0n::Common::check_access($r);
13 if (!defined($user)) {
14 return Apache2::Const::OK;
17 my $event = $apr->param('event');
19 Sesse::pr0n::Common::header($r, "Selection results");
22 # Enable transactions and error raising temporarily
23 local $dbh->{AutoCommit} = 0;
24 local $dbh->{RaiseError} = 1;
26 my $filename = $apr->param('filename');
27 my $selected = $apr->param('selected');
28 my $sql_selected = 'f';
29 if (!defined($selected) || $selected eq '1') {
32 $dbh->do('UPDATE images SET selected=? WHERE vhost=? AND event=? AND filename=?', undef, $sql_selected, $r->get_server_name, $event, $filename);
35 $dbh->do('UPDATE last_picture_cache SET last_update=CURRENT_TIMESTAMP WHERE vhost=? AND event=?', undef, $r->get_server_name, $event)
36 or dberror($r, "Cache invalidation failed");
37 Sesse::pr0n::Common::purge_cache($r, "/$event/");
38 Sesse::pr0n::Common::footer($r);
40 return Apache2::Const::OK;