<Location /archive>
SetHandler perl-script
PerlHandler My::Archive
</Location>

##</code><code>##

sub handler {
    my $r = shift;

    my $path = $r->path_info();
    my $q = Apache::Request->new($r);

    my $dbh = getDataBaseHandle();

    $path =~ s/\.html$//;
    my ($junk, $list, $year, $mon, $msg) = split(/\//, $path);
    if(!$year) {
        displayYears($q, $dbh, $list);
    } elsif(!$mon) {
        displayMonths($q, $dbh, $list, $year);
    } elsif(!$msg) {
        displayMsgs($q, $dbh, $list, $year, $mon);
    } else {
        displayMessage($q, $dbh, $list, $year, $mon, $msg);
    }
}