#!/usr/bin/perl

#use strict;

my $uid = $<;
my $top = "";
if( $uid == 1000 ) { $top = "/var/www"; }

my $DIRC= $top . "/whales/newminutes/";
my ( @DL, @DRL, @REST );
my ($E, @EPG, $FH, $FL, $FN, $FNC, $KEY, $KEYC, $MN, $N, $OE );
my ( @PG, @TPG, $X, $YR );

sub rev { $b cmp $a; }

( $N, @REST ) = @ARGV;

unless ( defined $N ) { 
	$N = 0;
}
	print "Content-type: text/html\n\n";

# validate 
if ( $N < 0 or $N > 300 ) {
	print STDERR "ERROR Crafting\t"; 
	exit(1);
}

my %HM = ( "01" => "January", 
		   "02" => "February", 
		   "03" => "March", 
		   "04" => "April", 
		   "05" => "May", 
		   "06" => "June",
		   "07" => "July", 
		   "08" => "August", 
		   "09" => "September", 
		   "10" => "October", 
		   "11" => "November", 
		   "12" => "December"
 );

if ( opendir(DH, "$DIRC")  ) {
	@DL = readdir(DH);
	closedir(DH);
	foreach $E ( @DL ) {
		if ( $E =~ m/^\..+|^\.$|^[a-zA-Z]+/ ) { next; }
		$OE = $E;
		$E =~ s/(^[0-9]{2})([0-9]{2})\.html$/$2$1\.html/;
		$E =~ s/(^9[0-9]{3})\.html$/19$1\.html/;
		$E =~ s/(^0[0-9]{3})\.html$/20$1\.html/;
		push @DRL, "$E=$OE "
		}
# read first line parse keys and data
	@DRL = sort rev @DRL;

	if ( $N > $#DRL ) { $N = $#DRL; }
	if ( $N < 0 ) { $N = 0; }

	 ( $KEY, $FN ) = split /=/, $DRL[$N+1];
	 ( $KEYC, $FNC ) = split /=/, $DRL[$N];
	 chop $FN;
	 ($YR, $MN ) = ( substr($KEY,0, 4), substr($KEY, 4, 2));

	open HPG, "$DIRC/../comps/topmeetings.comp" or die "Page top not found\n";
	@TPG = <HPG>;
	close HPG;
	open HPG, "$DIRC/$FNC" or die "Page:$DIRC/$FNC Not Found\n";
	@PG = <HPG>;
	close HPG;
	open HPG, "$DIRC/../comps/endmeetings.comp" or die "Page end Not Found\n";
	@EPG = <HPG>;
	close HPG;
	$N++;
	print @TPG;
	print "<p><b>Previous Issue:<a href=\"/cgi-bin/nmins.pl\?$N\">\n";
	print "$HM{$MN} $YR</b></a><br><p>\n\n";
	print @PG;
	print @EPG;
}
else { 
	print STDERR "NO SUCH FILE TO OPENDIR\n";
	die "No dir $DIRC\n";
	exit(1);
}

exit(0);