diff options
Diffstat (limited to 'www/devcon/show.cgi')
| -rwxr-xr-x | www/devcon/show.cgi | 96 |
1 files changed, 96 insertions, 0 deletions
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 @@ | |||
| 1 | #!/usr/bin/perl | ||
| 2 | |||
| 3 | use File::Basename; | ||
| 4 | |||
| 5 | $cgi = basename $0; | ||
| 6 | |||
| 7 | print "Content-Type: text/html\n\n"; | ||
| 8 | |||
| 9 | $image = $ARGV[0]; | ||
| 10 | |||
| 11 | $image =~ /img(\d+)/; | ||
| 12 | |||
| 13 | print "<html><head><title>Rockbox - Photo $1</title></head>\n"; | ||
| 14 | print "<body bgcolor=black text=white link=white vlink=gray>\n"; | ||
| 15 | |||
| 16 | if ($image eq "" ) { | ||
| 17 | print "<p>No image specified\n"; | ||
| 18 | exit; | ||
| 19 | } | ||
| 20 | |||
| 21 | print "<h1> </h1><div align=center><img src=$image>\n"; | ||
| 22 | |||
| 23 | # compressed image | ||
| 24 | if ( $image =~ /img(\d+).jpg/ ) { | ||
| 25 | $num = $1; | ||
| 26 | for $i ( 1 .. 10 ) { | ||
| 27 | $prev = sprintf("%04d",$num-$i); | ||
| 28 | last if ( -f "img$prev.jpg" ); | ||
| 29 | } | ||
| 30 | if ( $prev == $num-10 ) { | ||
| 31 | undef $prev; | ||
| 32 | } | ||
| 33 | |||
| 34 | for $i ( 1 .. 20 ) { | ||
| 35 | $next = sprintf("%04d",$num+$i); | ||
| 36 | print "<!-- Trying $next -->\n"; | ||
| 37 | last if ( -f "img$next.jpg" ); | ||
| 38 | } | ||
| 39 | if ( $next == $num+20 ) { | ||
| 40 | undef $next; | ||
| 41 | } | ||
| 42 | |||
| 43 | if ( -f "bildtext.txt" ) { | ||
| 44 | open FILE, "<bildtext.txt"; | ||
| 45 | @txt = <FILE>; | ||
| 46 | close FILE; | ||
| 47 | @match = grep /^$num: /, @txt; | ||
| 48 | if ( $match[0] =~ /^$num: (.*)/ ) { | ||
| 49 | print "<p><i>$1</i>\n"; | ||
| 50 | } | ||
| 51 | } | ||
| 52 | |||
| 53 | |||
| 54 | print "<p>\n"; | ||
| 55 | print "<a href=$cgi?img$prev.jpg>< Previous</a> \n" if ( $prev ); | ||
| 56 | print "<a href=.>Index</a>\n"; | ||
| 57 | if ( -f "IMG_$num.JPG" ) { | ||
| 58 | $size = int( (stat("IMG_$num.JPG"))[7] / 1024 ); | ||
| 59 | print " <a href=IMG_$num.JPG>Fullsize ($size kB)</a>\n"; | ||
| 60 | } | ||
| 61 | |||
| 62 | print " <a href=$cgi?img$next.jpg>Next ></a>\n" if ( $next ); | ||
| 63 | |||
| 64 | } | ||
| 65 | |||
| 66 | # showing fullsize already | ||
| 67 | elsif ( $image =~ /IMG_(\d+).JPG/ ) { | ||
| 68 | $num = $1; | ||
| 69 | for $i ( 1 .. 10 ) { | ||
| 70 | $prev = sprintf("%04d",$num-$i); | ||
| 71 | last if ( -f "IMG_$prev.JPG" ); | ||
| 72 | } | ||
| 73 | if ( $prev == $num-10 ) { | ||
| 74 | undef $prev; | ||
| 75 | } | ||
| 76 | |||
| 77 | for $i ( 1 .. 20 ) { | ||
| 78 | $next = sprintf("%04d",$num+$i); | ||
| 79 | print "<!-- Trying $next -->\n"; | ||
| 80 | last if ( -f "IMG_$next.JPG" ); | ||
| 81 | } | ||
| 82 | if ( $next == $num+20 ) { | ||
| 83 | undef $next; | ||
| 84 | } | ||
| 85 | |||
| 86 | print "<p>\n"; | ||
| 87 | print "<a href=$cgi?IMG_$prev.JPG>< Previous</a> \n" if ( $prev ); | ||
| 88 | print "<a href=.>Index</a>\n"; | ||
| 89 | if ( -f "img$num.jpg" ) { | ||
| 90 | $size = int( (stat("img$num.jpg"))[7] / 1024 ); | ||
| 91 | print " <a href=img$num.jpg>Small ($size kB)</a>\n"; | ||
| 92 | } | ||
| 93 | |||
| 94 | print " <a href=$cgi?IMG_$next.JPG>Next ></a>\n" if ( $next ); | ||
| 95 | } | ||
| 96 | print "</div></body></html>\n"; | ||