Perl_mod und Psychostats

[dudave]

Hi ihr ;P

Ich hab Xxamp jetzt ca eine Woche drauf und alles läuft super!!
Mein CS:CZ Server (Lan) mit AMX Mod benutzt die SQL Datenbank und sowohl AdminDaten als auch XP des Warcraft3 Plugins werden ausgetauscht.
Jetzt wollte ich auch noch alle möglichen Statisiken ausgeben lassen und auf meinem Internen Webserver anzeigen lassen, daher hab ich Psychostats installiert. Allerdings braucht Psychostats perl.. (active perl)

Also dachte ich mir... installier einfach das Perl addon. Soweit so gut, installiert... aber nix gut...

Wenn ich die install.pl aufrufen möchte kommt nur eine Fehlermeldung:

Code: Select all

Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator, admin@localhost and inform them of the time the error occurred, and anything you might have done that may have caused the error.

More information about this error may be available in the server error log.
--------------------------------------------------------------------------------
Apache/2.0.49 (Win32) mod_perl/1.99_13 Perl/v5.8.3 PHP/4.3.7 mod_autoindex/color mod_ssl/2.0.49 OpenSSL/0.9.7c Server at 192.168.0.77 Port 1000

Was soll ich machen?? mod_perl läuft (Status)

danke im Voraus
dudave

[Rolidor]

Servus.

More information about this error may be available in the server error log.

Da stehts wortwörtlich. Gemeint ist die 'error.log' unter 'xampp/apache/logs'.

Gruß
Rolo

[dudave]

Code: Select all

[Thu Jun 17 19:12:38 2004] [notice] Parent: Created child process 804
[Thu Jun 17 19:12:47 2004] [notice] Child 804: Child process is running
[Thu Jun 17 19:12:47 2004] [notice] Child 804: Acquired the start mutex.
[Thu Jun 17 19:12:47 2004] [notice] Child 804: Starting 250 worker threads.
[Thu Jun 17 19:12:47 2004] [error] [client 192.168.0.77] (OS 3)Das System kann den angegebenen Pfad nicht finden.  : couldn't create child process: 720003: install.pl
[Thu Jun 17 19:12:47 2004] [error] [client 192.168.0.77] (OS 3)Das System kann den angegebenen Pfad nicht finden.  : couldn't spawn child process: C:/Eigene Dateien/Web-Server/xampp/htdocs/stats/install.pl


Das steht da drin..
Was sagt mir das??

[Rolidor]

Hallo.
Da haben wir das Ganze sogar auf deutsch:

...Das System kann den angegebenen Pfad nicht finden. : couldn't spawn child process: C:/Eigene Dateien/Web-Server/xampp/htdocs/stats/install.pl

Entweder existiert der Pfad 'C:/Eigene Dateien/Web-Server/xampp/htdocs/stats/' so nicht oder es gibt Trouble wegen dem Leerzeichen in 'Eigene Dateien'. Hatte ebenfalls schon diverse Male Probs wegen Leerzeichen im Pfad.
Möglicherweise musst du im Skript noch den Pfad zu Perl anpassen. Normalerweise steht irgendwo ein entsprechender Hinweis im Skript selbst oder einer Readme-Datei.
Gruß
Rolo

[Wiedmann]

Was sagt mir das??

Perl-Scripte haben in der ersten Zeile einen sogenannten SheBang, der den Pfad zum Perl-Interpreter zeigt.

In deinen Scripten ist der wohl für Linux eigerichtet:
#!/usr/bin/perl

Bei Windows müsste der so sein:
#!C:/xampp/perl/bin/perl.exe

(Pfad evtl. anpassen)

[fawkes]

Hallo!

Bist du dir sicher, dass die install.pl über den Browser aufgerufen
werden muss?
Oder kann das auch ein "normales" Perlskript sein,
welches du vielleicht von Konsole starten musst?

Müsste in der Readme stehen.

Gruß,
fawkes

[dudave]

Code: Select all

#!C:\Eigene Dateien\Web-Server\xampp\perl
BEGIN { use FindBin; use lib "$FindBin::Bin"; }

$| = 1;                     # do not buffer output on STDOUT

