#!/usr/bin/perl
#
# Dirb2HTML , lee la salida de DIRB de un fichero y produce la version HTML
# WZZ 2010
#
# URI::Find build depends on Module::Build Test::More and needs URI.pm URI::URL to run.
use CGI qw(escapeHTML);
use URI::Find;
if(!$ARGV[0]) { print "Usage: ./dirb2html.pl dirb_output_file\n"; exit; }
$infile=$ARGV[0];
my $finder = URI::Find->new(sub {
my($uri, $orig_uri) = @_;
return qq|$orig_uri|;
});
open(FILE,$infile);
print "\n";
print "".$infile." - Dirb HTML\n";
print "\n";
print "\n";
while ( $l= )
{
chop($l);
$text = $l;
$finder->find(\$text, \&escapeHTML);
print "$text\n";
}
print "
\n";
print "\n";
print "\n";