can you give me an Example fro DNS ??? I have some problems to use them in
the manual. :: if NEt::DNS an standart extension ?? I need the conection on
3 systems (NT, UNIX and MACos 9) thats my problem ! So i decidet to use the
socket thing. Hmm but now i tryed 2 days get anything back... please help
!!!
-----Ursprüngliche Nachricht-----
Von: Philip Newton [mailto:[EMAIL PROTECTED]]
Gesendet: Mittwoch, 10. Januar 2001 09:36
An: 'Kristofer Wolff'; perllist
Betreff: Re: ask a nameserver
Kristofer Wolff wrote:
> 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";
Is that the correct syntax for a DNS query? I doubt it.
> while(<F>)
> {
> print $_;
> }
> -----------
> but get nothing back !!
Is there a reason why you're not using Net::DNS and Net::DNS::Resolver
rather than trying to reinvent the wheel?
(By the way, what Alexander wrote seems to be a session with the
command-line tool 'nslookup', not anything from Perl. And I think there's
something missing: I'll comment on it further down.)
Cheers,
Philip
>
>
>
> -----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.--------
I think you need to add something first:
set q=ns
to set the query type to 'NS' (find name servers). I believe the default
query type is 'A' (IPv4 address).
> > 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
>
and here switch back with
set q=a
to find out the A record.
> > 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
>
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