our $VERSION = '1.00';

use strict;
use warnings;
no strict 'refs';

use install::Wizard;
use util;
use Carp;
use Cwd;
use File::Copy;
use File::Path;
use File::Spec::Functions qw(:ALL);
use Getopt::Long;
use Data::Dumper;
use LoadConfig;

# -- INITIALIZE -----------------------------------------------------------------------------
LoadConfig->ADDPATH($FindBin::Bin);

no warnings;                     # turn off warnings for this block or perl 5.6.0 will complain
our ($wiz, $conf, $args, $lang, $steps, %order, $conffile);
our ($DBH, $FTP, $FTPROOT);
our $FATAL   = 0;                     # if set to true, no more steps will be processed
our $OS      = $^O;
our $perlver    = sprintf("%vd", $^V);
our @PVER    = split(/\./, $perlver);
our $PPMBASE    = "http://www.psychostats.com/ppm/" . $PVER[0] . '.' . $PVER[1] . '/';      # windows only
our $inpath    = catfile($FindBin::Bin, 'install');                  # install path
our $modfile    = 'modules_' . ($OS ne 'MSWin32' ? 'linux' : $OS) . '.cfg';          # module in-file
use warnings;                     # turn them back on ...

GetOptions(
   'language=s'      => \$args->{lang},
   'listlanguages'      => \$args->{listlang},
   'liststeps'      => \$args->{liststeps},
   'config=s'      => \$args->{config},      # specify a different config to use
   'nopause'      => \$args->{nopause},      # calls to pause() will not wait for input
   'nopaths'      => \$args->{nopaths},      # step_theme
   'nourls'      => \$args->{nourls},      # step_theme
   'options|opts=s'   => \$args->{options},      # special options that a step might want
   'step=s'      => \@{$args->{step}},      # valid steps: pm, db, conf, core, cgi, theme
   'theme=s'      => \$args->{theme},      # step_theme
   'themeinfoonly'      => \$args->{themeinfo},      # step_conf
   'useconfonly|conf'   => \$args->{useconfonly},
   'updateurls'      => \$args->{confupdateurls},   # step_web
   'updateroots'      => \$args->{confupdateroots},   # step_web
   'verify'      => \$args->{verify},      # step_init
   'version'      => \$args->{version},
   'quick'         => \$args->{quick},      # step_theme
   'yes'         => \$args->{yes},
   'no'         => \$args->{no},
   'reset'         => \$args->{reset},
);

if ($args->{reset}) {
  $args->{useconfonly} = $args->{nopause} = $args->{yes} = 1;
}

# initialize the wizard
$wiz = new install::Wizard($args);

$conffile = $wiz->{data}{statscfg} = $args->{config} || 'stats.cfg';

if ($args->{version}) {
  print "Install version: $VERSION\n";
  exit(0);
}

print STDOUT ($OS ne 'MSWin32' ? "Linux/Unix" : "Windows") . " detected (Perl v" . $perlver . ")\n";

{
  if ($args->{listlang}) {   # we can't use a 'language' string here, so a normal 'print' statement is used
    my @langs = map { s/^lang_([^\.]+).+/$1/; $_ } validfiles('install', 'lang_.*\\.cfg');
    print "\nValid languages: " . join(', ', sort @langs) . "\n\n";
    exit(0);
  }

  # load language file, prompt the user for a language if there's more then 1
  my @langs = $args->{lang} ? ( $args->{lang} ) : map { s/^lang_([^\.]+).+/$1/; $_ } validfiles('install', 'lang_.*\\.cfg');
  die("*** FATAL *** No language files found! Aborting installation!") unless @langs;         # no language files?
  my $l = $langs[0];
  my $langstr = "Languages available: " . join(", ", @langs);
  if (@langs > 1) {
    while (1) {
      wraptext($langstr);
      $l = lc(promptfor("Choose your language [$l]: ", $l));
      last if grep { /^\Q$l\E$/ } @langs;               # make sure user response is a valid language name
      print "\n** Invalid response, please choose from the list below\n";
    }
  }
  $wiz->{data}->{language} = $wiz->{data}->{lang} = $l;
  $lang = loadconfig(filename => catfile("install", "lang_$l.cfg"));
  wraptext($lang->{languageloaded});
}

