Hallo Leute,
ich habe ein Suchmaschinen-Script in mein CGI-BIN-Verzeichnis
geladen und bekomme beim AUfrufen immer wieder einen
500er Fehler angezeigt.
Perlinfo
Das Programm zum Ausführen ist folgendes :
http://www.alfshomepage.de/cgi-bin/s...bmit.setup.cgi
Als Perpfad habe ich '#!/usr/bin/perl' angegeben, die Dateien als ASCII hochgeladen und den CHMOD mal auf 755 und auf 777 laufen lassen, jedoch ohne erkennbaren Erfolg.
Nun weis ich nicht mehr weiter ich habe ds Programm PERLCHECK
auf den Server gepackt und ausgeführt
http://www.alfshomepage.de/cgi-bin/perlcheck.cgi
Wobei mir angezeigt wird das alles O.K. ist
/home/www/web62/html/cgi-bin/simplesubmit/submit.setup.cgi syntax OK
Und wenn ich das Script in das Unterverzeichnis 'simplesubmit'
packe funktioniert es nicht ( 500er ) und wenn ich das Submitscript in
das Root-Verzeichnis packe funktioniert es auch nicht ( 500er ).
Nun weis ich nicht mehr weiter und bitte um eine Hilfestellung.
Hier das Hauptscript der Anfang vom Script ( ist ein Setup-Script ) :
Damke und Gruss Manuela
ich habe ein Suchmaschinen-Script in mein CGI-BIN-Verzeichnis
geladen und bekomme beim AUfrufen immer wieder einen
500er Fehler angezeigt.
Perlinfo
Das Programm zum Ausführen ist folgendes :
http://www.alfshomepage.de/cgi-bin/s...bmit.setup.cgi
Als Perpfad habe ich '#!/usr/bin/perl' angegeben, die Dateien als ASCII hochgeladen und den CHMOD mal auf 755 und auf 777 laufen lassen, jedoch ohne erkennbaren Erfolg.
Nun weis ich nicht mehr weiter ich habe ds Programm PERLCHECK
auf den Server gepackt und ausgeführt
http://www.alfshomepage.de/cgi-bin/perlcheck.cgi
Wobei mir angezeigt wird das alles O.K. ist
/home/www/web62/html/cgi-bin/simplesubmit/submit.setup.cgi syntax OK
Und wenn ich das Script in das Unterverzeichnis 'simplesubmit'
packe funktioniert es nicht ( 500er ) und wenn ich das Submitscript in
das Root-Verzeichnis packe funktioniert es auch nicht ( 500er ).
Nun weis ich nicht mehr weiter und bitte um eine Hilfestellung.
Hier das Hauptscript der Anfang vom Script ( ist ein Setup-Script ) :
PHP Code:
#!/usr/bin/perl
# ----------------------------------------------------------------------------
# Copyright (c) 2000 Jason M. Hinkle. All rights reserved. This script is
# free software; you may redistribute it and/or modify it under the same
# terms as Perl itself.
#
# LEGAL DISCLAIMER:
# This software is provided as-is. Use it at your own risk. The
# author takes no responsibility for any damages or losses directly
# or indirectly caused by this software.
# @@@@
# (o o)
# -------------------------------------------------------oOOo-(_)-oOOo--------
# CONSTANTS:
my ($CONFIGFILE_NAME) = "submit.cfg";
my ($CONFIGFILE_VALUEFIELD) = "Value";
my ($TABFILE_NAME) = "submit.tab";
my ($ID) = "SimpleSubmit Setup";
my ($VERSION) = "1.1";
$|++;
# ----------------------------------------------------------------------------
BEGIN {
# ----------------------------------------------------------------------------
# send fatal errors and warnings to the browser instead of 500 server error.
# this doesn't seem to catch everything. don't know why...
$SIG{__WARN__} = \&Warn;
$SIG{__WARN__} = \&Crash; # comment this line out to ignore runtime warnings
$SIG{__DIE__} = \&Crash;
# add the current directory to the @INC path. this seems to be necessary on
# windows systems.
my ($filePath,$directorySeparator);
if ($ENV{'PATH_TRANSLATED'}) {
$filePath = $ENV{'PATH_TRANSLATED'};
$directorySeparator = "\\"
} elsif ($ENV{'SHELL'}) {
$filePath = "./";
$directorySeparator = "/"
} elsif ($ENV{'CMDLINE'}) {
$filePath = ".\\";
$directorySeparator = "\\"
} else {
$filePath = $ENV{'SCRIPT_FILENAME'};
$directorySeparator = "/"
}
# get the full pathname to the current directory & add it to @INC
my ($position) = rindex($filePath,$directorySeparator);
$currentDirectory = substr($filePath,0,$position);
push(@INC,$currentDirectory);
}
# ----------------------------------------------------------------------------
# Main
# ----------------------------------------------------------------------------
# require libraries and create objects needed. use eval with single quotes
# so that it is evaluated at run-time instead of compile time. otherwise,
# a missing module will crash the script. the comment line after each one
# is needed to force perl2exe to compile all modules into the executable.
eval 'use strict';
#perl2exe_include strict.pm
eval 'use CGI';
#perl2exe_include CGI.pm
eval 'use vsPageVariables';
#perl2exe_include vsPageVariables.pm
eval 'use vsSimpleDb';
#perl2exe_include vsSimpleDb.pm
eval 'use vsUtility';
#perl2exe_include vsUtility.pm
# additional modules called elsewhere...
#perl2exe_include LWP::UserAgent.pm
# create the new CGI object
my ($objFormData) = new CGI;
# create the PageVariables object
my ($objPage) = new vsPageVariables;
# create the Utility object
my ($objUtility) = new vsUtility;
# SETUP FIELDS
my ($objConfigFile) = "";
my ($cfgStep) = $objFormData->param("step") || "0";
my ($cfgSetupMode) = $objFormData->param("setupMode") || "0";
my ($ConfigFile) = $objFormData->param("ConfigFile") || $CONFIGFILE_NAME;
my ($ConfigFilePath) = $objPage->CurrentDirectory . $ConfigFile;
my ($userStep) = $objFormData->param("userStep") || "0";
my ($numberOfSteps);
$numberOfSteps = "2" if ($cfgSetupMode eq "1");
$numberOfSteps = "10" if ($cfgSetupMode eq "2");
$numberOfSteps = "2" if ($cfgSetupMode eq "3");
# set the variables from the form input. use if to avoid stupid uninitialized warning.
my ($AuthorizedOnly) = "";
if (defined($objFormData->param("AuthorizedOnly"))) {
$AuthorizedOnly = $objFormData->param("AuthorizedOnly");
}
my ($AuthorizedDomains) = "";
if (defined($objFormData->param("AuthorizedDomains"))) {
my (@values) = $objFormData->param("AuthorizedDomains");
my ($value);
foreach $value (@values) {
$AuthorizedDomains .= $value;
}
}
my ($BannedDomains) = "";
if (defined($objFormData->param("BannedDomains"))) {
my (@values) = $objFormData->param("BannedDomains");
my ($value);
foreach $value (@values) {
$BannedDomains .= $value;
}
}
my ($ThankYouFile) = "";
if (defined($objFormData->param("ThankYouFile"))) {
$ThankYouFile = $objFormData->param("ThankYouFile");
}
my ($ThankYouFrom) = "";
if (defined($objFormData->param("ThankYouFrom"))) {
$ThankYouFrom = $objFormData->param("ThankYouFrom");
}
my ($ThankYouSubject) = "";
if (defined($objFormData->param("ThankYouSubject"))) {
$ThankYouSubject = $objFormData->param("ThankYouSubject");
}
my ($ThankYouSmtp) = "";
if (defined($objFormData->param("ThankYouSmtp"))) {
$ThankYouSmtp = $objFormData->param("ThankYouSmtp");
}
my ($ThankYouSendmail) = "";
if (defined($objFormData->param("ThankYouSendmail"))) {
$ThankYouSendmail = $objFormData->param("ThankYouSendmail");
}
my ($ThankYouHtmlMode) = "";
if (defined($objFormData->param("ThankYouHtmlMode"))) {
$ThankYouHtmlMode = $objFormData->param("ThankYouHtmlMode");
}
...... usw.
Comment