#!e:/programme/bin/perl.exe -w
#index.cgi - Homepage der PseudEcom

use strict;
use lib qw /./;
use WebDB;
use WebDB::PseudEcom;
use CGI qw /:standard/;
use CGI::Carp qw /fatalsToBrowser/;

package WebDB::PseudEcom;

#öffentliche Funktionen die exportiert werden:

require Exporter;
@ISA = qw /Exporter/;
@Exporter = qw ( 
            haupt_url
            home_link
            dokumente_link
            tierpflege_link
            kontakt_link
            zufgarantie_link
            datenschutz_link
            feedback_link
            vote_link
            kkartentyp_liste
            ablauf_monat_liste

            ablauf_jahr_liste
            standardlayout
            schwerer_fehler
        );

use strict;
use lib qw /./;
use CGI qw /:standard escape escapeHTML/;
use WebDB;