Lantolin: Página creada con «En entornos de desarrollo puede ser util tener un "agujero negro" que acepte todo y devuelva un HTTP 200 y que además lo escriba a un fichero local. Ojito, que este tipo...»

2018-03-28T18:20:41Z

Página creada con «En entornos de desarrollo puede ser util tener un "agujero negro" que acepte todo y devuelva un HTTP 200 y que además lo escriba a un fichero local. Ojito, que este tipo...»

Página nueva

En entornos de desarrollo puede ser util tener un "agujero negro" que acepte todo y devuelva un HTTP 200 y que además lo escriba a un fichero local.

Ojito, que este tipo de cosa seria un agujero de seguridad enorme en cualquier entorno de internet o similar.

Este CGI hace justo eso:

<pre>
#!/usr/bin/perl

open(OUT,">>/tmp/MIB.out");

print "Content-type: text/plain; charset=iso-8859-1\n\n";

local ($buffer);

$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
if ($ENV{'REQUEST_METHOD'} eq "POST")
{
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}
else
{
$buffer = $ENV{'QUERY_STRING'};
}

print OUT "BEGIN---------------------------------------------------------------------------\n";
print OUT "$buffer\n";
print OUT "END-----------------------------------------------------------------------------\n";

close(OUT);

1;
</pre>

[[Category:Tecnologia]]
[[Category:Redes]]
[[Category:Tips]]

GGI en Perl que vuelca todo a fichero - Historial de revisiones

Lantolin: Página creada con «En entornos de desarrollo puede ser util tener un "agujero negro" que acepte todo y devuelva un HTTP 200 y que además lo escriba a un fichero local. Ojito, que este tipo...»