#!/usr/bin/perl
use strict;
use CGI qw/:standard/;
autoEscape(undef);

# main config
my $root = "/home/bytex64/pix";
my $webroot = "/pix";
# RSS config
my $rssname = "pix.bytex64.net";
my $rssurl = "http://pix.bytex64.net/";
my $rssdescription = "Pictures and video from $rssurl";
my $entries_per_page = 42;

my $CRLF = "\015\012";

my $pathinfo = $ENV{'PATH_INFO'};
my $filter = param('filter');
# Oh, what's that?
$pathinfo =~ s/\.\.//;
my @exiftags = ('File size','File date','Resolution');
my $page = param('page');
my $pages;
my @files = ();

if ($pathinfo && param('text')) {
	# Time to write a comment!
	my $ts = time();
	if (!-d "$root/comments$pathinfo") {
		mkdir "$root/comments$pathinfo";
	}
	open COMMENT, ">$root/comments$pathinfo/$ts";
	print COMMENT param('name'),"\n";
	print COMMENT param('url'),"\n";
	print COMMENT param('text'),"\n";
	close COMMENT;
	open MAIL, '| /usr/bin/sendmail bytex64@gmail.com';
	my ($name, $text) = (param('name'), param('text'));
	print MAIL <<EOM;
Subject: $pathinfo
From: PIX <pix\@pix.bytex64.net>

$name made a comment on $pathinfo:

$text

URL: http://pix.bytex64.net/index.pl$pathinfo

~pix
EOM
	close MAIL;
	print redirect("http://pix.bytex64.net/index.pl$pathinfo");
	exit(0);
}

sub lsfiles {
	my $dir = shift;
	opendir FILES, $dir;
	my @files = grep {/^[^.].*\.(jpg|JPG|png|PNG|gif|GIF|thm|THM)/} readdir(FILES);
	closedir FILES;
	return @files;
}

sub getindex {
	my $curr = shift;
	for (0..$#files) {
		if ($files[$_] eq $curr) {
			return $_;
		}
	}
	return undef;
}

sub curpage {
	my $n = getindex(shift);
	return $n / $entries_per_page;
}

sub pager {
	my $page = param('page');
	my $prev = $page - 1;
	my $next = $page + 1;

	if ($prev >= 0) {
		print "<a href=\"/index.pl?page=$prev\">&lt;&lt;</a> ";
	} else {
		print "&lt;&lt; ";
	}

	for (0..$pages) {
		if ($_ != $page) {
			print "<a href=\"index.pl?page=$_\">$_</a>";
		} else {
			print "<span class=\"current\">$_</span>";
		}
		print ' ';
	}
	if ($next <= $pages) {
		print "<a href=\"index.pl?page=$next\">&gt;&gt;</a>";
	} else {
		print "&gt;&gt;";
	}
}

sub parse_comment {
	my $comment = shift;
	my %hash = ();
	my @lines = split("\n",$comment);
	my $mode = 0;
	foreach (@lines) {
		if ($mode == 0) {
			if (/^$/) {
				$mode = 1;
				$hash{'data'} = '';
				next;
			}
			if (/^([-A-Za-z]+): (.*)$/) {
				$hash{lc($1)} = $2;
			}
		} else {
			$hash{'data'} .= $_;
		}
	}
	return \%hash;
}

if ($filter) {
	my @fstr = split(/\s+/,$filter);
	foreach my $f (@fstr) {
		if ($f eq '*') {
			# special case. Include everything.
			push(@files, lsfiles($root));
		} elsif ($f =~ /^-/) {
			$f =~ s/^-//;
			# subtract from set
			my @sub = lsfiles("$root/tags/$f");
			foreach my $l (@files) {
				foreach my $s (@sub) {
					$l=undef if $l eq $s;
				}
			}
			@files = grep {defined $_} @files;
		} else {
			push(@files, lsfiles("$root/tags/$f"));
		}
	}
} else {
	@files = lsfiles($root);
}
@files = uniq(sort { (-M "$root/$a") <=> (-M "$root/$b") } @files);
$pages = scalar(@files) / $entries_per_page;

my $rsslink = $rssurl . "index.pl?rss=1" . ($filter ? '&filter=' . urlescape($filter) : '');

if (param('rss')) {
	rss();
	exit 0;
}