$conf = LoadConfig->load( location => $wiz->{data}->{statscfg}, fatal => 0, warning => 0 );
if (!$conf or !scalar keys %$conf) {
  wraptext($lang->{nostatscfg});
  exit(1);
}

# initialize the 'install' section of the config ...
$conf->{install} = {} unless defined $conf->{install};
$conf->{install}{IDX} = 99999999;
$conf->{install}{SECTION} = "INSTALL";

$wiz->{conf} = $conf;
$wiz->{lang} = $lang;

# -- gather all valid install modules (steps) ------------------------------------------------
{
  %$steps = map { ((/^step_(.+?)\.inc$/)[0] => catfile('install',"$_")) } validfiles('install', '^step_.+?\\.inc$');

  if ($args->{liststeps}) {
    $wiz->{data}->{steplist} = join(', ', sort keys %$steps);
    wraptext($lang->{liststeps});
    exit(0);
  }

  # combine steps specified as '-step step1,step2' (instead of just: -step step1 -step step2)
  my @steps = ();
  foreach my $s (@{$args->{step}}) {
    push(@steps, split(/,/, $s));
  }
  $args->{step} = [ @steps ];

  if (@{$args->{step}}) {               # remove all steps that are not specified on the command line
    my %valid = map {  lc($_), 1  } @{$args->{step}};
    foreach my $k (keys %$steps) {
      delete $steps->{$k} unless $valid{$k};
    }
  }

  delete $steps->{cgi};      # explicitly delete this step, as it will cause problems if people upgrade 2.0.1 over 2.0

  foreach (keys %$steps) {
    $wiz->{data}->{step} = $_;
    if (do $steps->{$_}) {
      my $o;
      eval { my $init = "step_${_}_init"; $o = &$init; };
      if ($@) {
        $wiz->{data}->{steperror} = $wiz->{data}->{steperr} = $@;
        wraptext($lang->{err_stepinit});
        delete $steps->{$_};               # remove step
#        exit(1);
      } else {
        $o++ while (exists $order{$o});            # increment the order value until we find the next unique value
        $order{$o} = $_;               # set the order of the step
      }
    } else {
      $wiz->{data}->{step} = $_;
      $wiz->{data}->{error} = $@;
      wraptext($lang->{err_stepload});
      exit(1);
    }
  }

  if (!scalar keys %$steps) {
    wraptext($lang->{err_nosteps});
    exit(1)
  }

  if (not scalar @{$args->{step}}) {
    print "\n", hline(), "\n";
    wraptext($lang->{installinit});
    print hline(), "\n\n";
    $wiz->pause(1);
  }
}

# -- MAIN -----------------------------------------------------------------------------------
# We simply loop through all of the steps in order
my $total = scalar keys %order;
my $cur = 0;
foreach my $o (sort { $a <=> $b } keys %order) {
  $cur++;
  my $func = sprintf("step_%s", $order{$o});
  my $res = &$func;

  # pause after each step
  if (!$args->{nopause} and (!$res or $res != -1)) {         # do not pause if the step returned -1
    $wiz->pause(1, ($cur<$total and !$FATAL) ? "\nPress enter to continue with next step" : "\nPress enter to exit installation." );
  }

  exit(1) if $FATAL;
}

wraptext($lang->{done});


