#!/usr/bin/perl # # site-local version of modperl_subs.pl package LJ::ModPerl; use strict; # pull in a lot of useful stuff before we fork children use LJ::Nav; use lib "$ENV{LJHOME}/cgi-bin"; require "phonepost.pl"; require "paylib.pl"; sub setup_restart_local { Apache->httpd_conf(qq { ErrorDocument 404 /404-error-local.bml # Alternate SUP BML pages support: SetHandler perl-script PerlHandler Apache::BML }); ## load IpMap data into memory before Apache forks, ## so that data will be in shared memory require 'ljcom.pl'; my $ipmap = LJ::LJcom::get_ipmap(); } 1;