#!/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";
}