# --- support functions ---------------------------------------------------------------------
# Since I seem to mistype this a lot, this sub is here simply as an alias
sub wraptext {
  return $wiz->wraptext(@_);
}
# -----------------------------------------------------------------
sub hline {
  my $pat = shift || '- ';
  my $width = shift || $wiz->{SCREENWIDTH};
  return $pat x int( $width / length($pat) );
}
# -----------------------------------------------------------------
# Any 'step' that requires a DB connection should call this first to initialize the DB
# This only makes sure the DBI is present and is 'required' into our namespace.
sub initdb {
  return 1 if defined $DBH;                  # we're already inialized, return current handle
  eval "require DBI";
  if ($@) {
    wraptext($lang->{err_dbi});
    return undef;
  }
  return 1;
}
# -----------------------------------------------------------------
sub validdirs {
  my ($path) = @_;
  my @list = ();
  $path = catfile($FindBin::Bin, $path, '');
  if (opendir(D, $path)) {
    @list = grep { !/^\./ and -d catfile($path, $_) } readdir(D);
    closedir(D);
  };
  return wantarray ? @list : [ @list ];
}
# -----------------------------------------------------------------
sub validfiles { 
  my ($path, $filepattern) = @_;
  my @list = ();
  $path = catfile($FindBin::Bin, $path, '');
  $filepattern ||= '.';
#  print "Searching: $path\n";
  if (opendir(D, $path)) {
    @list = grep { /$filepattern/ and -e catfile($path, $_) } readdir(D);
    closedir(D);
  };
  return wantarray ? @list : [ @list ];
}
# -----------------------------------------------------------------
sub trim {
  my ($str) = @_;
  $str =~ s/^\s+//;
  $str =~ s/\s+$//;
  return $str;
}
# -----------------------------------------------------------------
# not a very effiecent sorting routine, but it does its purpose and is only used once on a small set of files
sub pathsort($$) {
  my ($a,$b) = @_;
  my ($apath, $afile) = (splitpath($a))[1,2];
  my ($bpath, $bfile) = (splitpath($b))[1,2];     
  return lc $apath cmp lc $bpath || lc $afile cmp lc $bfile;
}
# -----------------------------------------------------------------
sub processpath {
  my ($path, $nosubdir) = @_;
  my @list = ();
  foreach my $f (glob($path)) {
    if (-d $f) {
      push(@list, processpath("$f/*")) unless $nosubdir;
    } else {
      push(@list, $f) if -e $f;
    }
  }
  return @list;
}
# -----------------------------------------------------------------
sub writeconfig {
  my ($c, $filename) = @_;
  my ($sub, $key, $value, @list, @sublist);
  $filename ||= $conffile;
#  my $filename = $conffile;      # $conffile is a global var (every programming teachers' nightmare)
  my $length = 0;
  if (open(F, ">$filename")) {
    # first we write all global variables ...
    @list = sort grep { ref $c->{$_} ne 'HASH' } keys %$c;

    foreach (@list) {            # get longest length of variables
      $length = length($_) if length($_) > $length;
    }

    foreach $key (@list) {
      print F _writevar($key, $c->{$key}, '', $length);
    }

    # now we write all non-global variables ...
    @list = sort { ($c->{$a}{IDX} || 0) <=> ($c->{$b}{IDX} || 0) } grep { ref $c->{$_} eq 'HASH' } keys %$c;
    foreach $key (@list) {
      print F "\n[" . (defined $c->{$key}{SECTION} ? $c->{$key}{SECTION} : $key) . "]\n";
      @sublist = sort keys %{$c->{$key}};
      $length = 0;
      foreach (@sublist) {            # get longest length of variables
        $length = length($_) if length($_) > $length;
      }
      foreach $sub (@sublist) {
        next if uc $sub eq $sub;
        print F _writevar($sub, $c->{$key}{$sub}, '  ', $length);
      }
    }
    close(F);
#    $wiz->{conf} = $c;
  } else {
    return 0;
  }
  return 1;
}
# -----------------------------------------------------------------
# internal func for writeconfig(), do not call directly
sub _writevar {
  my ($key, $value, $prefix, $length) = @_;
  my $line = "";
  if (ref $value eq 'ARRAY') {
    $line .= _writevar($key, $_, $prefix, $length) foreach @$value;   # write each array element seperately
  } else {
    $line = $length ? sprintf("%-${length}s ", $key) : "$key ";
    if ($value =~ /\n/) {            # if there are newlines, we treat the variable as a var >> END block
      $value .= "\n" unless $value =~ /\n$/;      # add newline if its not present
      $line .= ">> END\n" . $value . "END\n";
    } elsif ($value =~ /^\s+/ or $value =~ /\s+$/) {   # if there are leading/trailing spaces we surround it with quotes
      $line .= "= \"$value\"\n";
    } else {                  # just print it out normally
      $line .= "= $value\n";
    }
  }
  return defined $prefix ? $prefix . $line : $line;
}
# -----------------------------------------------------------------
sub confupdate {
  my ($c,$doupload,$silent) = @_;
#  return if $args->{useconfonly};
  $wiz->wraptext($lang->{updateconf}) unless $silent;
  writeconfig($c);
#  if ($doupload and $wiz->ftpconnect) {
#    my $ftp = $wiz->{ftp};
#    my $pwd = $ftp->pwd;
#    $wiz->ftpcwdroot;
#    $ftp->cwd($c->{install}{installdir}) if $c->{install}{installdir};
#    $wiz->ftpuploadfiles([ 'stats.cfg' ]);
#    $wiz->{ftp}->site('chmod', '644', 'stats.cfg');
#  }
}
# ----------------------------------------------------------------------------------------------------
sub uploadfiles {
  my ($themeopt, $pathprefix, $list) = @_;
  my %created = ();                     # keep track of what directories were created already
  my $total = 0;
  my $ftp = $wiz->{ftp};
  $total += -s $_ || 0 foreach @$list;
  my $sum = 0;
  my $destroot = $conf->{theme}{$themeopt};                             # 'itemroot'
  $destroot =~ s|\\|/|g;
  $destroot .= '/' unless $destroot =~ m|/$|;

  $wiz->{data}{destroot} = $destroot;

  $wiz->wraptext($lang->{web_ftpdestroot});
  select(undef, undef, undef, 1.0);

  $wiz->wraptext($lang->{nofiles}) unless @$list;

  $ftp->binary;
  foreach my $file (@$list) {
    my ($vol, $path, $filename) = splitpath($file);
    my (@parts, $echofile, $dest);
    $file =~ s|\\|/|g;                     # convert all \ to /
    $path =~ s|\\|/|g;
    @parts = split(/\/+/, $path);               # split parts by '/'
    1 while @parts and shift(@parts) ne $pathprefix;         # remove "/web/images/prefix"
    $echofile = join('/', @parts, $filename);
    $path = join('/', $destroot, @parts);
    $dest = join('/', $path, $filename);
    $dest =~ s|/+|/|g;

    $sum += -s $file;
    if ($path and !$created{$path}) {
      $created{$path} = 1;
      $ftp->mkdir($path, 1);
      chomp($wiz->{data}{error} = $ftp->message);
    }

    # upload the file ....
    $wiz->{data}{file} = $echofile;
    $wiz->{data}{filesize} = sprintf("%10s", abbrnum(-s $file,2));
    $wiz->{data}{pct} = sprintf("%6s", calcpct($sum, $total));
    $wiz->wraptext($lang->{ulfile}, {trimtail => 1});
    my $ok = $ftp->put($file, $dest);
    chomp($wiz->{data}{error} = $ftp->message) if !$ok;
    $wiz->wraptext( $ok ? $lang->{ok} : $lang->{ulfileerr} );
  }
  $wiz->wraptext($lang->{uploaddone});
}
# ----------------------------------------------------------------------------------------------------
sub copyfiles {
  my ($themeopt, $pathprefix, $list) = @_;
  my $total = 0;
  $total += -s $_ || 0 foreach @$list;
  my $sum = 0;
  my $destroot = $conf->{theme}{$themeopt};            # 'itemroot'
  $destroot =~ s|\\|/|g;
  $destroot .= '/' unless $destroot =~ m|/$|;

  $wiz->{data}{destroot} = $destroot;

  $wiz->wraptext($lang->{web_destroot});
  $wiz->wraptext($lang->{nofiles}) unless @$list;
  select(undef, undef, undef, 1.0);

  foreach my $file (@$list) {
    my ($vol, $path, $filename) = splitpath($file);
    my (@parts, $echofile, $dest);
    $file =~ s|\\|/|g;                     # convert all \ to /
    $path =~ s|\\|/|g;
    @parts = split(/\/+/, $path);               # split parts by '/'
    1 while @parts and shift(@parts) ne $pathprefix;         # remove "/web/images/prefix"
    $echofile = join('/', @parts, $filename);
    $path = join('/', $destroot, @parts);
    $dest = join('/', $path, $filename);
    $dest =~ s|/+|/|g;

    $sum += -s $file;
    if ($path and !-d $path) {
      eval { mkpath($path) };
      chomp($wiz->{data}{error} = $@);
    }

    # copy the file ....
    $wiz->{data}{file} = $echofile;
    $wiz->{data}{filesize} = sprintf("%10s", abbrnum(-s $file,2));
    $wiz->{data}{pct} = sprintf("%6s", calcpct($sum, $total));
    $wiz->wraptext($lang->{copyfile}, {trimtail => 1});
    my $ok = copy($file, $dest);
    chomp($wiz->{data}{error} = $!) if !$ok;
    $wiz->wraptext( $ok ? $lang->{ok} : $lang->{copyfileerr} );
  }
  $wiz->wraptext($lang->{copydone});
}
# -----------------------------------------------------------------


