I have been asked to write a whois script. Does anyone have any pointers? It will take a domain name without the TLD and then add a selected TLD and search for it. Anyone got any ideas? <p>fortytwo<br><a href=mailto:will@hellacool.co.uk>will@hellacool.co.uk</a><br><a href= test site</a><br>
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Getting started with a whois script. 1
- Thread starter fortytwo
- Start date
- Thread starter
- #2
OK. Does anyone have any advice on the use of<br><br>$nslookup = "/user/bin/nslookup";<br>$command = "$nslookup -timeout=2 -q=ns $domainname 2>&1";<br>open(SHELL, "$command ¦"
;<br><br>What does it all mean? I am stuggling here <p>fortytwo<br><a href=mailto:will@hellacool.co.uk>will@hellacool.co.uk</a><br><a href= test site</a><br>
;<br><br>What does it all mean? I am stuggling here <p>fortytwo<br><a href=mailto:will@hellacool.co.uk>will@hellacool.co.uk</a><br><a href= test site</a><br>-
1
- #3
<i>nslookup</i> - is a UNIX command to get information about boxes on a network, be it an intranet or the internet. It sends queries to a <i>domain name server</i> to get information about the servers that the domain name server knows about. There are a variety of arguments. <br>The ones you are using, <i>-timeout</i> and <i>domainname</i>, do what they sound like. <br> -<i>timeout</i> specifies how long to try to get a response before dying.<br> -<i>domainname</i> specifies the mask for the domain your are interested in.<br><br><b>So</b>, we have a UNIX command and two args for it.<br><br>Next, what does <i>open(SHELL, "$command ¦"</i> do?<br>Answer - the '<b>¦</b>' char in the end of the parens is called a pipe and is a pipe. That is, the character is a pipe AND the syntax opens a 'pipe' to the UNIX command and attaches a handle to it. That means you can read from the stuff the UNIX command spits back just like it is a file.<br><br>So, your code builds the appropriate syntax to use with the <i>nslookup</i> command and then opens a <i>pipe</i> to that command so you can catch what it spits back.<br><br>Hope this helps.......
;</i> do?<br>Answer - the '<b>¦</b>' char in the end of the parens is called a pipe and is a pipe. That is, the character is a pipe AND the syntax opens a 'pipe' to the UNIX command and attaches a handle to it. That means you can read from the stuff the UNIX command spits back just like it is a file.<br><br>So, your code builds the appropriate syntax to use with the <i>nslookup</i> command and then opens a <i>pipe</i> to that command so you can catch what it spits back.<br><br>Hope this helps....... - Thread starter
- #4
Thanks goBoating. It has helped. The script is coming along nicely now.<br><br>Regards<br>Will. <p>fortytwo<br><a href=mailto:will@hellacool.co.uk>will@hellacool.co.uk</a><br><a href= test site</a><br>
- Thread starter
- #5
$command = "$nslookup -timeout=2 -q=ns $domainname 2>&1";<br>OK, I have this down to check for an authoritative answer from some nameservers. I cannot get it to return $nameservers = 1 though. I have tried to match:<br><br>Authoritative Answer<br>Authoritative Answers<br>Authoritative answers<br><br>$nslookup = "/usr/local/bin/nslookup";<br>open(SHELL, "$command ¦"<br>while(<SHELL> {<br>#looking for authoritative nameserver<br>if (/^Authoritative Answer/) {<br>$nameservers = 1;<br>}<br>else<br>{<br>$nameservers = 0;<br>}<br>}<br>close(SHELL);<br>print "$out\n";<br><br>Anyone got any ideas on this one?<br><br>Thanks.<br> <p>fortytwo<br><a href=mailto:will@hellacool.co.uk>will@hellacool.co.uk</a><br><a href= test site</a><br>
;<br>while(<SHELL> {<br>#looking for authoritative nameserver<br>if (/^Authoritative Answer/) {<br>$nameservers = 1;<br>}<br>else<br>{<br>$nameservers = 0;<br>}<br>}<br>close(SHELL);<br>print "$out\n";<br><br>Anyone got any ideas on this one?<br><br>Thanks.<br> <p>fortytwo<br><a href=mailto:will@hellacool.co.uk>will@hellacool.co.uk</a><br><a href= test site</a><br>a little more UNIX stuff.......<br>When you use the <i>open(SHELL,"$command ¦"</i>, the pipe connects to STDOUT of the command. It looks like your command has redirected STDOUT to go to somewhere else. If this is the case, then the output of <i>nslookup</i> will not make it back through the pipe. The <font color=red>></font> is the redirect operator.<br><br>You can run nslookup from the command line. Loose the <font color=red>>&1</font>, run it at a prompt and see what you get back. Make sure you are using the nslookup command the way your OS expects. <br><br>I am using SunOS 5.6...when I do this...<br><b>nslookup -timeout=5 -q=ns awac.com</b><br>I get this....<br><b>Server: someserver.somewhere.com<br>Address: 213.267.12.199<br><br>Non-authoritative answer:<br>awac.com nameserver = ns-1.awac.com<br>awac.com nameserver = ns-2.awac.com<br><br>Authoritative answers can be found from:<br>ns-1.awac.com internet address = 207.146.99.11<br>ns-2.awac.com internet address = 207.146.99.12<br></b><br><font color=red> the names have been changed to protect the innocent</font><br><br>Once, you are sure you are using the command correctly, migrate the command syntax into your Perl code. Drop a print in the 'while(SHELL,"$command ¦" { }' loop to make sure you are, in fact, getting something back. If so, what does it look like....make adjustments to your match and you're there.<br><br><br>' Hope this helps. <p> <br><a href=mailto: > </a><br><a href= > </a><br> keep the rudder amid ship and beware the odd typo
</i>, the pipe connects to STDOUT of the command. It looks like your command has redirected STDOUT to go to somewhere else. If this is the case, then the output of <i>nslookup</i> will not make it back through the pipe. The <font color=red>></font> is the redirect operator.<br><br>You can run nslookup from the command line. Loose the <font color=red>>&1</font>, run it at a prompt and see what you get back. Make sure you are using the nslookup command the way your OS expects. <br><br>I am using SunOS 5.6...when I do this...<br><b>nslookup -timeout=5 -q=ns awac.com</b><br>I get this....<br><b>Server: someserver.somewhere.com<br>Address: 213.267.12.199<br><br>Non-authoritative answer:<br>awac.com nameserver = ns-1.awac.com<br>awac.com nameserver = ns-2.awac.com<br><br>Authoritative answers can be found from:<br>ns-1.awac.com internet address = 207.146.99.11<br>ns-2.awac.com internet address = 207.146.99.12<br></b><br><font color=red> the names have been changed to protect the innocent</font><br><br>Once, you are sure you are using the command correctly, migrate the command syntax into your Perl code. Drop a print in the 'while(SHELL,"$command ¦" { }' loop to make sure you are, in fact, getting something back. If so, what does it look like....make adjustments to your match and you're there.<br><br><br>' Hope this helps. <p> <br><a href=mailto: > </a><br><a href= > </a><br> keep the rudder amid ship and beware the odd typo- Thread starter
- #7
Thanks<br><br>I have managed to put a working version together (apart from the uk.com's) here:<br><br><A HREF=" TARGET="_new"> any one wants to see the script, email me.<br><br>Will <p>fortytwo<br><a href=mailto:will@hellacool.co.uk>will@hellacool.co.uk</a><br><a href= test site</a><br>
- Status