<html>
<head>
<title>Jeep Trip 9 -- Mark Twain Nat'l Forest</title>
</head>
<body>
<center>
<h1>Jeep Trip 9 -- Mark Twain Nat'l Forest</h1>
<h3>April 15, 2000</h3>

<table>

<h3>The timestamps are off because the camera hadn't been set to daylight
savings time.  Add one hour.</h3>

<%

use File::Basename;
use Image::Info qw(image_info);

foreach my $filename ( <thumbnails/*.jpg> )
{
   my ($basename) = $filename =~ m{/(.*)\.jpg};
   my $captionfile = "captions/" . $basename . ".cap";
   my $text = "";

   if (-f $captionfile)
   {
      open(FILE, $captionfile);
      my $pos = 0;
      my $readlen;
      $pos += $readlen while ($readlen = read(FILE, $text, 5000, $pos));
      close(FILE);
   }

   my $imginfo = image_info($filename);

%>

<tr valign=top>
   <td>
	<a href="image.pl?which=<%=$basename%>.jpg"><img width=<%= $imginfo->{width} %> height=<%= $imginfo->{height} %> src=thumbnails/<%=$basename%>.jpg border=0></a>
   </td>
   <td>
	<%= $text %>
   </td>
</tr>

<%
}
%>

</table>

</center>

<a href=/~robf/jeep/>Rob's Jeep Page</a><br>
<a href=/~robf/>Rob's Home Page</a><br>
<a href=mailto:robf@geekthing.com>robf@geekthing.com</a>

</body>
</html>