print header(),start_html(-title=>"PIX",-style=>{'src'=>'/default.css'},
			  -head=>Link({-rel=>'alternate',
				       -type=>'application/rss+xml',
				       -title=>'PIX' . ($filter ? " $filter" : ''),
				       -href=>$rsslink})
			 );
print "<h1>PIX</h1>\n";
print "<div class=\"nav\">\n";

if (-f "$root$pathinfo") {
	# This is ugly.
	$_ = $pathinfo;
	s!/!!;
	my $pos;
	for (my $i=0; $i <= $#files; $i++) {
		if ($files[$i] eq $_) {
			$pos = $i;
			last;
		}
	}
	# Ok, it looks like the $files indexes are messed up. But you have to keep
	# in mind that the array is sorted in *reverse* order.
	if ($pos > 0) {
		print "<a href=\"/index.pl/$files[$pos-1]\">next</a>\n";
	} else {
		print "next\n";
	}
	print "<a href=\"/\">index</a>\n";
	if ($pos < $#files) {
		print "<a href=\"/index.pl/$files[$pos+1]\">prev</a>\n";
	} else {
		print "prev\n";
	}
	print "</div>\n";
	print "<hr>\n";

	my $path = "$webroot$pathinfo";
	print "<div class=\"smallcontent\">\n";
	if ($pathinfo =~ /\.thm$/) {
		# Movie
		my $mpath = $path;
		$mpath =~ s/\.thm$/.flv/;

		print <<EOD
<script type="text/javascript" src="https://media.dreamhost.com/ufo.js"></script>
<div id="movie" class="smallpicture">
<a href="$mpath"><img src="$path"></a>
<a href="http://www.macromedia.com/go/getflashplayer">Get the Flash Player</a> to see this movie.</div>

<script type="text/javascript">
var FO = {movie:"http://pix.bytex64.net/mediaplayer.swf",width:"320",
	  height:"240",majorversion:"7",build:"0",bgcolor:"#FFFFFF",
	  flashvars:"file=http://pix.bytex64.net$mpath&showdigits=true&image=$path"
	  };
UFO.create(FO,"movie");
</script>
EOD

	} else {
		# Image
		my $spath = "$webroot/small$pathinfo";
		print "<div class=\"smallpicture\"><a href=\"$path\"><img src=\"$spath\"></a></div>\n";
	}
	my $exif = getjhead("$root$pathinfo");
	print "<div class=\"smallinfo\">\n";
	my $cdata = parse_comment($exif->{'Comment'});
	print "<div class=\"comment\">$cdata->{subject}</div>\n";
	print $cdata->{data};
	print "</div>\n";
	if (param('comment')) {
		print "<a name=\"addcomment\"></a>";
		print "<form method=\"POST\">\n";
		print "<p>Name: <input type=\"text\" name=\"name\"/>\n";
		print "<p>URL: <input type=\"text\" name=\"url\"/>\n";
		print "<p>Comment:\n";
		print "<p><textarea name=\"text\" cols=\"40\" rows=\"8\"></textarea>\n";
		print "<p><input type=\"submit\" value=\"add\">\n";
		print "</form>\n";
	} else {
		print "<a href=\"/index.pl$pathinfo?comment=1#addcomment\" style=\"float: right\">add comment</a>\n";
	}
	if (-d "$root/comments/$pathinfo") {
		print "<h2>Comments</h2>\n";
		print_comments($pathinfo);
		print "</div>\n";
	}
} else {
	# Nav stuff
	print start_form("GET","/index.pl"),textfield('filter','',20),' <input type="submit" value="filter"> <a href="/help.html#filter">?</a>',end_form(),"\n";
	print "<a href=\"$rsslink\">rss</a>\n";
	print "<a href=\"source.txt\">source</a>\n";
	print "</div>\n";
	print "<hr>\n";

	print "<div class=\"content\">\n";
	pager();
	my $start = $page * $entries_per_page;
	my $end = $start + $entries_per_page - 1;
	foreach (@files[$start .. $end]) {
		my ($tn, $i);
		$i = $_;
		next if (not -f "$root/$i");
		my $ti = $i;
		$ti =~ s/\.thm$/.jpg/;
		if (-e "$root/thumbnail/$ti") {
			$tn = "$webroot/thumbnail/$ti";
		} else {
			$tn = "notfound.png";
		}
		my $exif = getjhead("$root/$i");
		my $texif = getjhead("$root/thumbnail/$ti");
		my ($tw,$th) = split(/ x /,$texif->{'Resolution'});
		print "<p><div class=\"picture\">\n";
		print "<a href=\"/index.pl/$i\"><img width=\"$tw\" height=\"$th\" src=\"$tn\"/ alt=\"[$i]\"></a>\n";
		print "<div class=\"info\">\n";
		my $cdata;
		if (exists $exif->{'Comment'}) {
			$cdata = parse_comment($exif->{'Comment'});
			print "<div class=\"comment\">",$cdata->{subject},"</div>\n";
		}
		opendir COMMENTS, "$root/comments/$i";
		my $nc = 0;
		$nc++ foreach grep {/^[^.]/} readdir(COMMENTS);
		closedir COMMENTS;
		print "<div>$nc comments</div>\n";
		foreach (@exiftags) {
			print "<div>$_ : ${$exif}{$_}</div>\n";
		}
		if ($cdata->{tags}) {
			print "<div>tags: $cdata->{tags}</div>";
		}
		print "</div>";
		print "</div>\n\n";
	}
	print "</div>\n";
}

