НАРОД! НУЖНА ПОМОЩЬ!

[Dynamic_One]

Вот сам скрипт он выводит ошибку
500 Internal Server Error





require "setup.pl";

sub layout {
print "Location: $htmlpath/$pagename.html\\n\\n";
exit;

sub process {

   #####Add Hits
   open (FILE,"$cgipath/file.dat") || &error("Error reading file.dat");
   @filedata = ;
   close (FILE);

   $totalaccount = 0;
   $place = 16;
   if ($methrank == 0) { $place = 16 }
   elsif ($methrank == 1) { $place = 8 }
   elsif ($methrank == 2) { $place = 15 }
   elsif ($methrank == 3) { $place = 25 }
   elsif ($methrank == 4) { $place = 17 }
   elsif ($methrank == 5) { $place = 24 }
   foreach $line (@filedata) {
      @account = split(/\\|\\|/,$line);
      $file = $account[0];

      open (COUNT,"$cgipath/in/$file.dat");
      $countfiledata = ;
      close (COUNT);

      #####Add Hits To Daily
      $account[8] += $countfiledata;
      $account[15] += $countfiledata;

      #####Delete count.dat
      open (COUNT,">$cgipath/in/$file.dat");
      if ($flock) { flock COUNT, 2 }
      close (COUNT);
      
      open (COUNT,"$cgipath/out/$file.dat");
      $countfiledataz = ;
      close (COUNT);

      #####Add Hits To Daily
      $account[17] += $countfiledataz;
      $account[24] += $countfiledataz;

      #####Delete count.dat
      open (COUNT,">$cgipath/out/$file.dat");
      if ($flock) { flock COUNT, 2 }
      close (COUNT);

      #####Calculate Average
      if ($account[0]) {
         if ($account[26] != 0) {
            $account[16] = int($account[15]/$account[26]);
            $account[25] = int($account[24]/$account[26]);
         }
         #####Delete Inactives
         if ($inactives && $inactmeth && ($account[26] > 7) && ($account[14] == 0) && ($account[13] == 0) && ($account[12] == 0) && ($account[11] == 0) && ($account[10] == 0) && ($account[9] == 0) && ($account[8] == 0)) { $account[27] = "Inactives" }
         elsif ($inactives && ($account[26] > 7) && ($account[14] == 0) && ($account[13] == 0) && ($account[12] == 0) && ($account[11] == 0) && ($account[10] == 0) && ($account[9] == 0) && ($account[8] == 0)) { $line = "" }

         $line = join("||",@account);
         if ($account[27] eq "Actives") {
            $zrank[$totalaccount] = "$account[$place]||$account[0]||0";
            $totalaccount++;
         }
      }
      else { $line = "" }
   }
   #####Save Changes
   open (FILE,">$cgipath/file.dat") || &error("Error writing to file.dat");
   if ($flock) { flock FILE, 2 }
   print FILE @filedata;
   close (FILE);
   
   #####Sort Data
   @zrank = reverse (sort { $a <=> $b }@zrank);

   open (BANNER,"$cgipath/banner.dat") || &error("Error reading banner.dat");
   @banner = ;
   close (BANNER);

   #####Put in Category
   if ($category) {
      open (CAT, "$cgipath/category.dat") || &error("Error reading category.dat");
      @category = ;
      close (CAT);
      $totaltemp = $totalaccount;
      $pagetemp = $pagename;

      $cattext = "Category: Entire";
      $catdrop = "Entire";
      foreach $linezz(@category) {
         chomp($linezz);
         chop($linezz);
         @catarray = split(/\\|\\|/, $linezz);
         if ($catarray[0]) {
            $cattext .= " $catarray[0] ";
            $catdrop .= " $catarray[0]";
         }
      }
      $cattext .= "\\n";
      $catdrop .= " \\n";

      foreach $linezz(@category) {
         @catarray = split(/\\|\\|/, $linezz);
         if ($catarray[0]) {
            $totalaccount = 0;
            foreach $linex(@filedata) {
               @acczz = split(/\\|\\|/, $linex);
               if ($acczz[7] eq $catarray[0]) { $totalaccount++ }
            }
            $pagenum = 1;
            if ($totalaccount > $pageaccount) {
               if ($multipage) {
                  $pagenum = (int ($totalaccount / $pageaccount) + 1);
               }
            }
            $pagename = $catarray[1];
            $namezz = $catarray[0];
            &run;
         }
      }

      $totalaccount = $totaltemp;
      $pagename = $pagetemp;
   }

   #####Start Ranking
   $pagenum = 1;
   if ($totalaccount > $pageaccount) {
      if ($multipage) {
         $pagenum = (int ($totalaccount / $pageaccount) + 1);
      }
   }

   #####The Big Loop
   open (BAN,">$cgipath/banner.dat") || &error("Error writing to banner.dat");
   if ($flock) { flock BAN, 2 }
   $namezz = 0;
   &run;
}
#####Make the pages
sub run {
   $pageend = 1;
   $rank = 0;
   $rankx = 0;
   $srank = 0;
   while ($pagenum >= $pageend) {
      if ($pageend == 1){
         $pagepath = "$htmlpath/$pagename.html";
      }
      else {
         $pagepath = "$htmlpath/$pagename$pageend.html";
      }
      $temp = 0;
      $pagee = 0;
      $navtext = "";
      $navdrop = "";
      if ($multipage){
         $navtext = "Page: ";
         $navdrop = "

";
         while ($pagenum > $pagee) {
            $pagee++;
            $temp2 = $temp + 1;
            $temp = ($temp + $pageaccount);
            if ($pagee == 1){
               $navtext .= "1 ";
               $navdrop .= "1 - $temp";
            }
            else {
               $navtext .= "$pagee ";
               $navdrop .= "$temp2 - $temp";
            }
         }
         $navtext .= "\\n";
         $navdrop .= "

\\n";
      }
      $page = "\\n";
      if ($style eq "Style 1") { require "style1.pl"; }
      elsif ($style eq "Style 2") { require "style2.pl"; }
      elsif ($style eq "Style 3") { require "style3.pl"; }
      elsif ($style eq "Style 4") { require "style4.pl"; }
      elsif ($style eq "Style 5") { require "style5.pl"; }
      elsif ($style eq "Custom") { require "custom.pl"; }
      &head;
      $srank = ($srank + $pageaccount);
      while ($rankx < $srank) {
         @acc = split(/\\|\\|/,$zrank[$rankx]);
         $rankx++;
         foreach $line(@filedata) {
            @account = split(/\\|\\|/,$line);
            if ($category) {
                if ($namezz eq $account[7]) { $founds = 1 }
                else { $founds = 0 }
            }
            unless ($namezz) { $founds = 1; }
            if (($account[0] == $acc[1]) && ($account[27] eq "Actives") && $founds) {
               $rank++;
               #####Printing to banner.dat
               unless ($namezz) { print BAN "$account[0]||$rank||0\\n" }

               open (COMMENTS,"$cgipath/comments/$account[0].dat");
               @comments = ;
               close (COMMENTS);
               $pos = 0;
               $neg = 0;
               foreach $entry(@comments) {
                  @com = split(/\\|\\|/,$entry);
                  if ($com[3] eq "+") { $pos++ }
                  elsif ($com[3] eq "-") { $neg++ }
               }
               unless ($account[26] <= $newtime) {
                  #####Arrows Thingy
                  $point = $same;
                  foreach $line(@banner) {
                     @arrow = split(/\\|\\|/,$line);
                     if ($arrow[0] == $account[0]) {
                        $parrow = $arrow[1];
                        if ($parrow < $rank) { $point = $down }
                        elsif ($parrow > $rank) { $point = $up }
                     }
                  }
               }
               &body;
            }
         }
      }
      &foot;
      $page .= qq~
$topsitename is powered by http://intensitymf.vze.com">Intense Topsites Version 3.1 Pro~;
      open (OPTION, "$cgipath/options.dat") || &error("Error reading options.dat");
      @options = ;
      close (OPTION);
      $search = "

\\n";
      open (LAYOUT, "$cgipath/topsites.dat") || &error("Error reading topsites.dat");
      @layout = ;
      close (LAYOUT);
      $layout = "";
      foreach $line(@layout) {
         chomp ($line);
         $layout .= $line;
      }
      if ($navstyle) { $layout =~ s/<%navigation>/$navdrop/i }
      else { $layout =~ s/<%navigation>/$navtext/i }
      if ($category) {
         if ($catstyle) { $layout =~ s/<%category>/$catdrop/i }
         else { $layout =~ s/<%category>/$cattext/i }
      }
      $layout =~ s/<%page>/$page/i;
      $layout =~ s/<%options>/@options/i;
      if ($namezz) { $layout =~ s/<%title>/$topsitename - $namezz/i }
      else { $layout =~ s/<%title>/$topsitename/i }
      $layout =~ s/<%search>/$search/i;
      open (PAGE,">$pagepath") || &error("Error reading $pagepath");
      if ($flock) { flock PAGE, 2 }
      print PAGE "$layout";
      close (PAGE);
      $pageend++;
   }
   close (BAN);
}      
      
sub error {
   $error = $_[0];
   $page = qq~
 
   
 
 
   

Error - $topsitename

There is an error with this program. Please tell the admin of this problem at $email. ~;    $page .= "$error -- $! ";    $page .= "

";
   $page .= "
$topsitename is powered by http://intensitymf.vze.com\\">Intense Topsites Version 3.1 Pro";
   &layout;


}
sub layout {
   print "Content-Type: text/html\\n\\n";
   open (LAYOUT, "./layout.dat");
   @layout = ;
   close (LAYOUT);
   $layout = "";
   foreach $line(@layout) {
      chomp ($line);
      $layout .= $line;
   }
   $layout =~ s/<%page>/$page/i;
   $layout =~ s/<%title>/$topsitename/i;
   print "$layout";
   exit;

[YA]

Н-да... Ты бы еще "Войну и мир" сюда запостил!
Да и форумом ты немного ошибся.

А по существу:
- смотри сначала error.log;
- ошибка может быть и в твоем "setup.pl".

[Evgeny]

Может быть у тебя сервер юникс, а у скрипта windows-кодировка?

[ESE]

Забыл закрыть два раза } а где, догадайся сам
и еще, у тебя две подпрограммы с одним и тем-же названием layout, не знаю, правильно ли это???