X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=perl%2FSesse%2Fpr0n%2FIndex.pm;h=cd1338631b08e7ce48dc7658416db768a888ded6;hb=ae34fcee3c7ffe92f3a4dac08d7d6ed0310ad823;hp=eca84793e1c6ebe0f338673a5a2ed0ff0cf3697c;hpb=7f9a98a7707de6c25a2e572ee3d34365b596ea83;p=pr0n diff --git a/perl/Sesse/pr0n/Index.pm b/perl/Sesse/pr0n/Index.pm index eca8479..cd13386 100644 --- a/perl/Sesse/pr0n/Index.pm +++ b/perl/Sesse/pr0n/Index.pm @@ -41,8 +41,8 @@ sub handler { # Read the appropriate settings from the query string into the settings hash my %defsettings = ( - thumbxres => 80, - thumbyres => 64, + thumbxres => 320, + thumbyres => 256, xres => -1, yres => -1, start => 1, @@ -220,7 +220,6 @@ sub handler { Sesse::pr0n::Templates::print_template($r, $io, "overloadmode"); } - print_thumbsize($r, $io, $event, \%settings, \%defsettings); print_viewres($r, $io, $event, \%settings, \%defsettings); print_pagelimit($r, $io, $event, \%settings, \%defsettings); print_infobox($r, $io, $event, \%settings, \%defsettings); @@ -451,13 +450,6 @@ sub print_changes { $io->print("

\n"); } -sub print_thumbsize { - my ($r, $io, $event, $settings, $defsettings) = @_; - my @alternatives = qw(80x64 120x96 160x128 240x192 320x256); - - print_changes($r, $io, $event, 'thumbsize', $settings, $defsettings, - 'thumbxres', 'thumbyres', \@alternatives); -} sub print_viewres { my ($r, $io, $event, $settings, $defsettings) = @_; my @alternatives = qw(320x256 512x384 640x480 800x600 1024x768 1152x864 1280x960 1400x1050 1600x1200 1920x1440 2048x1536 2304x1728);