Discussion :

[vince2005]

Bonjour,

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

Bien sur tout cela en perl ?

[djibril]

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

[vince2005]

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.

[djibril]

LWP ou Mechanize est ton ami.

[vince2005]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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: $!";