Permisos a archivos cgi en servidores windows... Tengo un problema con un contador de visitas cgi
No consigo darle permiso 755 al archivo contsimp.cgi y permiso 666 al archivo contador.dat incluidos en la carpeta cgi-bin (Es un contador de visitas en perl) Mediante el programa WS_FTP LE le asigno los permisos a los archivos indicados y cuando lo compruebas no guarda los cambios.
El código del cgi es:
#!/usr/bin/perl
#############################################
# #
# Justino Martinez, 1998 #
# ([email protected]) #
# http://www.webviva.com #
# #
# ContSimp.cgi #
#############################################
# #
# Funcion #
# #
# Genera un contador #
# #
#############################################
# #
# Instalacion #
# #
# 1.Copiar este perl y los gifs que seran #
# losnumeros en el mismo subdirectorio. #
# #
# 2.Copiar este perl con permisos 755 #
# #
# 3.Dar el valor adecuado a $path #
# #
# 4.Dar un valor deseado a $top #
# #
# 5.Crear el archivo que almacena el numero #
# de visitas (contador.dat) en el en el #
# que se halla este script. Debe tener #
# permisos 666 #
# #
# #
# Las imagenes que representan los digitos #
# digitos deben llamarse 0.gif, 1.gif, etc #
# y estar en el mismo subdirectorio que este#
# script. #
# #
#############################################
# #
# Ejemplo de llamada #
# #
# <!--#exec cmd="cgi-bin/contsimp.cgi"--> #
# #
#############################################
# path desde la pagina que llama a este contador
#
# por ejemplo: si la pagina esta en
# web.jet.es/justino/prueba/pres.shtml
# y el contador esta en
#web.jet.es/justino/cgi-bin/contsimp.cgi
# Entonces $path="../cgi-bin/";
#
$path = "./cgi-bin/";
# numero de cifras. Por ejemplo si
# $top = 4 y el numero de visitantes ha sido
# 345 entonces el contador muestra 0345
# En este caso cuando el contador llegara a
# ser mayor que 9999 ya no pondria ceros delante.
# Si no queremos ceros delante debemos poner
# $top=0, esto lo podemos cambiar en cualquier
# momento sin necesidad de resetear el contador
#
$top = 4;
#############################################
# A partir de aqui no hay que tocar nada
#############################################
# nombre y path del archivo que guarda los datos
#
$datos = $path."contador.dat";
# Leo el valor actual
#
open (data,"<$datos");
$num = <data>;
close(data);
# incremento el valor en 1
#
$num++;
# Guardo el nuevo valor
#
open (data,">$datos");
print data "$num";
close(data);
# Creo la cadena con los ceros
#
$long=length($num);
$ceros=$top-$long;
if ($ceros>0) {
for ($i=0; $i<$ceros; $i++){
$num="0".$num;
}
}
# Substituyo las cifras por su equivalente
# HTML de llamada a una imagen
#
$cero = "<img src='".$path."0.gif' border=0 alt='0'>";
$uno = "<img src='".$path."1.gif' border=0 alt='1'>";
$dos = "<img src='".$path."2.gif' border=0 alt='2'>";
$tres = "<img src='".$path."3.gif' border=0 alt='3'>";
$cuatro= "<img src='".$path."4.gif' border=0 alt='4'>";
$cinco = "<img src='".$path."5.gif' border=0 alt='5'>";
$seis = "<img src='".$path."6.gif' border=0 alt='6'>";
$siete = "<img src='".$path."7.gif' border=0 alt='7'>";
$ocho = "<img src='".$path."8.gif' border=0 alt='8'>";
$nueve = "<img src='".$path."9.gif' border=0 alt='9'>";
$num=~ s/0/$cero/g;
$num=~ s/1/$uno/g;
$num=~ s/2/$dos/g;
$num=~ s/3/$tres/g;
$num=~ s/4/$cuatro/g;
$num=~ s/5/$cinco/g;
$num=~ s/6/$seis/g;
$num=~ s/7/$siete/g;
$num=~ s/8/$ocho/g;
$num=~ s/9/$nueve/g;
print "$num";
El contador lo tengo insertado en la página index.htm mediante <!--#exec cmd="cgi-bin/contsimp.cgi"--> y no funciona (no da error pero tampoco funciona)
¿Los servidores Windows permiten dar permisos a los archivos? ¿Alguien me puede ayudar?
Un saludo.
