#! /usr/bin/perl

#######################################################
# 
# main custom page generation program
#
#######################################################

# DO NOT EDIT THE NEXT LINE MANUALLY
#   IT IS MAINTAINED BY make & perlfix
BEGIN { require "../../perl/lib/Sitedefs.pm"; }
#
use strict;

use CGITracker;
use ErrorLog;

use HomeBox;

#
#  set up CGI processing
#

my $q = new CGITracker qw( :standard );
my $modify = $q->param('mod');

#
#  set up preferences from ClientID
#

my $cid = $q->GetClientId();
# my $cid = 1;

my $prefs = new Preference($cid);

#
# generate page based on editing data
#

my $home = new HomeBox($prefs, $modify);

$q->Print($home->getString());
$q->EndPrint();