—

              
package Net::Scan::HTTP::Server::Directory;
use 5.008006;
use strict;
use warnings;
use base qw(Class::Accessor::Fast);
use Carp;
use IO::Socket;
our $VERSION = '0.01';
$VERSION = eval $VERSION;
__PACKAGE__->mk_accessors( qw(host port timeout http_version user_agent directory debug));
$| = 1;
sub scan {
        my $self         = shift;
        my $host         = $self->host;
        my $port         = $self->port         || 80;
        my $timeout      = $self->timeout      || 8;
        my $http_version = $self->http_version || '1.1';
        my $user_agent   = $self->user_agent   || 'Mozilla/5.0';
        my $directory    = $self->directory    || '/';
        my $debug        = $self->debug        || 0;
        my $method       = "GET";
        my $CRLF         = "\015\012";
        my $connect = IO::Socket::INET->new(
                PeerAddr => $host,
                PeerPort => $port,
                Proto    => 'tcp',
                Timeout  => $timeout
        );
        $SIG{ALRM}=sub{exit(0);};
        alarm $timeout;
        my $results;
  
        if ($connect){
                print $connect "$method /$directory/ HTTP/$http_version$CRLF";
                print $connect "User-Agent: $user_agent$CRLF";
                print $connect "Host: $host$CRLF";
                print $connect "$CRLF";
                my @lines = $connect->getlines(); 
                if (@lines){
                        foreach (@lines){
                                if ($_ =~ /^HTTP\/$http_version/){
                                        (undef,$results) = split(/\s/,$_);
                                }
                        }
                }
                close $connect; 
        } else {
                if ($debug){
                        $results = "connection refused";
                } else {
                        $results = "";  
                }
        }
         
        return $results;
}
1;
__END__
HideShow 118 lines of Pod
=head1 NAME
Net::Scan::HTTP::Server::Directory - scan for directory on a web server 
=head1 SYNOPSIS
  use Net::Scan::HTTP::Server::Directory;
  my $host = $ARGV[0];
  my @directory = ("test","foo","bar");
  foreach(@directory){
        scan($host,$_);
  }
  sub scan{
   my ($host,$directory) = @_;
   my $scan = Net::Scan::HTTP::Server::Directory->new({
      host      => $host,
      directory => $directory,
      timeout   => 5
   });
     
   my $results = $scan->scan;
   print "$host $results\n" if $results;
  }
=head1 DESCRIPTION
This module permit to scan for directory on a web server.
=head1 METHODS
=head2 new
The constructor. Given a host returns a L<Net::Scan::HTTP::Server::Directory> object:
  my $scan = Net::Scan::HTTP::Server::Directory->new({
    host         => '127.0.0.1',
    port         => 80,
    timeout      => 5,
    http_version => '1.1', 
    user_agent   => 'Mozilla/5.0',
    directory    => 'directory',
    debug        => 0 
  });
Optionally, you can also specify :
=over 2
=item B<port>
Remote port. Default is 80;
=item B<timeout>
Default is 8 seconds;
=item B<http_version>
Set the HTTP protocol version. Default is '1.1'.
=item B<user_agent>
Set the product token that is used to identify the user agent on the network. The agent value is sent as the "User-Agent" header in the requests. Default is 'Mozilla/5.0'.
=item B<directory>
Directory to search on web server. Default is '/';
=item B<debug>
Set to 1 enable debug. Debug displays "connection refused" when an HTTP server is unrecheable. Default is 0;
=back
=head2 scan 
Scan the target.
  $scan->scan;
=head1 NOTES
1xx: Informational 
2xx: Success 
3xx: Redirection 
4xx: Client error 
5xx: Server error 
  
=head1 SEE ALSO
RFC 1945, RFC 2068, RFC 2616
L<LWP>
LW2 http://www.wiretrip.net/rfp/lw.asp
=head1 AUTHOR
Matteo Cantoni, E<lt>mcantoni@cpan.orgE<gt>
=head1 COPYRIGHT AND LICENSE
You may distribute this module under the terms of the Artistic license.
See Copying file in the source distribution archive.
Copyright (c) 2006, Matteo Cantoni
=cut