Discussion :

[Julien_]

Bonjour,
en développant une petite application permettant de se connecter à un serveur, une nouvelle contrainte m'a été imposée, le client doit passer un proxy privé avant d'atteindre le serveur de destination.
Résumé :

Mon Client sur mon poste ---> PROXY ---> SERVEUR

En prendant un code comme celui là (basé sur un code trouvé sur le forum):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
#!/usr/local/bin/perl   
use IO::Socket;   
$socket1 = IO::Socket::INET->new(  
Type => SOCK_STREAM, 
PeerAddr => "80.10.220.XX", 
Proto => "tcp", PeerPort => 1337  );     
 
print $socket1 "Message de la socket vers le serveur\n\n\n";   
 
# Réponse de <server1> 
$ligne = <$socket1>; 
print "Message du serveur reçu par la socket = $ligne\n

Ici donc, on se connecte au serveur 80.10.... sur le 1337.
Comment faire pour répondre à ma problèmatique ??

D'avance merci

[pospos]

si tu veux faire tu HTTP alors LWP gerera la chose
PAr contre si tu veux utiliser ton propre protocole (comme ca a l'air d'etre le cas) alors tu dois faire du tunneling à travers le proxy (methode CONNECT sur le proxy). C'est une methode normalement utilisée pour faire passer du HTTPS à travers un proxy, mais on peu y faire passer n'importe koi.

Il existe plusieurs modules sur CPAN pour faire ca, par exempl :
http://search.cpan.org/~rwahby/Net-H.../HTTPTunnel.pm

(le HTTP dans le nom du module vient du fait que la methode CONNECT est dans HTTP, mais ensuite tu peux faire ce que tu veux avec ton socket)

[Julien_]

Merci de ta réponse. Effectivement il s'agit de navigation par protocole et non uniquement par http. Je vais utiliser la ressource citée et posterai les résultats.
Merci bien