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;