From 6365d0e6ccd891da7812c6c7d7b0f8eadf414b30 Mon Sep 17 00:00:00 2001 From: Björn Stenberg Date: Mon, 27 May 2002 14:28:44 +0000 Subject: devcon git-svn-id: svn://svn.rockbox.org/rockbox/trunk@753 a1c6a512-1295-4272-9138-f99709370657 --- www/devcon/show.cgi | 96 +++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 96 insertions(+) create mode 100755 www/devcon/show.cgi (limited to 'www/devcon/show.cgi') diff --git a/www/devcon/show.cgi b/www/devcon/show.cgi new file mode 100755 index 0000000000..c8123b38e0 --- /dev/null +++ b/www/devcon/show.cgi @@ -0,0 +1,96 @@ +#!/usr/bin/perl + +use File::Basename; + +$cgi = basename $0; + +print "Content-Type: text/html\n\n"; + +$image = $ARGV[0]; + +$image =~ /img(\d+)/; + +print "Rockbox - Photo $1\n"; +print "\n"; + +if ($image eq "" ) { + print "

No image specified\n"; + exit; +} + +print "

 

\n"; + +# compressed image +if ( $image =~ /img(\d+).jpg/ ) { + $num = $1; + for $i ( 1 .. 10 ) { + $prev = sprintf("%04d",$num-$i); + last if ( -f "img$prev.jpg" ); + } + if ( $prev == $num-10 ) { + undef $prev; + } + + for $i ( 1 .. 20 ) { + $next = sprintf("%04d",$num+$i); + print "\n"; + last if ( -f "img$next.jpg" ); + } + if ( $next == $num+20 ) { + undef $next; + } + + if ( -f "bildtext.txt" ) { + open FILE, "; + close FILE; + @match = grep /^$num: /, @txt; + if ( $match[0] =~ /^$num: (.*)/ ) { + print "

$1\n"; + } + } + + + print "

\n"; + print "< Previous   \n" if ( $prev ); + print "Index\n"; + if ( -f "IMG_$num.JPG" ) { + $size = int( (stat("IMG_$num.JPG"))[7] / 1024 ); + print "   Fullsize ($size kB)\n"; + } + + print "   Next >\n" if ( $next ); + +} + +# showing fullsize already +elsif ( $image =~ /IMG_(\d+).JPG/ ) { + $num = $1; + for $i ( 1 .. 10 ) { + $prev = sprintf("%04d",$num-$i); + last if ( -f "IMG_$prev.JPG" ); + } + if ( $prev == $num-10 ) { + undef $prev; + } + + for $i ( 1 .. 20 ) { + $next = sprintf("%04d",$num+$i); + print "\n"; + last if ( -f "IMG_$next.JPG" ); + } + if ( $next == $num+20 ) { + undef $next; + } + + print "

\n"; + print "< Previous   \n" if ( $prev ); + print "Index\n"; + if ( -f "img$num.jpg" ) { + $size = int( (stat("img$num.jpg"))[7] / 1024 ); + print "   Small ($size kB)\n"; + } + + print "   Next >\n" if ( $next ); +} +print "

\n"; -- cgit v1.2.3