24 lines
470 B
Perl
24 lines
470 B
Perl
|
#!/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 lib "$ENV{'LJHOME'}/cgi-bin";
|
||
|
|
use XMLRPC::Lite; # for cmdbuf:pay_fb_xmlrpc hook
|
||
|
|
|
||
|
|
require "phonepost.pl";
|
||
|
|
require "paylib.pl";
|
||
|
|
|
||
|
|
$LJ::OPTMOD_CRACKLIB = eval "use Crypt::Cracklib qw(); 1;";
|
||
|
|
$Crypt::Cracklib::DICT = "$ENV{'LJHOME'}/cgi-bin/cracklib/dict";
|
||
|
|
|
||
|
|
$LJ::OPTMOD_GEOIP = eval "use Geo::IP::PurePerl (); 1;";
|
||
|
|
|
||
|
|
1;
|