1;


Das ist das Perl Script..
Mit der Änderung der 1. Zeile hat sich auch nichts gebessert! Immer noch der gleiche Fehler!

[dudave]

Ups hab gerade bemerkt, dass ja perl.exe angegeben werden muss

Aber mit:
#!C:/Eigene Dateien/Web-Server/xampp/perl/bin/perl.exe

passiert zwar was, aber nicht das, was ich möchte

Error:

Code: Select all

perl.exe Komponente nicht gefunden:
Die Anwendung konnte nicht gestartet werden, weil Perl56.dll nicht gefunden wurde. Neuinstallation der Anwendung könnte das Problem beheben.

[daxim]

Dieses Programm ist nicht dafür vorgesehen, in einer Webserverumgebung zu laufen. Rufe es von Konsole aus auf, wie fawkes sagte.

[dudave]

Wie mache ich das?

Von Perl hab ich absolut keine Ahnung wie ihr vielleicht bemerkt habt

[dudave]

Ach ja, wenn ich in Windows (ohne Webserver) doppelt auf install.pl klicke kommt der gleiche Fehler...



p.S:
The Readme

Welcome to PsychoStats v2.1 BETA

UPGRADE NOTES:
If you are upgrading from the previous BETA release you must not install this version
over top of the previous version. The software will break completely and we will not
be able to help you.

