#!/usr/bin/perl -w

use strict;
use Unamerican::Truth;

my @CONNECT   = (
    "dbi:mysql:database=truth",     # connect string
    "beppu",                        # user
    "",                             # passwd
    undef                           # options hash
);

my $TMPL_PATH = ".";                # path to template files

my $truth = Unamerican::Truth->new (
    TMPL_PATH => $TMPL_PATH,
    PARAMS    => { 

	# database handle
        dbh               => DBI->connect(@CONNECT),

	# number of truths to display per page
        proverbs_per_page => 14,

	# 0 for bullet points | 1 for numbers
        is_numbered       =>  1,    

    },
);

$truth->run;