Foro - Perl en Español

por **romero** » 2006-10-23 17:56 @789

Tengo un CGI que ejecuta algunos comandos con system,
Mi CGI hace lo que quiero pero al final aparece 500 Internal Server ERROR, y no llega a la última parte del CGI que es redireccionar a otra página.
Checando el log del apache veo que lo que marca no son realmente errores, sino las órdenes y el resultado de los comandos system.
Estuve tratando con CGI::Carp pero no me resolvió nada, y también estuve buscando en la configuración del apache.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

@sysargs=("cvs","-d:pserver:$user\@$host:/$repo","checkout","$module");
system(@sysargs);Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

El log del apache

Código: Seleccionar todo: [23.10.2006.10:44][192.168.0.14]ERROR cvs checkout proyecto1 [23.10.2006.10:44][192.168.0.14]ERROR cvs checkout proyecto1 [23.10.2006.10:44][192.168.0.14]ERROR cvs checkout proyecto1/logg.svg ......

¿Cómo puedo hacer para que corra bien este CGI?

Es posible que la ejecución con system haga que esos comandos manden información a la salida estándar o salida de error estándar.

Podrías ver si el cvs admite algún flag para impedir que muestre esos mensajes. O quizás, decirle que los grabe a un determinado fichero (o incluso /dev/null).

Usando Perl, se puede redirigir las entradas, salidas y salida de error estándar a ficheros o incluso a estructuras internas. Aunque se puede hacer con open y select, yo suelo usar el método tap del módulo Sysadm::Install:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

($stdout,$stderr,$exit_code)= tap($cmd,@args)Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

De esa manera, estás seguro de que no salen al 'exterior' del programa (y por ende, a la página web).

Foro - Perl en Español

¿Cómo ignorar errores?

¿Cómo ignorar errores?

Publicidad

¿Quién está conectado?