From 921a0d5faf4ad62b53ad8217255f28f3aa1eeddb Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sgunderson@bigfoot.com>
Date: Thu, 19 Nov 2015 21:19:58 +0100
Subject: [PATCH] Make images go to fullscreen mode if the browser has
 JavaScript.

---
 perl/Sesse/pr0n/Index.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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-" .
-- 
2.39.2