8 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hello, do you know any clever way to get information whether certain domain name become avaialble for registration from bash script?
Would be good to check for the availability like every 100miliseconds, i want to catch domain. (1 Reply)
Discussion started by: postcd
1 Replies
2. UNIX for Dummies Questions & Answers
Hello, I was wondering how I can do a whois from a file with lots of ip's in this format
0.0.0.0
0.0.0.0
0.0.0.0
0.0.0.0
0.0.0.0
0.0.0.0
And so on, then print the whois data from all the ip's to one single file sort of like this "whois -r 'ipfile' > 'whoisfile'"
Thanks in advance!
... (3 Replies)
Discussion started by: uxfuser
3 Replies
3. Shell Programming and Scripting
Hello folks,
I have list of ips like
1.1.1.1
2.2.2.2
3.3.3.3
4.4.4.4
whois 1.1.1.1 |grep -E 'country|Country'
it show country=US or whatever.
so i have number of ips in text file, how i can use above script to automate output like
1.1.1.1 US
2.2.2.2 CA
3.3.3.3 FR (3 Replies)
Discussion started by: learnbash
3 Replies
4. Shell Programming and Scripting
Hi guys,
I need a script that given an IP address, say IPA, do the following:
- queries "whois IPA"
- extracts, from the whois answer, the IP network string indicated after the string "route:",
- searches the IP network string in a given text file, say CIDR2ASN.txt, which has several lines,... (1 Reply)
Discussion started by: stesecci
1 Replies
5. UNIX for Advanced & Expert Users
Write a quick shell snippet to find all of the IPV4 IP addresses
in any and all of the files under /var/lib/output/*, ignoring
whatever else may be in those files. Perform a reverse lookup on
each, and format the output neatly, like "IP=192.168.0.1,
... (0 Replies)
Discussion started by: choco4202002
0 Replies
6. Shell Programming and Scripting
I have a script that does a whois lookup that worked fine on a previous server. It used whois with the t option to timeout in 5 seconds. A while back I upgraded to a new server and the script had problems. I found out the new server didn't even have whois. The whois command was symlinked to jwhois... (4 Replies)
Discussion started by: PWSwebmaster
4 Replies
7. Shell Programming and Scripting
Hello,
I wrote a basic script to query a whois server using the whois system command to retrieve information about IP's. I have file containing the ip addresses which I feed to the whois command via a while loop. This seems to work sometimes. Most of the time, the whois command seems not to... (0 Replies)
Discussion started by: aliberson
0 Replies
8. IP Networking
Hey folks, I've been charged with the job of finding out who's been screwing around with the download counts on our site. So now I have this huge list of IP's that I supposed to match to such and such developer.
I was told by one guy that I should just do a traceroute and that'd tell me where... (2 Replies)
Discussion started by: DumDum
2 Replies
Net::Whois::Raw(3pm) User Contributed Perl Documentation Net::Whois::Raw(3pm)
NAME
Net::Whois::Raw - Get Whois information for domains
SYNOPSIS
use Net::Whois::Raw;
$dominfo = whois('perl.com');
($dominfo, $whois_server) = whois('funet.fi');
$reginfo = whois('REGRU-REG-RIPN', 'whois.ripn.net');
$arrayref = get_whois('yahoo.co.uk', undef, 'QRY_ALL');
$text = get_whois('yahoo.co.uk', undef, 'QRY_LAST');
($text, $srv) = get_whois('yahoo.co.uk', undef, 'QRY_FIRST');
$Net::Whois::Raw::OMIT_MSG = 1;
# This will attempt to strip several known copyright
# messages and disclaimers sorted by servers.
# Default is to give the whole response.
$Net::Whois::Raw::CHECK_FAIL = 1;
# This will return undef if the response matches
# one of the known patterns for a failed search,
# sorted by servers.
# Default is to give the textual response.
$Net::Whois::Raw::CHECK_EXCEED = 1;
# When this option is set, "die" will be called
# if connection rate to specific whois server have been
# exceeded
$Net::Whois::Raw::CACHE_DIR = "/var/spool/pwhois/";
# Whois information will be
# cached in this directory. Default is no cache.
$Net::Whois::Raw::CACHE_TIME = 60;
# Cache files will be cleared after not accessed
# for a specific number of minutes. Documents will not be
# cleared if they keep get requested for, independent
# of disk space.
$Net::Whois::Raw::TIMEOUT = 10;
# Cancel the request if connection is not made within
# a specific number of seconds.
@Net::Whois::Raw::SRC_IPS = (11.22.33.44);
# List of local IP addresses to
# use for WHOIS queries. Addresses will be used used
# successively in the successive queries
$Net::Whois::Raw::POSTPROCESS{whois.crsnic.net} = &my_func;
# Call to a user-defined subroutine on whois result,
# depending on whois-server.
# Above is equil to:
# ($text, $srv) = whois('example.com');
# $text = my_func($text) if $srv eq 'whois.crsnic.net';
DESCRIPTION
Net::Whois::Raw queries WHOIS servers about domains. The module supports recursive WHOIS queries. Also queries via HTTP is supported for
some TLDs.
Setting the variables $OMIT_MSG and $CHECK_FAIL will match the results against a set of known patterns. The first flag will try to omit the
copyright message/disclaimer, the second will attempt to determine if the search failed and return undef in such a case.
IMPORTANT: these checks merely use pattern matching; they will work on several servers but certainly not on all of them.
FUNCTIONS
whois( DOMAIN [, SRV [, WHICH_WHOIS]] )
Returns Whois information for "DOMAIN". Without "SRV" argument default Whois server for specified domain name zone will be used. Use
'www_whois' as server name to force WHOIS querying via HTTP (only few TLDs are supported in HTTP queries). Caching is supported: if
$CACHE_DIR variable is set and there is cached entry for that domain - information from the cache will be used. "WHICH_WHOIS" argument
- look get_whois docs below.
get_whois( DOMAIN [, SRV [, WHICH_WHOIS]] )
Lower-level function to query Whois information for "DOMAIN". Caching IS NOT supported (caching is implemented only in higher-level
"whois" function). Without "SRV" argument default Whois server for specified domain name zone will be used. "WHICH_WHOIS" argument is
used to access a results if recursive queries; possible values:
'QRY_FIRST' -
returns results of the first query. Non't make recursive queries.
In scalar context returns just whois text.
In list context returns two values: whois text and whois server
which was used to make query).
'QRY_LAST' -
returns results of the last query.
In scalar context returns just whois text.
In list context returns two values: whois text and whois server
which was used to make query).
This is the default option.
'QRY_ALL' -
returns results of the all queries of the recursive chain.
Reference to array of references to hashes is returned.
Hash keys: "text" - result of whois query, "srv" -
whois server which was used to make query.
USER DEFINED FUNCTIONS
whois_query_sockparams( DOMAIN, SRV )
You can set your own IO::Socket::INET params like this:
*Net::Whois::Raw::whois_query_sockparams = sub {
my $class = shift;
my $domain = shift;
my $name = shift;
return (
PeerAddr => $name,
PeerPort => 43,
# LocalHost => ,
# LocalPort =>
);
};
whois_query_socket( DOMAIN, SRV )
You can set your own IO::Socket::INET like this:
*Net::Whois::Raw::whois_query_socket = sub {
my $class = shift;
my $domain = shift;
my $name = shift;
$name .= ':43';
return IO::Socket::INET->new();
};
whois_query_ua( DOMAIN, SRV )
You can set your own LWP::UserAgent like this:
*Net::Whois::Raw::whois_query_ua = sub {
my $class = shift;
my $domain = shift;
return LWP::UserAgent->new();
};
AUTHOR
Original author Ariel Brosh schop@cpan.org, Inspired by jwhois.pl available on the net.
Since Ariel has passed away in September 2002:
Past maintainers Gabor Szabo gabor@perl.org.il, Corris Randall corris@cpan.org
Current Maintainer: Walery Studennikov despair@cpan.org
CREDITS
See file "Changes" in the distribution for the complete list of contributors.
CHANGES
See file "Changes" in the distribution
NOTE
Some users complained that the die statements in the module make their CGI scripts crash. Please consult the entries on eval and die on
perlfunc about exception handling in Perl.
COPYRIGHT
Copyright 2000--2002 Ariel Brosh. Copyright 2003--2003 Gabor Szabo. Copyright 2003--2003 Corris Randall. Copyright 2003--now() Walery
Studennikov.
This package is free software. You may redistribute it or modify it under the same terms as Perl itself.
I apologize for any misunderstandings caused by the lack of a clear licence in previous versions.
COMMERCIAL SUPPORT
Not available anymore.
LEGAL
Notice that registrars forbid querying their whois servers as a part of a search engine, or querying for a lot of domains by script. Also,
omitting the copyright information (that was requested by users of this module) is forbidden by the registrars.
SEE ALSO
pwhois, whois.
perl v5.10.1 2011-03-20 Net::Whois::Raw(3pm)