#!/usr/bin/perl

require "/usr/local/bin/woda/woda-uk.pl" unless defined &main;

#
# Database definition:
#

$WBB{'dbTitle'} = 'actualites';
$WBB{'recordTitle'} = 'article';
$WBB{'dataDir'} = '/home/novonet/dheage/data/actualite';
$WBB{'homeURL'} = '/cgi-bin/actualite';
$WBB{'requireFile'} = '/home/novonet/dheage/HTML/cgi-bin/html';
$WBB{'tables'} = 'html';
$WBB{'userTable'} = 'gestion';

$WBB{'formatName1'} = 'Chapeau';
$WBB{'formatHead1'} = '<TABLE CELLSPACING=18 CELLPADDING=8 WIDTH=500 BORDER=0>';
$WBB{'formatRow1'} = <<'EOM';
&PIC();
"<TR><TD WIDTH=500 HEIGHT=100 BGCOLOR=#EEEEFF VALIGN=top>
<SMALL>$rec{date} &nbsp;&nbsp; <B>$rec{titre}</B></SMALL><BR>
<SMALL>$pic{chapeau} &nbsp;- <A HREF=$ThisRecordURL>(suite)</A></SMALL>
</TD></TR>\n"
EOM
$WBB{'formatFoot1'} = '</TABLE>';

$WBB{'formatName3'} = 'Titre et date';
$WBB{'formatHead3'} = '<OL>';
$WBB{'formatRow3'} = <<'EOM';
"<LI><A HREF=$ThisRecordURL>$rec{titre}</A>&nbsp;&nbsp;<SMALL>$rec{date}</SMALL>\n"
EOM
$WBB{'formatFoot3'} = '</OL>';

# article complet
$WBB{'detail'}= <<'EOM';
&PIC();
"<H2 ALIGN=center>$rec{titre}</H2>
<center>
    <I>$rec{date}</I>
</center>
<P CLASS=text>
    <I>$pic{chapeau}</I>
</P>
<P CLASS=text>
    $pic{texte}
</P>"
EOM

#
# Field definitions:
#

$i=1000;		# counter


# add-in functions are here:
require "$WBB{'requireFile'}" if $WBB{'requireFile'};

# for the compiled version
dump START if $ARGV[0] eq '-dump';
START:

# call the real thing

do main();