44 lines
1012 B
Perl
44 lines
1012 B
Perl
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use lib "$ENV{LJHOME}/cgi-bin";
|
||
|
|
|
||
|
|
BEGIN {
|
||
|
|
$LJ::HAVE_INLINE = eval 'use Inline Config => DIRECTORY => ($ENV{LJ_INLINE_DIR} || "$ENV{LJHOME}/Inline"); use Inline "C"; 1;';
|
||
|
|
|
||
|
|
# to shutup Apache::SendStat's warning:
|
||
|
|
$LJ::JUST_COMPILING = 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
print "This script will recompile ljcom's Inline.pm C code, if necessary. You need a C compiler installed.\n";
|
||
|
|
|
||
|
|
unless ($LJ::HAVE_INLINE) {
|
||
|
|
print "\nBut you don't have Inline.pm installed, so quitting now.\n";
|
||
|
|
exit 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
print "Testing your Inline install...\n";
|
||
|
|
unless (inline_test()) {
|
||
|
|
print "Error. Sure you have a C compiler installed?\n";
|
||
|
|
exit 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
print "ljlib/ljlib-local.pl (if anything)...\n";
|
||
|
|
require "ljlib.pl";
|
||
|
|
|
||
|
|
print "Apache::SendStats...\n";
|
||
|
|
# wrapped in eval because ap_scoreboard_image isn't around
|
||
|
|
# when not running inside apache
|
||
|
|
eval "use Apache::SendStats;";
|
||
|
|
|
||
|
|
print "Done.\n";
|
||
|
|
|
||
|
|
__DATA__
|
||
|
|
__C__
|
||
|
|
|
||
|
|
int inline_test () {
|
||
|
|
printf("Your Inline install is good. Proceeding...\n");
|
||
|
|
return 1;
|
||
|
|
}
|