#!/usr/bin/perl

print "\n\nnot finished; fix alignment; use a2pdf\n\n";
exit 0;

# $Id: mkdt2,v 1.5 2012/03/19 00:53:22 adamm Exp adamm $
#
# $Source: /home/adamm/menlo.com/menlo/forms/RCS/mkdt2,v $

use strict;
use warnings;
use English qw( -no_match_vars );
use File::Basename;
use POSIX qw( strftime );

my $PROG = basename $PROGRAM_NAME;

my @LINES = (
     "",
     "+---------------------------------------------------+",
     "| Date:                                        YYYY |",
     "+-------+-------+-------------------+-------+-------+",
     "| (WAH) |   :   |                   |   :   | (WAH) |",
     "| Tasks:                                            |",
     "|                                                   |",
     "|    mi |   :   |                   |   :   |    mi |",
);

my @MARKS;

my @ORDER = (
    1, 2, 1, 0,
    3, 4, 3, 5, 1, 6, 1, 0,
    3, 7, 3, 5, 1, 6, 1, 6, 1, 0,
    3, 7, 3, 5, 1, 6, 1, 6, 1, 0,
    3, 7, 3, 5, 1, 6, 1, 6, 1, 0,
    3, 4, 3, 5, 1, 6, 1,
);

sub main {
    my $n;

    fillMarks();
    fillBlanks();
    fillDate();

    printf "<b><pre>\n";

    $n = 0;
    foreach my $line (@ORDER) {
	emitLine2($line, $n++);
    }

    printf "</pre></b>\n";
} # main

sub emitLine2 {
    my ($line, $n) = @_;

    printf "    %s", $LINES[$line];
    if (($n == $MARKS[0]) || ($n == $MARKS[1]) || ($n == $MARKS[2])) {
	printf "    ||";
    } else {
	printf "      ";
    }
    printf "    %s", $LINES[$line];
    printf "\n";
} # emitLine2

sub fillBlanks {
    ($LINES[0] = $LINES[1]) =~ s/./ /g;
} # fillBlanks

sub fillDate {
    my $year = strftime "%Y", localtime(time());
    foreach my $line (@LINES) {
	$line =~ s/YYYY/$year/;
    }
} # fillDate

sub fillMarks {
    $MARKS[0] = 0;
    $MARKS[2] = $#ORDER;
    $MARKS[1] = int($MARKS[2] / 2);
} # fillMarks

sub versionString {
    my $name;
    my @rcsInfo;
    my $string;

    $name = shift @_;

    @rcsInfo = split(
        /\s/x,
        '$Id: mkdt2,v 1.5 2012/03/19 00:53:22 adamm Exp adamm $'
    );

    if ((defined $name) && ($name == 0)) {
	$string = sprintf "v%s, %s %s UTC",
	    $rcsInfo[2], $rcsInfo[3], $rcsInfo[4];
    } else {
	$rcsInfo[1] = basename $rcsInfo[1], ",v";
	$string = sprintf "%s v%s, %s %s UTC",
	    $rcsInfo[1], $rcsInfo[2], $rcsInfo[3], $rcsInfo[4];
    }

    return $string;
} # versionString

main();