#!e:\perl\bin\perl.exe
use strict;
use Framework;
use CGI;
use DBI;
use Date::Manip;
use constant BASEPATH => 'c:/progra~1/apache~1/apache/cgi-bin/';
InsertPage_hashref ( {
    pagename=> "Entry",
    module =>  BASEPATH . 'entry.pl',
    description => "Entrance to the journal",
    traverse_list => {Entry=>0,
                      writejournal => 0,
                      readjournal  => 0,
                      editjournal  => 0},
    traverse_sub => \&entry_trav,
    validator => undef,
    errorhandler => undef,
    template => 'templates/JEntry.html',
    preprocess => undef,
    postsubmit => undef,
    params => ["read.x","write.x","edit.x"]});
InsertPage_hashref ( {
    pagename=> "writejournal",
    module =>  BASEPATH . 'jwrite.pl',
    description => "write a new journal entry",
    traverse_list => {Entry=>0,
                      writejournal => 1,
                      readjournal  => 0},
    traverse_sub => \&entry_trav,
    validator => \&write_valid,
    errorhandler => undef,
    template => 'templates/Jwrite.html',
    preprocess => undef,
    postsubmit => \&write_sub,
    params => []});
RunPages;