REQUIREMENTS:
This software requires:
* Perl v5.6
* DBI and DBD::mysql modules installed
* PHP 4.1 (4.3 is recommended)
* GD2 extension is required for stats graphs



This software is being provided free for all users under the GNU GPL license. See the
included license.txt file for futher details.

All first time users should start by running the install wizard. Windows users simply
have to double click on the install.pl icon to start. Linux users should run the
install like this:
./install.pl

The install wizard is interactive and will guide you through the setup process.

Online documentation is available here: http://www.psychostats.com/docs/ps2/
Currently the documentation is limited but we are trying to build it up as best as we
can.

If you have any problems installing the software, please go to the online forums
at the http://www.psychostats.com/ website. Help will also be available via our
IRC channel #psychostats on the gamesurge IRC network. Please understand that I can
not respond to all requests for help. Your best chance of receiving help is to use
the online forums or try the #psychostats IRC channel on gamesurge.

[Rolidor]

Morsche.
kann sein, dass ich total schief liege (glaube ich aber nicht ):
Lass die Leerzeichen in Pfadnamen!.

Gutes Nächtle
Rolo

[DJ DHG]

Moin Moin
ich bin auch kein perl experte aber wie Wiedmann schon geschrieben hat.

#!C:/xampp/perl/bin/perl.exe

mfg DJ DHG

[dudave]

Das ist alles nicht das Problem...

Wenn ich ganz normal in Windows doppelt auf install.pl gehe (als wäre es ne exe) startet perl.exe und meldet den Fehler (siehe oben)

Ich bin am verzweifeln

[Wiedmann]

Was passiert, wenn du eine Eingabeaufforderung aufmachst und dann folgende Schritte:

Code: Select all

c:
cd "\Eigene Dateien\Web-Server\xampp\htdocs\stats"
"C:\Eigene Dateien\Web-Server\xampp\perl\bin\perl.exe" install.pl