Help Aqui No Meu Site....

[RaFaMp]

Olá pessoal, estou editando um script que achei na net, mas como nunca tinha editado nada em perl fiquei meio confuso....

http://n00bz.grctecnologia.com.br/jogos_online/

esse é o site, abram o index, tem lá a categoria acção, aventura, etc... que era A, B,C

http://n00bz.grctecnologia.com.br/cheats

script funcionando perfeitamente

se possivel deixem seus msnS ou me adicionem para falar melhor, vlw

http://www.n00bz.grctecnologia.com.br/jogos_online/

quando entro na categoria ação por exemplo, aparece o seguinte:

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

Please contact the server administrator, webmaster@n00bz.grctecnologia.com.br 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.

Additionally, a 404 Not Found error was encountered while trying to use an ErrorDocument to handle the request.

index.cgi:

#!/usr/bin/perl -w
use strict;
use CGI;
use CGI::Carp 'fatalsToBrowser';
use Fcntl qw/:flock/;
use DBI;
use Configs;
require "memset.pl";

#################################################################################
# This script is for displaying specific pages of game cheats (ie: A, B, C etc) #
#################################################################################

my $q = new CGI;
print $q->header();

my $index = $q->param('index');
my $dbh = DBI->connect("dbi:mysql:$dbname", $dbuser, $dbpass) or ddie("Unable to connect to database: $DBI::errstr");

ShowPage("results.shtml",
   "%index%" => $index,
   "%results%" => GetListing($dbh, $index));

$dbh->disconnect();

#################################################
sub GetListing {
   my $dbh = shift;
   my $index = shift;
   my $retval = '';

   my $sth;
   if($index =~ /^[A-Z]$/) { # It's a letter
      $sth = $dbh->prepare("SELECT * FROM pccheat WHERE name LIKE \"$index%\"");
      $sth->execute();
      while(my $data = $sth->fetchrow_hashref()) {
         $retval .= qualquer(<a href="view.cgi?id=$data->{'id'}">$data->{'name'}</a><br>\n);
      }
   $sth->finish();
   return $retval;
   } else { # It's 0-9
      for(0..9) {
         $sth = $dbh->prepare("SELECT * FROM pccheat WHERE name LIKE \"$_%\"");
         $sth->execute();

         while(my $data = $sth->fetchrow_hashref()) {
            $retval .= qualquer(<a href="view.cgi?id=$data->{'id'}">$data->{'name'}</a><br>\n);
         }
         $sth->finish();
      }
      return $retval;
   }
} 

eu mexi nos botões ação, aventura, corrida, etc, eles eram um alfabeto, creio que tem q mudar aki:

   return $retval;
   } else { # It's 0-9
      for(0..9) {
         $sth = $dbh->prepare("SELECT * FROM pccheat WHERE name LIKE \"$_%\"");
         $sth->execute();

         while(my $data = $sth->fetchrow_hashref()) {
            $retval .= qualquer(<a href="view.cgi?id=$data->{'id'}">$data->{'name'}</a><br>\n);
         }
         $sth->finish();

[OSJunior]

Acho que seu servidor não hospeda páginas CGI/Perl

[RaFaMp]

é claro que hospeda.... eu tenho o sistema original funcionando perfeitamente em www.cheatz.rd5.net

[OSJunior]

A que banco de dados tu ta conectando?

Se isso não for problema de hospedagem, seria problema de upload.

[RaFaMp]

amigo esta tudo perfeitamente normal....

o que mudei foi aquela parte de if 0-9 vai pra um lugar, e assim vai...

[jgcl]

Enviou o script em modo ASCII p/ o servidor?

Aplicou chmod 755?

abração

JGCL

www.cgiclube.net