28 lines
636 B
Perl
28 lines
636 B
Perl
BEGIN {
|
|
use File::Basename qw(dirname);
|
|
use lib dirname(__FILE__);
|
|
}
|
|
|
|
use Apache2::Log;
|
|
local *CORE::GLOBAL::warn = \&Apache2::ServerRec::warn;
|
|
local $SIG{__WARN__} = \&Apache2::ServerRec::warn;
|
|
# ^ use ErrorLog file set at Apache2 configuration
|
|
# see https://perl.apache.org/docs/2.0/api/Apache2/Log.html for details
|
|
|
|
use Data::Dumper;
|
|
use Time::Local();
|
|
use Date::Calc();
|
|
use Calendar::Simple qw(date_span);
|
|
|
|
use config();
|
|
use log();
|
|
use time();
|
|
use db();
|
|
use template();
|
|
|
|
# build compile check include list:
|
|
# ls -1 lib/calcms/*.pm | perl -ne 'if (/([^\/]+).pm/){ print "use $1(); "}'
|
|
|
|
#do not delete last line!
|
|
return 1;
|