schoen langsam geht mir f2s auf den nerv oder CGI @f2s

[sk8graz]

wei0 jemand, warann es liegen kann, das die standert fehlermeldung vom f2s server kommt, wenn man ein cgi file oeffnen will, meiner meinung nach habe ich keinen script fehler und derm pfad is auch reicht





mfg, tom

 

[P-F]

Am besten Du suchst Dir ne professionelle Web-Agentur, die die Scripte programmiert und schreibst nicht wegen so nem Scheiß in ein Forum, vor allem wenn Du nicht mal schreibst um was es überhaupt geht ...

Erst denken, dann posten !

P-F

 

[sk8graz]

das script:

#!/usr/bin/perl

##########################################################
#                                                        #
#  Moorhexe-Highscore CGI: 1.4                           #
#  Last Modified: 20.Apr.00                              #
#  Written By: Thomas Pfeifer                            #
#  [url]http://thopf.purespace.de/start.htm[/url]                   #
#                                                        #
##########################################################
#                                                        #
# Please read liesmich.txt / readme.txt        first !          #
#                                                        #
##########################################################
#                                                        #
# Re-distribution of this program is strictly prohibited #
# without the written consent of Thomas Pfeifer.         #
#                                                        #
##########################################################

#========================================
#   V A R I A B L E S   T O   E D I T

# Check the Perl-path at the top


# The file that hold the Highscores
# The directory must be chmoded to read/write(644)
$highfile="high.txt";

# logfile
$logfile="log.txt";





# CGI-lib needed
use CGI param,referer,remote_host,request_method,user_agent;

$anz=50;
$score=param("score");
$name=param("name");
$time=param("fps");
$ref=param("ref");
$ver=param("v");

($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6];
if ($sec < 10) { $sec = "0$sec"; }
if ($min < 10) { $min = "0$min"; }
if ($hour < 10) { $hour = "0$hour"; }
if ($mday < 10) { $mday = "0$mday"; }
$year += 1900;
$date = ($mday+1).".".($mon+1).".".($year)." ".$hour.":".$min.":".$sec;

$log=$date.",".request_method().",".remote_host().",".referer().",".user_agent().",".$score.",".$name.",".$time.",".$ref.",".$ver;

# Simple HTTP-Header
print "Content-type: text/plain\n\n";

# get Highscores
open (HIGH,"$highfile") || ($log.="\nError open: $highfile");
@lines=<HIGH>;
close(HIGH);

# cut returns
chomp(@lines);

# POST Variables and Version Check
if ($score>0 && $name && $time && $ver>=127) {

        # generate Hash
        $namelen=length($name);
        $hash=0;
        for ($i=0;$i<$namelen;$i++) {
                $hash+=ord(substr($name,$i,1))-$i;
        }

        # encode hash
        $hash=$hash^$score^2111;

        #test Hash
        $_=$name;

        #forbidden names
        #i dont like URLs in my Highscore
  if(/www/i || /\.de/i || /\.com/i || /\.net/i || /\.to/i || /sex/i || /porn/i || /fick/i || /fuck/i || /\.vu/i || /\.ch/i || /\.at/i) {
          $log.="\nbad name: $_";
  } else {
                if ($hash==$time) {
                        #put in the score
                        $n=-1;
                        for ($i=0;$i<$anz*2;$i+=2) {
              if ($lines[$i+1]<=0) {
                                        $lines[$i]="nobody";
                                        $lines[$i+1]="0";
                                }
                                if ($lines[$i] eq $name && $lines[$i+1]==$score) {
                                        $n=-2;
                                        $log.="\ninList";
                                }
                                if ($score>=$lines[$i+1] && $n==-1) {
                                        $n=$i;
                                }
                        }
                        if ($n>=0) {
                                splice @lines,$n,0,$score;
                                splice @lines,$n,0,$name;
                        }
                        open (OUT,">$highfile") || ($log.="\nError write $highfile");
                        for ($i=0;$i<$anz*2;$i++) {
                                print OUT "$lines[$i]\n";
                        }
                        close(OUT);
           } else {
                  $log.="\nwrong hash";
                }
  }
} else {
        $log.="\nheader error";
}

# print out the Scores
for ($i=0;$i<$anz*2;$i++) {
        print "$lines[$i]\n";
}

# write and print log
open (LOG,">>$logfile") || print STDERR "\nError write $logfile : $log";
print LOG "$log\n";
close (LOG);
print $log;

und der server schreibt:

Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator, [email]webmaster@sk8graz.f2s.com[/email] 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/1.3.19 Server at [url]www.sk8graz.f2s.com[/url] Port 80

was ist da falsch????

ich hoffe ihr koennt mir helfen!!!!!!!!!!!!!!

 

[Shadow]

...ich glaube du gehst uns hier allen ziemlich auf die Nerven!

 

[sk8graz]

... und ich meine, das ich eine ernst gemiente frage gestellt habe, aber wenns auch nicht passt, dann sol der tread halt in die trashcan!!!!!!!!