Perhaps some more info would be in order SlyFox. Over.

On 2 May 00, at 16:14, [EMAIL PROTECTED] wrote:

From:                   [EMAIL PROTECTED]
Date sent:              Tue, 2 May 2000 16:14:58 EDT
Subject:                (no subject)
To:                     "Perl-Win32-Users Mailing List" 
<[EMAIL PROTECTED]>
Send reply to:          [EMAIL PROTECTED]

> why does this not work? I copied it straight off the activestate website
> #!/usr/bin/perl
> use Socket;
> 
>     $proto = getprotobyname('udp');
>     socket(Socket_Handle, PF_INET, SOCK_DGRAM, $proto);
>     $iaddr = gethostbyname('hishost.com');
>     $port = getservbyname('time', 'udp');
>     $sin = sockaddr_in($port, $iaddr);
>     send(Socket_Handle, 0, 0, $sin);
>     
>     $proto = getprotobyname('tcp');
>     socket(Socket_Handle, PF_INET, SOCK_STREAM, $proto);
>     $port = getservbyname('smtp', 'tcp');
>     $sin = sockaddr_in($port,inet_aton("127.1"));
>     $sin = sockaddr_in(7,inet_aton("localhost"));
>     $sin = sockaddr_in(7,INADDR_LOOPBACK);
>     connect(Socket_Handle,$sin);
>     
>     ($port, $iaddr) = sockaddr_in(getpeername(Socket_Handle));
>     $peer_host = gethostbyaddr($iaddr, AF_INET);
>     $peer_addr = inet_ntoa($iaddr);
>     
>     $proto = getprotobyname('tcp');
>     socket(Socket_Handle, PF_UNIX, SOCK_STREAM, $proto);
>     unlink('/tmp/usock');
>     $sun = sockaddr_un('/tmp/usock');
>     connect(Socket_Handle,$sun);
> 
> ---
> You are currently subscribed to perl-win32-users as: [EMAIL PROTECTED]
> To unsubscribe, forward this message to
>          [EMAIL PROTECTED]
> For non-automated Mailing List support, send email to  
>          [EMAIL PROTECTED]
> 
> 



---
You are currently subscribed to perl-win32-users as: [archive@jab.org]
To unsubscribe, forward this message to
         [EMAIL PROTECTED]
For non-automated Mailing List support, send email to  
         [EMAIL PROTECTED]

Reply via email to