Trato de mostrar la información de mi servidor en un cgi dinámico con HTTP_USER_AGENT. He guardado mi archivo Perl en cgi-bin/ y he dado los permisos de ejecución con chmod +x name.pl.
El código que tengo es este:
Using perl Syntax Highlighting
- #!/usr/bin/perl -T
- use strict;
- use CGI qw/:standard/;
- my $useragent = $ENV ('HTTP_USER_AGENT');
- print header, start_html('User Agent Example');
- if ( $useragent =~ /Firefox/ ) {
- print p("Tu estas visitando el servidor con un navegador Firefox");
- }
- elsif ( $useragent =~ /MSIE/ ) {
- print p("Tu estas visitando el servidor con un navegador Internet Explorer");
- }
- else {
- print p("No se ha determinado tu navegador: $useragent");
- }
- print end_html;
- exit;
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Al cargar en el navegador no tengo repuesta. No sé si tenga que guardarlo como .cgi. No sé si puedan ayudarme.
