#!/bin/nice /usr/local/bin/perl5
#
# i n d e x . c g i
# 
# index.cgi is the home page for www.wanderlist.com
#
# Structure of page should be:
#     - New To You - list.bornon > last Session.BornOn
#     - CumHits listing of lists
#     - Top five Elements
#     - Alpha listing of lists
#


$|++;
use strict;
if ($ENV{'HTTP_HOST'} eq "monster.bnf.net:8002") {
    use lib ('/var/www/libs','/var/www/libs/bnf');
} elsif ($ENV{'HTTP_HOST'} eq "ww.bnf.net") {
    use lib ('/usr/home/bfoote/libs','/usr/home/bfoote/libs/bnf');
} 

use BNF;

my $page = new BNF;

my $workDir = "/var/www/monster/bnf/pacmanhattan";
my $statusFile = "pacstat";

print "\n\n";

exit;