Perl_mod und Psychostats

Irgendwelche Probleme mit XAMPP für Windows? Dann ist hier genau der richtige Ort um nachzufragen.

Perl_mod und Psychostats

Postby dudave » 17. June 2004 14:03

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
dudave
 
Posts: 12
Joined: 17. June 2004 13:11

Postby Rolidor » 17. June 2004 17:33

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
Rolidor
 
Posts: 406
Joined: 20. April 2004 10:17
Location: Dreieich - Hessen

Postby dudave » 17. June 2004 18:13

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??
dudave
 
Posts: 12
Joined: 17. June 2004 13:11

Postby Rolidor » 17. June 2004 19:04

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
Rolidor
 
Posts: 406
Joined: 20. April 2004 10:17
Location: Dreieich - Hessen

Postby Wiedmann » 17. June 2004 19:15

dudave wrote: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)
Wiedmann
AF Moderator
 
Posts: 17106
Joined: 01. February 2004 12:38
Location: Stuttgart / Germany

Postby fawkes » 17. June 2004 21:17

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
fawkes
 
Posts: 34
Joined: 13. June 2004 18:58

Postby dudave » 17. June 2004 23:28

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
 
Posts: 12
Joined: 17. June 2004 13:11

Postby dudave » 17. June 2004 23:31

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

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.
dudave
 
Posts: 12
Joined: 17. June 2004 13:11

Postby daxim » 17. June 2004 23:34

Dieses Programm ist nicht dafür vorgesehen, in einer Webserverumgebung zu laufen. Rufe es von Konsole aus auf, wie fawkes sagte.
daxim
 
Posts: 53
Joined: 04. June 2004 20:45

Postby dudave » 17. June 2004 23:41

Wie mache ich das?

Von Perl hab ich absolut keine Ahnung wie ihr vielleicht bemerkt habt :wink:
dudave
 
Posts: 12
Joined: 17. June 2004 13:11

Postby dudave » 17. June 2004 23:45

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.
dudave
 
Posts: 12
Joined: 17. June 2004 13:11

Postby Rolidor » 18. June 2004 01:10

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

Gutes Nächtle
Rolo
Rolidor
 
Posts: 406
Joined: 20. April 2004 10:17
Location: Dreieich - Hessen

Postby DJ DHG » 18. June 2004 01:50

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

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

mfg DJ DHG
User avatar
DJ DHG
AF Moderator
 
Posts: 2455
Joined: 27. December 2002 13:50
Location: Kiel

Postby dudave » 18. June 2004 12:12

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 :cry:
dudave
 
Posts: 12
Joined: 17. June 2004 13:11

Postby Wiedmann » 18. June 2004 13:55

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
Wiedmann
AF Moderator
 
Posts: 17106
Joined: 01. February 2004 12:38
Location: Stuttgart / Germany

Next

Return to XAMPP für Windows

Who is online

Users browsing this forum: wodim and 6 guests