hm, but how you get the meassage back ?
i tryed:
------
use Socket;
sub open_TCP
{
my($FS, $dest, $port) = @_;
my $proto = getprotobyname('udp');
socket($FS, PF_INET, SOCK_DGRAM, $proto);
my $sin = sockaddr_in($port, inet_aton($dest));
connect($FS, $sin) || return undef;
my $old_fh = select($FS);
$| = 1;
select($old_fh);
1;
}
if(open_TCP(F, "ns.internet-shop.net", 53) == undef)
{
print "Verbindung zum Server fehlgeschlagen\n$!";
}
print F "internet-shop.net\n";
while(<F>)
{
print $_;
}
-----------
but get nothing back !!
-----Ursprüngliche Nachricht-----
Von: Alexander [mailto:[EMAIL PROTECTED]]
Gesendet: Dienstag, 9. Januar 2001 06:22
An: Kristofer Wolff
Betreff: Re: ask a nameserver
Some more detail...
--------step 1-----conect to my ISP name-server--------------
> server 195.158.0.1
DNS request timed out.
timeout was 2 seconds.
Default Server: [195.158.0.1]
Address: 195.158.0.1
-----step 2--------ask who is NS for internet-shop.net.--------
> internet-shop.net.
Server: ns.uzpak.uz
Address: 195.158.0.1
Non-authoritative answer:
Name: internet-shop.net
Address: 195.145.38.2
-------step 3-----connect to internet-shop.net name-server-----
> server 195.145.38.2
DNS request timed out.
timeout was 2 seconds.
Default Server: [195.145.38.2]
Address: 195.145.38.2
-------step 4-----ask him MX-records for internet-shop.net.---
> ls -t mx internet-shop.net.
[[195.145.38.2]]
internet-shop.net. MX 20 zeus.nic.dtag.de
internet-shop.net. MX 10 ns.internet-shop.net
internet-shop.net. MX 14 ns2.internet-shop.net
internet-shop.net. MX 15 prrouter.internet-shop.net
*.internet-shop.net. MX 10 ns.internet-shop.net
*.internet-shop.net. MX 14 ns2.internet-shop.net
*.internet-shop.net. MX 15 prrouter.internet-shop.net
*.internet-shop.net. MX 20 zeus.nic.dtag.de
ns2.internet-shop.net. MX 10 ns.internet-shop.net
ns2.internet-shop.net. MX 14 ns2.internet-shop.net
ns2.internet-shop.net. MX 15 prrouter.internet-shop.net
ns2.internet-shop.net. MX 20 zeus.nic.dtag.de
*.ns2.internet-shop.net. MX 10 ns.internet-shop.net
*.ns2.internet-shop.net. MX 14 ns2.internet-shop.net
*.ns2.internet-shop.net. MX 15 prrouter.internet-shop.net
*.ns2.internet-shop.net. MX 20 zeus.nic.dtag.de
mail.ip29.internet-shop.net. MX 10 ip29.internet-shop.net
work.internet-shop.net. MX 10 oliver.internet-shop.net
work.internet-shop.net. MX 15 ns2.internet-shop.net
work.internet-shop.net. MX 20 ns.internet-shop.net
work.internet-shop.net. MX 30 zeus.nic.dtag.de
*.work.internet-shop.net. MX 10 oliver.internet-shop.net
*.work.internet-shop.net. MX 15 ns2.internet-shop.net
*.work.internet-shop.net. MX 20 ns.internet-shop.net
*.work.internet-shop.net. MX 30 zeus.nic.dtag.de
-------step 5--------get A-record (IP-address) from DNS for
'ns.internet-shop.net'
ok, HOST 'ns.internet-shop.net' is responcible accept mail for DOMAIN
"internet-shop.net", with priority 10
> ns.internet-shop.net
195.145.38.2
-------step 6-----send SMTP-message to user "kwo"---
Alexander
----- Original Message -----
From: Kristofer Wolff <[EMAIL PROTECTED]>
To: perllist <[EMAIL PROTECTED]>
Sent: Monday, January 08, 2001 6:38 PM
Subject: ask a nameserver
> how do i access a nameserver ??
>
> any help, out there ?
> _______________________________________________
> Perl-Win32-Web mailing list
> [EMAIL PROTECTED]
> http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
>
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
