my $apr = Apache2::Request->new($r);
my $dbh = Sesse::pr0n::Common::get_dbh();
- my ($event, $abspath, $datesort);
+ my ($event, $abspath, $datesort, $tag);
if ($r->uri =~ /^\/\+all\/?/) {
$event = '+all';
$abspath = 1;
+ $tag = undef;
# augh, this needs 8.3, so we'll have to fiddle around a bit instead
# $datesort = 'DESC NULLS LAST';
+ $datesort = 'DESC';
+ } elsif ($r->uri =~ /^\/\+tags\/([a-zA-Z0-9-]+)\/?$/) {
+ $tag = $1;
+ $event = "+tags/$tag";
+ $abspath = 1;
+
$datesort = 'DESC';
} else {
# Find the event
or error($r, "Could not extract event");
$event = $1;
$abspath = 0;
+ $tag = undef;
$datesort = 'ASC';
}
# Fix common error: pr0n.sesse.net/event -> pr0n.sesse.net/event/
if ($r->uri !~ /\/$/) {
- $r->headers_out->{'location'} = "/$event/";
+ $r->headers_out->{'location'} = $r->uri . "/";
return Apache2::Const::REDIRECT;
}
);
my $where;
- if ($event eq '+all') {
+ if (defined($tag)) {
+ my $tq = $dbh->quote($tag);
+ $where = " AND id IN ( SELECT image FROM tags WHERE tag=$tq )";
+ } elsif ($event eq '+all') {
$where = '';
} else {
$where = ' AND event=' . $dbh->quote($event);
$settings{$s} = $val;
}
if ($s eq "model" || $s eq "lens") {
- $val =~ s/_/ /g;
- $settings{$s} = $val;
+ $settings{$s} = Sesse::pr0n::Common::pretty_unescape($val);
}
}
my ($date, $name);
- if ($event eq '+all') {
+ if ($event eq '+all' || defined($tag)) {
$ref = $dbh->selectrow_hashref("SELECT EXTRACT(EPOCH FROM MAX(last_update)) AS last_update FROM events WHERE vhost=?",
undef, $r->get_server_name)
or error($r, "Could not list events", 404, "File not found");
# Print the page itself
if ($settings{'fullscreen'}) {
$r->content_type("text/html; charset=utf-8");
- Sesse::pr0n::Templates::print_template($r, "fullscreen-header", { title => "$name [$event]" });
+
+ if (defined($tag)) {
+ my $title = Sesse::pr0n::Templates::process_template($r, "tag-title", { tag => $tag });
+ Sesse::pr0n::Templates::print_template($r, "fullscreen-header", { title => $title });
+ } else {
+ Sesse::pr0n::Templates::print_template($r, "fullscreen-header", { title => "$name [$event]" });
+ }
my @files = ();
while (my $ref = $q->fetchrow_hashref()) {
infobox => $infobox
});
} else {
- Sesse::pr0n::Common::header($r, "$name [$event]");
+ if (defined($tag)) {
+ my $title = Sesse::pr0n::Templates::process_template($r, "tag-title", { tag => $tag });
+ Sesse::pr0n::Common::header($r, $title);
+ } else {
+ Sesse::pr0n::Common::header($r, "$name [$event]");
+ }
if (defined($date)) {
Sesse::pr0n::Templates::print_template($r, "date", { date => $date });
}
if ($rot == 1) {
$r->print(" <form method=\"post\" action=\"/rotate\">\n");
$r->print(" <input type=\"hidden\" name=\"event\" value=\"$event\" />\n");
-
- while (my $ref = $q->fetchrow_hashref()) {
- my $imgsz = "";
- my $takenby = $ref->{'takenby'};
- if (defined($ref->{'day'})) {
- $takenby .= ", " . $ref->{'day'};
- }
+ }
- if ($takenby ne $lastupl) {
- $lastupl = $takenby;
- $r->print(" <h2>");
- Sesse::pr0n::Templates::print_template($r, "submittedby", { author => $lastupl });
- print_fullscreen_fromhere($r, $event, \%settings, \%defsettings, $img_num);
- $r->print("</h2>\n");
- }
- if ($ref->{'width'} != -1 && $ref->{'height'} != -1) {
- my $width = $ref->{'width'};
- my $height = $ref->{'height'};
-
- ($width, $height) = Sesse::pr0n::Common::scale_aspect($width, $height, $thumbxres, $thumbyres);
- $imgsz = " width=\"$width\" height=\"$height\"";
- }
+ while (my $ref = $q->fetchrow_hashref()) {
+ my $imgsz = "";
+ my $takenby = $ref->{'takenby'};
+ if (defined($ref->{'day'})) {
+ $takenby .= ", " . $ref->{'day'};
+ }
- my $filename = $ref->{'filename'};
- my $uri = $infobox . $filename;
- if (defined($xres) && defined($yres) && $xres != -1) {
- $uri = "${xres}x$yres/$infobox$filename";
- } elsif (defined($xres) && $xres == -1) {
- $uri = "original/$infobox$filename";
- }
+ if ($takenby ne $lastupl) {
+ $r->print(" </p>\n\n") if ($lastupl ne "" && $rot != 1);
+ $lastupl = $takenby;
+ $r->print(" <h2>");
+ Sesse::pr0n::Templates::print_template($r, "submittedby", { author => $lastupl });
+ print_fullscreen_fromhere($r, $event, \%settings, \%defsettings, $img_num);
+ $r->print("</h2>\n");
- my $prefix = "";
- if ($abspath) {
- $prefix = "/" . $ref->{'event'} . "/";
+ if ($rot != 1) {
+ $r->print(" <p class=\"photos\">\n");
}
+ }
+
+ if ($ref->{'width'} != -1 && $ref->{'height'} != -1) {
+ my $width = $ref->{'width'};
+ my $height = $ref->{'height'};
+
+ ($width, $height) = Sesse::pr0n::Common::scale_aspect($width, $height, $thumbxres, $thumbyres);
+ $imgsz = " width=\"$width\" height=\"$height\"";
+ }
- $r->print(" <p><a href=\"$prefix$uri\"><img src=\"$prefix${thumbxres}x${thumbyres}/$filename\" alt=\"\"$imgsz /></a>\n");
+ my $filename = $ref->{'filename'};
+ my $uri = $infobox . $filename;
+ if (defined($xres) && defined($yres) && $xres != -1) {
+ $uri = "${xres}x$yres/$infobox$filename";
+ } elsif (defined($xres) && $xres == -1) {
+ $uri = "original/$infobox$filename";
+ }
+
+ my $prefix = "";
+ if ($abspath) {
+ $prefix = "/" . $ref->{'event'} . "/";
+ }
+
+ if ($rot == 1) {
+ $r->print(" <p>");
+ } else {
+ $r->print(" ");
+ }
+ $r->print("<a href=\"$prefix$uri\"><img src=\"$prefix${thumbxres}x${thumbyres}/$filename\" alt=\"\"$imgsz /></a>\n");
+
+ if ($rot == 1) {
$r->print(" 90 <input type=\"checkbox\" name=\"rot-" .
$ref->{'id'} . "-90\" />\n");
$r->print(" 180 <input type=\"checkbox\" name=\"rot-" .
$ref->{'id'} . "-270\" />\n");
$r->print(" " .
" Del <input type=\"checkbox\" name=\"del-" . $ref->{'id'} . "\" /></p>\n");
-
- ++$img_num;
}
+
+ ++$img_num;
+ }
+
+ if ($rot == 1) {
$r->print(" <input type=\"submit\" value=\"Rotate\" />\n");
$r->print(" </form>\n");
} else {
- while (my $ref = $q->fetchrow_hashref()) {
- my $imgsz = "";
- my $takenby = $ref->{'takenby'};
- if (defined($ref->{'day'})) {
- $takenby .= ", " . $ref->{'day'};
- }
-
- if ($takenby ne $lastupl) {
- $r->print(" </p>\n\n") if ($lastupl ne "");
- $lastupl = $takenby;
- $r->print(" <h2>");
- Sesse::pr0n::Templates::print_template($r, "submittedby", { author => $lastupl });
- print_fullscreen_fromhere($r, $event, \%settings, \%defsettings, $img_num);
- $r->print("</h2>\n");
- $r->print(" <p class=\"photos\">\n");
- }
- if ($ref->{'width'} != -1 && $ref->{'height'} != -1) {
- my $width = $ref->{'width'};
- my $height = $ref->{'height'};
-
- ($width, $height) = Sesse::pr0n::Common::scale_aspect($width, $height, $thumbxres, $thumbyres);
- $imgsz = " width=\"$width\" height=\"$height\"";
- }
-
- my $filename = $ref->{'filename'};
- my $uri = $infobox . $filename;
- if (defined($xres) && defined($yres) && $xres != -1) {
- $uri = "${xres}x$yres/$infobox$filename";
- } elsif (defined($xres) && $xres == -1) {
- $uri = "original/$infobox$filename";
- }
-
- my $prefix = "";
- if ($abspath) {
- $prefix = "/" . $ref->{'event'} . "/";
- }
-
- $r->print(" <a href=\"$prefix$uri\"><img src=\"$prefix${thumbxres}x${thumbyres}/$filename\" alt=\"\"$imgsz /></a>\n");
-
- ++$img_num;
- }
$r->print(" </p>\n");
}
projects / pr0n / blobdiff