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]
