Resulta que ando trabajando en un contador sencillo para un website que llevo, pero el "querido" contador, me tira siempre en Error 500.
Por acá el código.
Using perl Syntax Highlighting
- #!/usr/bin/perl #Gracias por el arreglo explorer ^^
- #Contador de visitas
- &escribe_visita;
- sub escribe_visita
- {
- my $user_agente = $ENV{HTTP_USER_AGENT};
- my $remote_address = $ENV{REMOTE_ADDR};
- my $file = open(VS,"visitas/visitas.txt");
- if (!$file);
- {
- print "Content-type:text/html\n\n";
- print "<html>";
- print "<head>";
- print "<body>";
- print "<p>No es posible obtener la lectura!</p>";
- print "</body>";
- print "</head>";
- print "</html>";
- } else {
- my $visita;
- print $file "Navegador: $user_agente = IP: $remote_address\n";
- @contador = <$file>;
- foreach $contar (@contador)
- {
- $visita++;
- }
- close(VS);
- print "Content-type:text/html\n\n";
- print "<html>";
- print "<head>";
- print "<link rel=\"stylesheet\" type=\"text/css\" href=\"count.css\"/>";
- print "<title>Nuestras visitas</title>";
- print "</head>";
- print "<body>";
- print "<table class=\"count\">";
- print "<tbody>";
- print "<tr>";
- print "<td>";
- print "<span style=\"color:#000;\">Visitas: $visita </span>";
- print "</td>";
- print "</tr>";
- print "</tbody>";
- print "</table>";
- print "</body>";
- print "</html>";
- }
- }
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
¿Cuál sería el error?