Foro - Perl en Español

Hola a todos,

Soy nuevo por aquí. No tengo ni idea de Perl más allá de lo que es ejecutar scripts / herramientas programadas en Perl. Tampoco suelo tener mayor problema con scripts multiplataforma que se suponen deben funcionar tanto en UNIX/Linux como en Windows. Sin embargo, tengo un script que sí me está dando quebraderos de cabeza solo en Windows.

El error que devuelve es:


Donde dice, más arriba "C:\Documents and Settings\Administrador/tha_rules/" es el contenido de una variable de una archivo .conf. Da igual lo que ponga en esa variable. La variable almacena una carpeta temporal para que el script realice su trabajo:

temp_path=c:/tmp

Da igual que ponga c:/tmp que c:\tmp o cualquier carpeta, el error siempre es el mismo.

El script crea una subcarpeta tha_rules que creo es la que está dando el problema de permisos. No sé si la está creando bien o no o el problema es otro.

Yo, con mis mínimos conocimientos de Perl, he estado trasteando un poco el código, etc, pero no doy con la solución. Después de mucho mirar el código, incluso creo que funciona, pero hay una línea (528 del código):

open( DATA, "$path$file" ) || croak "Couldn't read $file - $!\n";

Ese croak()... me da que devuelve un error sin que realmente exista. Pero no estoy seguro, no soy experto en este tema.

Si alguien me puede dar una pista...

saludos y gracias,


(Adjunto el script)

Saludos y gracias,

Muchas gracias explorer. Voy a aplicar la solución que me propone y le cuento. Por cierto, su foto me suena mucho. Dónde le habré visto...

Saludos,

explorer, su solución funciona a la perfección. Muchísimas gracias.

Solo queda un par de cosillas respecto a permisos. Cuando ejecuto el script:



No puede borrar:
C:/tha_rules
No puede escribir en:
C:/Snort/rules

Sin embargo, estoy ejecutando el script desde la cuenta de administrador y los permisos del sistema son correctos.

Además, muchos archivos en C:/Snort/rules tienen fecha de hoy y hora aproximada del momento de ejecución del script (17:35 hora local).

Incluso ahora que me fijo, sí ha borrado C:/tha_rules. Con lo que no entiendo el error o es que es un error que realmente no lo es...

Ahora recuerdo dónde le he visto... usted ha reseñado en este foro alguna entrada de mi blog.

Saludos,

Seguramente será eso, efectivamente en Linux no hay problema alguno. En su momento, hace un mes, ya reseñé este error en el foro del/los programadores pero de momento no han dado con la solución. Volveré a ver con lo visto aquí.

Muchas gracias por todo.

Por lo que veo, el problerma de permisos ocurre cuando escribe datos o cuando quiero borrar algo creado por el script. En la línea 202 borra la carpeta tha_rules de la forma:

my $remove = rmtree( $temp_path . "tha_rules" );

El script no devueve número de linea para el error de escritura pero supongo que debe ser la línea:

open( WRITE, ">$file" ) || print "Unable to write $file - $!\n";

Se usa rmtree y WRITE. No sé si habrá algún otro método que pudiera no devolver el error de permisos.

Saludos,

Aparte de lo comentado anteriormente para los métodos de borrado y escritura de datos, pulledpork no es el único script de Perl que cumple la función de descarga, gestión y escritura de reglas Snort en las carpetas correspondientes. Oinkmaster también es un script de Perl que cumple esta función, aunque no es tan completo. Sin embargo oinkmaster, al ejecutarlo en Windows, no me da ningún error trabajando en las mismas carpetas que las indicadas para pulledpork, borra los temporales y escribe las nuevas reglas sin ningún problema de permisos.

Así que ahora casi que lo entiendo menos, salvo que oinkmaster (script más antiguo que pulledpork) use otros métodos de escritura y borrado.

(adjunto oinkmaster.pl)

Por otra parte, y como soy un tanto cabezota, sigo trasteando con pulledpork.pl por si descubro algo:

Una de las carpetas que debe actualizar y escribir datos dentro es so_rules. Pues bien, el script no actualiza ni escribe contenido alguno en dicha carpeta (con esta carpeta no da error de permisos pero tampoco lo hace bien), pero... si borro la carpeta, al ejecutar el script, este crea un archivo de 0 bytes con el nombre so_rules. Curioso. Esto mismo pasa con la carpeta rules (esta sí da error de permiso denegado), si la borro, el script no da error alguno aunque tampoco lo hace bien y crea un archivo rule de 0 bites.



Como se puede observar arriba:

Writing C:/Snort/rules....
Done
Writing C:/Snort/so_rules....
Done

Y no es cierto, además del tema de la creación de archivos 0 bites en vez de carpetas.

También se observa que si bien no puede borrar la carpeta tha_rules (carpeta que crea el propio script), sí puede borrar su contenido y de hecho sí lo hace correctamente.

Diferencias entre script Perl pulledpork y oinkmaster.

No soy entendido en Perl pero las diferencias que veo es que para crear carpetas o directorios:

- oinkmaster usa mkdir
- pulledopork usa mkpath


Saludos,