accessibilité d'un site web

Bonjour,

J'ai créé un site web et je souhaiterai savoir comment tester s'il est accessible.

Bien sur tout cela en perl ?

Si t'as créé un site web, tu devrais savoir comment le visualiser :D. Quelle est l'adresse, l'URL !

justement, je ne veux pas le visualiser !! je veux lancer un petit script qui simul une visualtion, comme par exemple que l'on arrive bien sur la page de login.

LWP ou Mechanize est ton ami.

Bonjour,

J'ai récupéré ce script ci dessous sur le net.

mon adresse de serveur à tester est celle-ci
http://NomServeurWeb:8090/DEMARRAGE

Dans le script ci-dessous, j'arrive bien à placer la variable NomServeurWeb et son port 8090. Mais pour la suite de l'adresse, où dois je la placer ? car sinon j'arrive sur le code d'erreur suivant :
<<Affichage du contenu du rÚpertoire refusé>>
qui correspond simplement au résultat de la page http://NomServeurWeb:8090

Merci pour votre aide

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

use strict; use warnings;   use Socket;   my ( $iaddr, $paddr, $proto );     # ouvre la connexion $iaddr = inet_aton('NomServeurWeb') or die "Le serveur n'existe pas"; $paddr = sockaddr_in( 8090, $iaddr ); $proto = getprotobyname('tcp');     socket( SOCK, PF_INET, SOCK_STREAM, $proto ) or die "socket: $!"; connect( SOCK, $paddr ) or die "connect: $!";   # force le vidage automatique du tampon select( ( select(SOCK), $| = 1 )[0] );   # envoie la requête # ("\r\n" n'est pas portable, d'où l'utilisation de "\015\012") print SOCK "GET / HTTP/1.0\015\012Host: NomServeurWeb\015\012\015\012";   # récupère la réponse my $page = do { local $/; <SOCK> }; print ">>$page<<\n";   # ferme la connexion close(SOCK) or die "close: $!";

---