#!/usr/bin/perl -w

use IO::Socket;
my $sock = new IO::Socket::INET (
				 PeerAddr => $ARGV[0],
				 PeerPort => '80', 
				 Proto => 'tcp',
				 );
die "Could not create socket: $!\n" unless $sock;

print $sock "GET / HTTP/1\.1\nHost:$ARGV[0]\n\n";

# while(<$sock>)
# {
#     print $_;
# }
@contenu = <$sock>;
close($sock);

chomp @contenu;
$contenubis=join("",@contenu);
chomp $contenubis;

@lienstemp= split(/href=["']/,$contenubis);
foreach $lien (@lienstemp)
{
    ($lien) = split(/["?]/,$lien); 
    #s'il manque le slash de fin, on le met.
    if ($lien !~ /.*\/$/)
    {
	$lien.="/";
    }
    @liens = (@liens, $lien);
    $contenubis = $';
}

foreach (@liens)
{
    if($_ =~ /^((http|ftp):\/\/.*?\/).*$/)
       {
	   $lesliens = join(":", @liens_u);
	   if ($lesliens !~ /$1/)
           {
	       @liens_u = (@liens_u, $1);
	   }
       }
}

#Les liens uniques
foreach (@liens_u)
{
    print "$_\n";
}