diff options
Diffstat (limited to 'www')
-rwxr-xr-x | www/devcon/show.cgi | 96 |
1 files changed, 0 insertions, 96 deletions
diff --git a/www/devcon/show.cgi b/www/devcon/show.cgi deleted file mode 100755 index c8123b38e0..0000000000 --- a/www/devcon/show.cgi +++ /dev/null @@ -1,96 +0,0 @@ -#!/usr/bin/perl - -use File::Basename; - -$cgi = basename $0; - -print "Content-Type: text/html\n\n"; - -$image = $ARGV[0]; - -$image =~ /img(\d+)/; - -print "<html><head><title>Rockbox - Photo $1</title></head>\n"; -print "<body bgcolor=black text=white link=white vlink=gray>\n"; - -if ($image eq "" ) { - print "<p>No image specified\n"; - exit; -} - -print "<h1> </h1><div align=center><img src=$image>\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 "<!-- Trying $next -->\n"; - last if ( -f "img$next.jpg" ); - } - if ( $next == $num+20 ) { - undef $next; - } - - if ( -f "bildtext.txt" ) { - open FILE, "<bildtext.txt"; - @txt = <FILE>; - close FILE; - @match = grep /^$num: /, @txt; - if ( $match[0] =~ /^$num: (.*)/ ) { - print "<p><i>$1</i>\n"; - } - } - - - print "<p>\n"; - print "<a href=$cgi?img$prev.jpg>< Previous</a> \n" if ( $prev ); - print "<a href=.>Index</a>\n"; - if ( -f "IMG_$num.JPG" ) { - $size = int( (stat("IMG_$num.JPG"))[7] / 1024 ); - print " <a href=IMG_$num.JPG>Fullsize ($size kB)</a>\n"; - } - - print " <a href=$cgi?img$next.jpg>Next ></a>\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 "<!-- Trying $next -->\n"; - last if ( -f "IMG_$next.JPG" ); - } - if ( $next == $num+20 ) { - undef $next; - } - - print "<p>\n"; - print "<a href=$cgi?IMG_$prev.JPG>< Previous</a> \n" if ( $prev ); - print "<a href=.>Index</a>\n"; - if ( -f "img$num.jpg" ) { - $size = int( (stat("img$num.jpg"))[7] / 1024 ); - print " <a href=img$num.jpg>Small ($size kB)</a>\n"; - } - - print " <a href=$cgi?IMG_$next.JPG>Next ></a>\n" if ( $next ); -} -print "</div></body></html>\n"; |