Strawberry Perl & Apache 2.2 :: Hinnavaatluse Foorumid

sakunne · HV veteran liitunud: 15.12.2004

WinXP
Apache 2.2
Strawberry Perl 5.16.2.1

Ei saa mod_perl'i käima kuidagi, proovisin:
http://www.aptest.com/atm2/documentation/latest/readme/apache-windows.html
setup_spmp.pl fail, jooksutamisel kobiseb midagi 67, 70, 71 rea kohta: 'Use of uninitialised value $apache2 in in concatenation <.> ...
Muidu töötab ja väidab, et installib mod_perl.so, mod apreg2.so ja libapreg.dll, tegelt ei installi miskit

Spoiler

#!c:/strawberry/perl/bin/perl.exe
#
# setup_spmp.pl - setup strawberry perl mod_perl
#
# This script ASSUMES that strawberry perl is installed in c:/strawberry
# (the default). It looks for apache in the usual places, but you can
# override the location interactively

use strict ;
use warnings;
use ExtUtils::MakeMaker;
use Getopt::Std ;
use LWP::Simple;
use File::Copy;
use Config;
require Win32;
require File::Spec;

die "This only works for Win32" unless $^O =~ /Win32/i;

my $mploc = "http://downloads.aptest.com/sperl/mp/5.12_x86" ;

# archives to install using pip
my @pars = qw( libapreq2-2.12-MSWin32-x86-multi-thread-5.12.par
mod_perl-2.0.4-MSWin32-x86-multi-thread-5.12.par );

# pieces to put in the modules directory
my @mods = qw( mod_perl.so mod_apreq2.so );

# dlls to put in the apache bin directory
my @dlls = qw( libapreq2.dll ) ;

use vars qw($opt_n) ;

my $options = "nv" ;

getopts($options) || usage() ;

# where is Apache?
my $modDir = "" ;
my $binDir = "" ;

my ($apache2, $apache, $apache22);
my @drives = drives();

# find a possible Apache2 directory
APACHE2: {
for my $drive (@drives) {
for my $p ('Apache2', 'Apache22', 'Program Files/Apache2',
'Program Files/Apache Group/Apache2',
'Program Files/Apache Group/Apache2.2',
'Program Files/Apache Software Foundation/Apache2.2') {
my $candidate = File::Spec->catpath($drive, $p);
if (-d $candidate) {
$apache2 = $candidate;
last APACHE2;
}
}
}
}

if ($apache2) {
print "Found Apache in $apache2\n";
$apache2 =~ s/\\/\//g;
}
my $ans = prompt(qq{Install mod_perl for "$apache2"?}, 'yes');
exit 0 if ($ans !~ /^y/i) ;

$modDir = $apache2."/modules";
$binDir = $apache2."/bin";

# okay - we know where to put the mod_perl files

foreach (@pars) {
my $cmd = "pip $mploc/$_" ;
print "Installing $_\n";
qx($cmd) unless ($opt_n);
if ($?) {
print "There was an error: $?\n";
exit 1;
}
}

# download the apache modules

foreach (@mods) {
my $cmd = "lwp-download $mploc/$_ $_";
print "$cmd\nInstalling $_ into $modDir\n";
qx($cmd) unless ($opt_n);
if ($?) {
print "There was an error: $?\n";
exit 1;
}
copy "$_", "$modDir";
unlink "$_";
}

# download the DLLs

foreach (@dlls) {
my $cmd = "lwp-download $mploc/$_ $_";
print "Installing $_ into $binDir\n";
qx($cmd) unless ($opt_n);
if ($?) {
print "There was an error: $?\n";
exit 1;
}
copy "$_",$binDir;
unlink "$_";
}

sub usage {
print "usage: setup_spmp.pl [-n -v]\n";
exit 1;
}

sub fix_path {
my $file = shift;
$file = Win32::GetShortPathName($file);
$file =~ s!\\!/!g;
return $file;
}

sub drives {
my @drives = ();
eval{require Win32API::File;};
return map {"$_:\\"} ('C' .. 'Z') if $@;
my @r = Win32API::File::getLogicalDrives();
return unless @r > 0;
for (@r) {
my $t = Win32API::File::GetDriveType($_);
push @drives, $_ if ($t == 3 or $t == 4);
}
return @drives > 0 ? @drives : undef;
}

Jooksutasin ka:

Spoiler

Mis edasi

EDIT:
Siukest asja ka pole:
/conf/extra/httpd-perl.conf
Panin käsitsi mod_perl.so, mod apreg2.so ja libapreg.dll,
ei miskit

Fukiku · Kreisi kasutaja liitunud: 06.11.2003

Tõenäoliselt ei leia skript sul Apache kataloogi üles kõvakettalt. Uuri, kas õnnestub skriptile see käsitsi ette anda.

sakunne · HV veteran liitunud: 15.12.2004

Krt, ei tunne Perl'i, proovisin C:\ ja C:\Apache2.2
Script ise esimeses postis spoileris
Veateade selline:

Spoiler

infidel · HV kasutaja liitunud: 31.01.2004

Seal ta näitabki, et $apache2 ei saa väärtust, st ta ei leia seda üles.

sakunne · HV veteran liitunud: 15.12.2004

infidel, sellega on siis asi korras, moodulid mod_perl, apreq2 ja dll on paigas,
Test configuration ütleb:
Syntax error: Cannot load mod_perl.so module. The specifiead module could not be found.
Ometi os ta seal olemas.
Direktiiv ise on selline:
LoadModule perl_module modules/mod_perl.so

Mis siin viga on ???

Comm: pole veeel kohanud nii halvasti dokumenteeritud asja - naljavennad: http://win32.perl.org/

infidel · HV kasutaja liitunud: 31.01.2004

Mis ta selle peale ütleb, kui mooduli asukoht httpd.confis absoluutaadressiga anda?

sakunne · HV veteran liitunud: 15.12.2004

infidel · HV kasutaja liitunud: 31.01.2004

Kas mod_perl on ikka õige versiooni oma?
Ühes kohas on versiooninumbriks 5.10, teises 5.12 ja kolmandas 5.16.

sakunne · HV veteran liitunud: 15.12.2004

Mul Strawberry Perl 5.16, leidsin sellise koha, a'mis sellega teha:
http://blogs.perl.org/users/phred/2012/06/mod-perl-207-released-with-perl-516-compatibility.html
http://apache.org/dist/perl/mod_perl-2.0.7.tar.gz

Lihtsam on vist panna mingi vanem Perl, 5.14 näiteks

infidel · HV kasutaja liitunud: 31.01.2004

Kui 5.16, siis kae siia:
http://people.apache.org/~stevehay/

sakunne · HV veteran liitunud: 15.12.2004

Ära sa märgi, töötabki

Tänud