Using perl Syntax Highlighting
#!/usr/bin/perl
use strict;
require "cgi-lib.pl";
my $RASpath = "/";
my $RASlist = "$RASpath/RAS.list";
# ---- Leemos el fichero de RASes ----------------------------------------
open (RASES,"$RASlist"); # Abro el archivo
my @RASes = <RASES>; # Leo...
close (RASES); # Cierro el archivo
print "Content-type: text/html\n\n";
print <<HTML;
<HTML>
<HEAD>
<TITLE>Datos</title>
<BODY>
HTML
foreach my $ras (@RASes){
chomp($ras);
print "<h4>$ras</h4><br>\n";
}
print "</BODY>\n";
print "</HTML>\n";
use strict;
require "cgi-lib.pl";
my $RASpath = "/";
my $RASlist = "$RASpath/RAS.list";
# ---- Leemos el fichero de RASes ----------------------------------------
open (RASES,"$RASlist"); # Abro el archivo
my @RASes = <RASES>; # Leo...
close (RASES); # Cierro el archivo
print "Content-type: text/html\n\n";
print <<HTML;
<HTML>
<HEAD>
<TITLE>Datos</title>
<BODY>
HTML
foreach my $ras (@RASes){
chomp($ras);
print "<h4>$ras</h4><br>\n";
}
print "</BODY>\n";
print "</HTML>\n";
Coloreado en 0.006 segundos, usando GeSHi 1.0.8.4
Como veis, basicamente leo los datos de un fichero y los presento por pantalla.
Pues bien, al ejecutarlo en el terminal todo va bien, veo los datos.. incluso si copio la salida del script a un fichero .html y luego lo abro con el explorador, perfecto.
Si lo ejecuto directamente con el explorador es como si no leyera el fichero y no presenta nada.... ?!?!?
He comprobado permisos y demas, he probado con superusuario y con mi usuario normal... nada. Empiezo a desesperar, alguna idea?