print end_html();

sub getjhead {
	my $img = shift;
	my %ehash;

	open JHEAD, "/usr/bin/jhead $img|";
	while (<JHEAD>) {
		next if /^$/;
		if (/^([^:]*?)\s*: (.*)$/) {
			my ($k, $v) = ($1, $2);
			if (exists $ehash{$k}) {
				$ehash{$k} .= "\n$v";
			} else {
				$ehash{$k} = $v;
			}
		}
	}
	close JHEAD;
	return \%ehash;
}

sub print_comments {
	my $file = shift;
	return if not -d "$root/comments/$file";
	opendir COMMENTS,"$root/comments/$file";
	my @comments = sort grep {/^[^.]/} readdir(COMMENTS);
	closedir COMMENTS;

	foreach (@comments) {
		open C,"$root/comments/$file/$_";
		my $name = <C>;
		chomp $name;
		my $url = <C>;
		chomp $url;
		my $nametag;
		if ($name && $url) {
			$nametag = "<a href=\"$url\">$name</a>";
		} elsif ($name) {
			$nametag = $name;
		} elsif ($url) {
			$nametag = "<a href=\"$url\">$url</a>";
		} else {
			$nametag = "Some Anonymous Jackass";
		}
		print "<div class=\"commentheader\">$nametag says:</div>\n";
		print join("<br/>\n",<C>);
		close C;
	}
}

sub uniq {
	my $last = $_[0];
	foreach (@_[1..$#_]) {
		if ($_ eq $last) {
			$_=undef;
		} else {
			$last = $_;
		}
	}
	return grep {defined $_} @_;
}

sub rss {
	print "Content-type: application/rss+xml",$CRLF,$CRLF;

	print '<?xml version="1.0"?>',"\n";
	print '<rss version="2.0">',"\n";
	print "\t<channel>\n";
	print "\t\t<title>$rssname</title>\n";
	print "\t\t<link>${rssurl}index.pl?filter=" . urlescape($filter) . "</link>\n";
	print "\t\t<description>$rssdescription</description>\n";

	my $max = ($#files > 49 ? 49 : $#files);
	foreach my $i (@files[0..$max]) {
		my $exif = getjhead("$root/$i");
		my $cdata = parse_comment($exif->{'Comment'});
		my @comments = map { chomp; $_ } split(/^/,$exif->{'Comment'});
		print "\t\t<item>\n";
		print "\t\t\t<title>",htmlescape($cdata->{subject}),"</title>\n";
		print "\t\t\t<link>${rssurl}index.pl/$i</link>\n";
		print "\t\t\t<guid>${rssurl}index.pl/$i</guid>\n";
		$i =~ s/\.thm$/.jpg/;
		print "\t\t\t<description>",htmlescape("<img src=\"${rssurl}pix/thumbnail/$i\"/>\n<p>\n"),htmlescape($cdata->{data}),"</description>\n";
		print "\t\t</item>\n";
	}

	print "\t</channel>\n";
	print "</rss>\n";
}

# this function is crap.
sub urlescape {
	local $_ = shift;
	s/ /%20/g;
	return $_;
}

sub htmlescape {
	map {
		s/&/&amp;/g;
		s/</&lt;/g;
		s/>/&gt;/g;
		s/"/&quot;/g;
		$_;
	} @_;
}