[IO::Socket::Inet]quelle addresse IP a envoyé le message

Bonjour à tous !!

Je voudrais savoir de quelle ip provient le mesage envoyé sur une socket.

Voilà le script de mon serveur:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
...
 
sub StartServer()
{
 
      Balloon('vous pouvez recevoir des messages','Serveur demarré','INFO','10');
      $socket = new IO::Socket::INET (
                    LocalPort => 5004 ,
                    Proto => 'tcp' ,
                    Listen => 5 ,
                    Reuse => 1
              ) ;
 
      $socket -> autoflush ( 1 ) ;
 
      while ( $nouvelle_socket = $socket -> accept ( ) ) 
      {
 
 
            $Code_message=<$nouvelle_socket>;
            chomp($Code_message);
            my @tab=split(/~/,$Code_message);
 
            my $sender_name=&GetVar($tab[1]);
            if($sender_name ne "")
            {
                  $tab[1]=$sender_name;
            }
 
            if(length($tab[0])>10)
            {
                  Balloon(substr($tab[0],0,10)."...","$peer t\'a ecrit",'10');      
            }
            else
            {
                  Balloon("$tab[0]","$peer t\'a ecrit\: ",'10');
            }
 
            &AlertMessage($tab[0],$tab[1]);
      }
 
}
 
 
...

Et mon client:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
$socket = new IO::Socket::INET (
                    PeerHost => $destinataire ,
                    PeerPort => 5004 ,
                    Proto => 'tcp' ,
                    ) ;
 
 
print $socket "$message~$ARGV[0]\n" ;
$socket -> flush ( ) ;
 
close ( $socket ) ;

Je voudrais pouvoir récupérer dans le scrtip serveur l'addresse ip de clui qui a écrit sur le socket afin de l'afficher dans mon MsgBox.

Est-ce possible ????

Merci pour vos réponses !!