X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=perl%2FSesse%2Fpr0n%2FIndex.pm;h=2c93c7c55c93bd930d71828759558ca33fc608e3;hb=a58f1ab4dd5b224b12ed78096b6867f47c316231;hp=30794557e868b2d4de43aa1b0927f63bd61fba06;hpb=29546c334313d9ade7fd708b04f86c567696d471;p=pr0n

diff --git a/perl/Sesse/pr0n/Index.pm b/perl/Sesse/pr0n/Index.pm
index 3079455..2c93c7c 100644
--- a/perl/Sesse/pr0n/Index.pm
+++ b/perl/Sesse/pr0n/Index.pm
@@ -199,13 +199,13 @@ sub handler {
 
 		my @files = ();
 		while (my $ref = $q->fetchrow_hashref()) {
-			push @files, [ $ref->{'event'}, $ref->{'filename'} ];
+			push @files, [ $ref->{'event'}, $ref->{'filename'}, $ref->{'width'}, $ref->{'height'} ];
 		}
 		
 		for my $i (0..$#files) {
-			$r->print("        [ \"" . $files[$i]->[0] . "\", \"" . $files[$i]->[1] . "\" ]");
-			$r->print(",") unless ($i == $#files);
-			$r->print("\n");
+			my $line = sprintf "        [ \"%s\", \"%s\", %d, %d ]", @{$files[$i]};
+			$line .= "," unless ($i == $#files);
+			$r->print($line . "\n");
 		}
 
 		my %settings_no_fullscreen = %settings;