#!/usr/pkg/bin/perl
#+JMJ
# template.pl - Perl script template (command line)
# Copyright 201x David Meyer. All rights reserved.
# template.pl is part of template

# Identification ####################################################

$PROGRAM     = 'template' ;
$VERSION     = '0.0' ;
$SRCFILE     = 'template.pl' ;
$COPYRIGHT   = 'Copyright 201x David Meyer' ;
$DESCRIPTION = 'Perl script template (command line)' ;
$USAGE       = "Usage: template [<options>] [<argument> ...]" ;
$CONTACT     = 'David Meyer <papa@sdf.org>' ;

$prevmo = $prevda = $prevyr = "";

open(BLINKS, "ls -lt `find /arpa/ns/p/papa/cave/green/ -name *.blink`|");

while (<BLINKS>) {
	chop $_;
	($tpm, $hlc, $own, $grp, $siz, $mmo, $mda, $mty, $fn) = split(/\s+/, $_);

	if ($mty =~ /:/) {
		if ($mmo ne $prevmo || $mda ne $prevda) {
			if ($prevmo ne "") { print "</ul>\n"; }
			print "<h2>$mmo $mda</h2>\n<ul>\n";
		}
	}
	else {
		if ($mmo ne $prevmo || $mda ne $prevda || $mty ne $prevyr) {
			if ($prevmo ne "") { print "</ul>\n"; }
			print "<h2>$mmo $mda, $mty</h2>\n<ul>\n";
		}
	}
	$prevmo = $mmo; $prevda = $mda; $prevyr = $mty;

	$fn =~ m:([^/]+)/[^/]*$:;
	$cat = $1;
	open(BLINK, "<$fn");
	$title = <BLINK>;
	$uri = <BLINK>;
	close BLINK;
	chop($title, $uri);
	print "<li><a href=\"$uri\">$title [$cat]</a></li>\n";
	
}
print "</ul>\n";