Foro - Perl en Español

Es muy difícil ayudarte sin saber qué pasa.

Lo mejor que puedes hacer es colocar esta línea al principio del programa, tras la línea del "use CGI;":

use CGI::Carp qw'fatalsToBrowser';

De esa manera, los errores fatales saldrán en la página web de tu navegador, y así no necesitarás mirar los archivos log de actividad web, que parece que no sueles consultarles a menudo Una vez encontrado el fallo, quita la línea o déjala comentada.

Hay que recordar una máxima con el protocolo CGI. El servidor web es el que va a recibir la petición de ejecución del cgi. Este servidor está funcionando en tu ordenador bajo el nombre de un usuario. Bueno, pues el cgi se ejecutará con los permisos de ese usuario.

La carpeta donde se van a crear el directorio debe entonce tener los permisos suficientes para que el usuario que ejecuta el servidor web lo pueda hacer.

Más información
Más información
Más información
Más información

Si TÚ programa no puede ejecutar el mkdir, es porque el USUARIO que ejecuta TÚ programa NO tiene permisos para escribir o modificar en el directorio donde quieres crear el subdirectorio.

Lo primero... ¿qué usuario ejecuta el servidor web? Pues es ESE el usuario que ejecutará tu cgi.

Luego, vemos que los permisos de /var/www/html/ es

drwxr-xr-x. 5 apache apache

que quiere decir que SÓLO el usuario apache tiene permisos de escritura/modificación en ESE directorio. ¿Es ese el usuario con el que se ejecuta el programa servidor web? Lo puedes saber si haces un ps y miras los procesos apache que estén funcionando.

¿Y el error? ¿Qué sale en el error.log del servidor web? ¿Qué error sale en la pantalla? (si has puesto el módulo use CGI::Carp qw'fatalsToBrowser';)

Otras condiciones que se deben dar:

¿El programa tiene permisos de ejecución?

¿El servidor web tiene permisos de ejecución de CGI en el directorio donde está tu programa? Esto depende de la conf. del servidor web.

Si el programa no se puede ejecutar de ninguna manera, éstas son unas de las primeras cosas que hay que mirar.

¡¡MIRA el error.log!! ¡Es tu amigo!

El mensaje de error dice que

"no encuentro un archivo o directorio indicado en la línea 45 de upload_modif_ok.cgi"

Es decir: el servidor web sí que encuentra tu cgi, y lo ejecuta, pero sale con un error que se produce dentro de él.

El error en pantalla nos da la mayor pista: Permiso denegado.

Es decir, ahí en la 45 intentas abrir un archivo en escritura, pero el cgi no lo consigue.

Tienes que comprobar que el usuario 'apache' tiene permisos para

• ENTRAR en la carpeta /var/www/html/cev/TTT/19-01-20/
  
  Esto lo consigues fácilmente dando permisos de lectura y ejecución a todo el mundo en cada uno de esos subdirectorios
  
  Algo así: find /var/www/html -type d -exec chmod go+rx {} \;
  
  Ese comando pone los permisos a todos los subdirectorios de /var/www/html
  
• ESCRIBIR dentro de 19-01-20/ (la carpeta que contendrá el archivo a abrir con el open()).
  
  Esto lo consigues dando permisos de escritura a todo el mundo en esa carpeta
  
  Algo así: chmod go+w /var/www/html/cev/TTT/19-01-20/

Si la carpeta 19-01-20/ la estás creando tú en el programa con el mkdir(), ejecuta luego, en el programa, un

chmod 0777, "19-01-20";

(importante, no te olvides del '0' inicial. Eso le indica a Perl de que se trata de un número en octal).

y así te ahorras el segundo paso indicado antes.

Resumen:

• dale permisos de ejecución a los subdirectorios "fijos"
• desde el programa, los subdirectorios que creas, dales permisos de ejecución y escritura si luego vas a crear archivos dentro.