500er Fehler und keine IDEE

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • 500er Fehler und keine IDEE

    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 ) :
    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
    Damke und Gruss Manuela

  • #2
    Hast du schon mal überprüft, ob der Anbieter (Host) dein Script auch unterstützt?

    Comment


    • #3
      http://www.alfshomepage.de/portal/ma...service/submit das?

      das geht bei mir, hab eben erfolgreich yahoo eintragen lassen
      Ich denke, also bin ich. - Einige sind trotzdem...

      Comment


      • #4
        Guten Morgen,

        zur Frage von KaraVid, nein gibt es da unterschiede ich dachte Perl-Script ist Perl-Script - läuft das eine sollte das andere auch laufen, denn ich habe grössere Scripts laufen ( Gästebuchserver usw. ).


        Zu mrhappiness :

        ja das ist mein PHP-Script das läuft, jedoch habe ich nun eines
        mit PERL, was einfache ist und sich die Suchmaschinen per Adminoberläche eintragen lassen und nicht immer im Script selber und da bin ich schon bei 600 Suchmaschinen international.

        Und der Link den du benutzt ist falsch der richtige ist :

        http://www.alfshomepage.de/cgi-bin/s...bmit.setup.cgi

        Gruss und danke Manuela

        Comment


        • #5
          More information about this error may be available in the server error log.
          mal geschaut was da steht wenn da was steht?
          Ich denke, also bin ich. - Einige sind trotzdem...

          Comment


          • #6
            Hahhh haben es geschaft, bzw. mein Provider keine Ahnung wie.

            Hier die Erklärung :


            Nach 30 Minuten habe ich die submit.setup.cgi zum laufen bekommen.
            Die Rechte sind 755 und ich habe der perl interpreter aus einer
            lauffähigen Datei herauskopiert und den perl interpreter in der
            submit.setup.cgi damit überschrieben. Auf ein mal lief das Skript.

            Naja, sollten die anderen Dateien nach der Installation nicht laufen
            würde ich die Rechte auch auf 755 setzen. Falls es dann immernoch nicht
            geht evtl wieder den perl interpreter austauschen.

            Ja die Rechte auf 755 hatte auch nicht bei den anderen Dateien funktioniert
            jedoch wenn man den PERL-Interpreter raus und wieder rein kopiert ging es immer noch nicht und dann die Rechte nochmal auf 755 nachgesetzt dann hatte es auch mit den anderen Dateien funktioniert - MERKWÜRDIG !

            Danke Euch trotzdem für Eure Hilfe :-)

            Mal noch ne andere Frage nebenbei ein PHP oder PERL-Script was ein Screenshot von einer Webseite macht, wenn man die Url angibt ?

            Danke und Gruss Manuela

            Comment

            Working...
            X