From: Steinar H. Gunderson <sgunderson@bigfoot.com>
Date: Thu, 19 Nov 2015 20:19:58 +0000 (+0100)
Subject: Make images go to fullscreen mode if the browser has JavaScript.
X-Git-Url: https://git.sesse.net/?p=pr0n;a=commitdiff_plain;h=921a0d5faf4ad62b53ad8217255f28f3aa1eeddb;ds=sidebyside

Make images go to fullscreen mode if the browser has JavaScript.
---

diff --git a/perl/Sesse/pr0n/Index.pm b/perl/Sesse/pr0n/Index.pm
index 329aaed..ad3af8f 100644
--- a/perl/Sesse/pr0n/Index.pm
+++ b/perl/Sesse/pr0n/Index.pm
@@ -340,6 +340,12 @@ sub handler {
 				$imgsz = " width=\"$width\" height=\"$height\"";
 			}
 
+			# Add fullscreen link.
+			my %fssettings = %settings;
+			$fssettings{'fullscreen'} = 1;
+			$fssettings{'start'} = $img_num;
+			my $fsquery = Sesse::pr0n::Common::get_query_string(\%fssettings, \%defsettings);
+
 			my $filename = $ref->{'filename'};
 			my $uri = $filename;
 			if (defined($xres) && defined($yres) && $xres != -1 && $xres != -2) {
@@ -358,7 +364,7 @@ sub handler {
 			} else {
 				$io->print("     ");
 			}
-			$io->print("<a href=\"$prefix$uri\"><img src=\"$prefix${thumbxres}x${thumbyres}/$filename\" alt=\"\"$imgsz /></a>\n");
+			$io->print("<a href=\"$prefix$uri\" onclick=\"location.href='$prefix$fsquery';return false;\"><img src=\"$prefix${thumbxres}x${thumbyres}/$filename\" alt=\"\"$imgsz /></a>\n");
 		
 			if ($rot == 1) {
 				$io->print("      90 <input type=\"checkbox\" name=\"rot-" .