#!/usr/bin/perl

use CGI (-debug);
use strict;

chdir "/home/davei/public_html/pics";

my $q = new CGI;
my $message;
my $subdir = $q->param('dir'); 

if ($q->param('getme')) {
    chdir $subdir;
    if ((int($q->param('xres')) >= 0) || (int($q->param('xres')) >= 0)) {
	print $q->header('image/jpeg');
	my $convertFile = "fullsize/".$q->param('getme');
	my $convertOpts;
	$convertOpts = "-geometry ";
#	$convertOpts = "-geometry " if ($q->param('aspect'));
	$convertOpts .= join("x", $q->param('xres'), $q->param('yres'));
	open (CONVERT, "/usr/pkg/bin/convert $convertOpts $convertFile - |");
	while (<CONVERT>) {
	    print;
	}
	print STDERR "subdir = '$subdir' file = '$convertFile'\n";
	print STDERR "path = ",`pwd`,"\n";
	print STDERR "command = 'convert $convertOpts $convertFile -'\n";

	exit(0);
    }
    $message = "Invalid resolution, please try again.";
}

print $q->header, $q->start_html(-title=>'Dave\'s Pics Browser',
				 -BGCOLOR=>'#000000',
				 -TEXT=>"#D0D0D0",
				 -LINK=>"#00FFFF",
				 -VLINK=>"#8080FF");


unless ($subdir) {
    print qq!
<H2>My Pictures</H2>
These are pictures I have taken and scanned, or taken via digital
camera.  They are in the order they were added (not necessarily the
order they were taken.)
<HR>

<FORM METHOD=GET ACTION="picbrowser.cgi">
<TABLE><TR>
<TH>Choose a Collection</TH><TH>How Many per Screen</TH></TR>
<TR><TD><SELECT NAME='dir'>
!;
    open (DIRS, "< dirs");
    while (<DIRS>) {
	my ($dir, $desc) = split(/\:/);
	print qq!
<OPTION VALUE="$dir">$desc</OPTION>!;
    }

    print qq!
</SELECT></TD>
<TD><SELECT NAME="pppage">
<OPTION SELECTED VALUE="3">3 pictures per page</OPTION>
<OPTION VALUE="5">5 pictures per page</OPTION>
<OPTION VALUE="10">10 pictures per page</OPTION>
<OPTION VALUE="15">15 pictures per page</OPTION>
<OPTION VALUE="20">20 pictures per page</OPTION>
</SELECT>
<INPUT TYPE=HIDDEN NAME=startpic VALUE="0">
</TD>
<TR>
<TD COLSPAN=2>
<INPUT TYPE="SUBMIT" Name="Submit" VALUE="Go">
</TD></TR>
</TABLE>
</FORM>
</BODY>
</HTML>
!;   
    exit;
}

chdir $subdir;

my @files = `ls -rt fullsize/`;

my $startPic = $q->param('startpic');
my $picsPerPage = $q->param('pppage');
my $lastPic = $startPic + $picsPerPage - 1;
my $picNumber;

if ($lastPic > $#files) {
    $lastPic = $#files;
}

if ($lastPic < $startPic) {
    print $q->h1("No more pictures to display, sorry.");
}
else {
    if ($message) {
	print "<H2>$message</H2>";
    }
    print "<H3>Pictures $startPic - $lastPic of $#files:</H3>\n";
    print "<TABLE COLSPACING=25>";
    for ($picNumber = $startPic; $picNumber <= $lastPic; $picNumber++) {
	print "\n<TR><TD WIDTH='33%' ROWSPAN=2>&nbsp;";
	my $fileName = $files[$picNumber];
	chomp $fileName;
	my $commentName = $fileName;
	$commentName =~ s/JPG$/txt/;
	$commentName =~ s/jpg$/txt/;

	if (open(COMMENTS,"< comments/$commentName")) {
	    while (<COMMENTS>) { print; }
	    close(COMMENTS);
	}

	print qq!</TD><TD>
	    <A HREF="/~davei/pics/$subdir/fullsize/$fileName">
	    <IMG SRC="/~davei/pics/$subdir/websize/$fileName"></A></TD>
	    <TD>Download this image at resolution:<BR><FORM METHOD=GET>
	    <INPUT TYPE=HIDDEN NAME="getme" VALUE="$fileName">
	    <INPUT TYPE=HIDDEN NAME="dir" VALUE="$subdir">
	    <INPUT TYPE=TEXT SIZE=4 NAME="xres" VALUE="640">x
	    <INPUT TYPE=TEXT SIZE=4 NAME="yres" VALUE="480"><BR>!;
# Apparently not necessary
#	    <INPUT TYPE=CHECKBOX NAME="aspect">&nbsp;Preserve aspect ratio
	print qq!
	    <INPUT TYPE=SUBMIT NAME="Go" VALUE="Get Image">
	    </FORM></TD>
            </TR><TR><TD>$fileName</TD></TR>!;		
    }
    print "</TABLE>\n";
}

if ($lastPic < $#files) {
    print "<TABLE><TD><FORM METHOD=GET>\nGet next <SELECT NAME='pppage'>";
    foreach my $numDisplay (3,5,10,15,20) {
	print "<OPTION";
	if ($numDisplay == $picsPerPage) {
	    print " SELECTED";
	}
	print " VALUE=\"$numDisplay\">$numDisplay</OPTION>\n";
    }
    print "</SELECT> pictures:\n";
    print qq!</TD><TD><INPUT TYPE=HIDDEN NAME=startpic VALUE="$picNumber">!;
    print qq!<INPUT TYPE=HIDDEN NAME=dir VALUE="$subdir">!;
    print qq!<INPUT TYPE="SUBMIT" Name="Submit" VALUE="Go"></TD>!;
    print "</FORM></TABLE>\n";
}
print "<HR>";
print qq!<A HREF="picbrowser.cgi?startpic=0&pppage=$picsPerPage&dir=$subdir">
Go back to the beginning of the list</A><BR>
<A HREF="/~davei/pics/picbrowser.cgi">Go back to the opening page</A>!;

print $q->end_html;