#!/usr/bin/perl

# frame.cgi - an image display and navigation script
# Copyright (C) 2002 Scott Draves

#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.

#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.

#   You should have received a copy of the GNU General Public License
#    along with this program; if not, write to the Free Software
#    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

use CGI;

sub read_whole_file {
    my ($fname) = @_;
    open FH, $fname;
    $result = "";

    while (<FH>) {
	$result = $result . $_;
    }
    return $result;
}

$frame="frame3.cgi";

$query = CGI::new();

$dir = $query->param('dir');
$file = $query->param('file');
$zoom = $query->param('zoom');

$image = "$dir/$file";
$image_file = $image;
# no dots in image name xxx
if ($file =~ /(.*)\.(.*)/) {
  $zoomed = "$dir/gen/$1.small.jpg";
} else {
  print STDERR "$frame: image name $image_file has no dot extension\n";
}
if ($zoom) {
  $image_file = $zoomed;
}


$caption_name = $image;
if ($caption_name =~ /(.*)\.[!.]*/) {
    $caption_name = "$1.caption.html";
    $caption = read_whole_file($caption_name);
} else {
    print STDERR "$frame: image name $caption_name has no dot extension\n";
    $caption = "";
}

$fineprint = <<eos;
This work is licensed under a
<a href="http://creativecommons.org/licenses/by-sa/3.0/us/">Creative
Commons License</a> by <a href="http://draves.org">spot at draves
dot org</a>.
eos

$fineprint_name = $image;
if ($fineprint_name =~ /(.*)\.[!.]*/) {
    $fineprint_name = "$1.fineprint.html";
    if (-e $fineprint_name) {
	$fineprint = read_whole_file($fineprint_name);
    }
} else {
    print STDERR "$frame: image name $fineprint_name has no dot extension\n";
}

$order_name = "$dir/order";
$order = read_whole_file($order_name);
if ("" eq $order) {
    print STDERR "$frame: order nonexistent.\n";
}
# print STDERR "$frame: order = $order\n";

$norder = 0;
while ($order =~ /(.*)\n/) {
    $ORDER{$norder} = $1;
    $norder += 1;
    $order = substr($order, 1+length($1));
}

$prev = "previous";
$next = "next";
$next_url="$dir";
for ($i = 0; $i < $norder; $i++) {
   #print STDERR "$frame: trying $file $ORDER{$i}\n";
    if ($file eq $ORDER{$i}) {
	if ($i > 0) {
	    $prev_file = $ORDER{$i-1};
	    $prev = "<a href=\"$frame?dir=$dir&file=$prev_file&zoom=$zoom\">previous</a>";
	}
	if ($i < $norder-1) {
	    $next_file = $ORDER{$i+1};
	    $next_url="$frame?dir=$dir&file=$next_file&zoom=$zoom";
	    $next = "<a href=\"$next_url\">next</a>";
	}
	$i = $norder;
    }
}



$first_file = $ORDER{'0'};
$last_file = $ORDER{$norder - 1};

if ($zoom) {
  $zoom_target = "$frame?dir=$dir&file=$file&zoom=0";
  $zoom_link = "<a href=\"$frame?dir=$dir&file=$file&zoom=0\">zoom</a>";
} else {
  if (-r $zoomed) {
    $zoom_target = "$frame?dir=$dir&file=$file&zoom=1";
    $zoom_link = "<a href=\"$frame?dir=$dir&file=$file&zoom=1\">zoom</a>";
  } else {
    $zoom_link = "zoom";
  }
}

$jscript=<<eojs;

function doit(e) {
    var key;
    if (document.layers)
        key = e.which
    else
        key = window.event.keyCode;
    if (key >= 32) {
      var keychar = String.fromCharCode(key);
      document.location.href="$next_url";
    }
}
document.onkeypress=doit;

eojs

$header = `djpeg '$image_file' 2>/dev/null | head -2`;
if ($header =~ /P.\n(.*) (.*)\n/) {
    $width = $1;
    $height = $2;
    $size_tags = "width=$width height=$height";
} else {
    $size_tags = "";
}


print $query->header();
print $query->start_html(-title=>$image, -style=>{'src'=>'frame_style.css'}, -script=>$jscript);
print "\n";
print <<eos;



    <center>
      <table cellpadding=10>
	<tr><td>
          <table width=400 align=center><tr>
            <td align=left>
              <table><tr>
                <td><a href=http://draves.org>home</a></td>
                <td><a href=http://draves.org/blog>blog</a></td>
                <td><a href=http://draves.org/pix>galleries</a></td>
                <td><a href=about.html>about</a></td>
                <td><a href=help.html>help</a></td>
              </tr></table>
            </td>
            <td align=right>
              <table><tr>
                <td>$prev</td>
                <td><table>
                  <tr><td><a href="$dir">index</a></td></tr>
                  <tr><td>$zoom_link</td></tr>
                </table></td>
                <td>$next</td>
              </tr></table>
            </td>
          </tr></table>
	</td></tr>
	<tr><td width=800 align=center>
	  <table><tr><td align=left>
	    $caption
	  </td></tr></table>
	</td></tr>
	<tr><td width=800 align=center>
          <a href="$zoom_target">
            <img border=0 src="$image_file" $size_tags>
          </a>
	</td></tr>
      </table>

<p> 

<font face="verdana, sans-serif" size=1><em>$fineprint</em></font> <p>


    </center>

<script type="text/javascript">
var gaJsHost = (("https:" == document.location.protocol) ?
"https://ssl." : "http://www.");
document.write(unescape("%3Cscript src='" + gaJsHost +
"google-analytics.com/ga.js'
type='text/javascript'%3E%3C/script%3E"));
</script>
<script type="text/javascript">
var pageTracker = _gat._getTracker("UA-4775853-5");
pageTracker._initData();
pageTracker._trackPageview();
</script>

eos

print $query->end_html;
print "\n";