#!/usr/bin/perl

use HTML::Template;
use File::Find;
use ModPerl::Util;
use ModPerl::Registry ();
use Apache::DBI;
use Apache2::RequestRec ();
use Apache2::RequestIO ();
use Apache2::Filter ();
use Apache2::RequestUtil ();
use Apache2::ServerRec ();
use Apache2::ServerUtil ();
use Apache2::Connection ();
use Apache2::Log ();

use APR::Pool ();
use APR::Table ();
use Apache2::Const -compile => ':common';
use APR::Const -compile =>  ':common';
use Socket qw(:DEFAULT :crlf);
use Net::Ping;
use Net::NBName;
use POSIX qw(strftime);
use Date::Calc qw( Today Add_Delta_Days );
use DBI;
use DBD::ODBC;
Apache::DBI->connect_on_init( 'dbi:ODBC:MRIServer2k', 'mriinventory', 'Wysiwyg@3044',
                           { PrintError  =>  1, RaiseError => 0, AutoCommit => 1 } );

print STDERR    "Pre-loading HTML Template...\n";
find (
      sub {
        return unless /\.tmpl$/;
        HTML::Template->new(
                                            filename => "$File::Find::dir/$_",
                                            cache  => 1,
                           );
      },
      '/var/www/yanma/templates',
     );