34 lines
808 B
Perl
34 lines
808 B
Perl
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
|
||
|
|
package LJ::ModPerl;
|
||
|
|
use strict;
|
||
|
|
use lib "$ENV{'LJHOME'}/cgi-bin";
|
||
|
|
use Apache;
|
||
|
|
|
||
|
|
# pull in libraries and do per-start initialization once.
|
||
|
|
require "modperl_subs.pl";
|
||
|
|
|
||
|
|
# do per-restart initialization
|
||
|
|
LJ::ModPerl::setup_restart();
|
||
|
|
|
||
|
|
# delete itself from %INC to make sure this file is run again
|
||
|
|
# when apache is restarted
|
||
|
|
delete $INC{"$ENV{'LJHOME'}/cgi-bin/modperl.pl"};
|
||
|
|
|
||
|
|
# remember modtime of all loaded libraries
|
||
|
|
if ($LJ::IS_DEV_SERVER) {
|
||
|
|
%LJ::LIB_MOD_TIME = ();
|
||
|
|
while (my ($k, $file) = each %INC) {
|
||
|
|
next if $LJ::LIB_MOD_TIME{$file};
|
||
|
|
next unless $file =~ m!^\Q$LJ::HOME\E!;
|
||
|
|
my $mod = (stat($file))[9];
|
||
|
|
$LJ::LIB_MOD_TIME{$file} = $mod;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
# compatibility with old location of LJ::email_check:
|
||
|
|
*BMLCodeBlock::check_email = \&LJ::check_email;
|
||
|
|
|
||
|
|
1;
|