Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- # Copyright (c) 2011, Stephan Chenette and David Saunders
- # All rights reserved.
- #
- # Redistribution and use in source and binary forms, with or without modification,
- # are permitted provided that the following conditions are met:
- #
- # * Redistributions of source code must retain the above copyright notice,
- # this list of conditions and the following disclaimer.
- # * Redistributions in binary form must reproduce the above copyright notice,
- # this list of conditions and the following disclaimer in the documentation
- # and/or other materials provided with the distribution.
- #
- # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
- # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
- # WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
- # IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
- # INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
- # BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
- # DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
- # LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
- # OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
- # THE POSSIBILITY OF SUCH DAMAGE.
- use warnings;
- use strict;
- use Net::DNS;
- my $DEBUG = 1;
- my $google_public_dns = "8.8.8.8";
- my $host = $ARGV[0];
- if ( !defined $host ) {
- print STDERR "Usage: $0 HOST\n";
- exit 1;
- }
- print "host: " . $host . "\n" if ($DEBUG);
- my $res = Net::DNS::Resolver->new;
- $res->nameservers( $google_public_dns );
- # Important to specify a 'TXT' query
- my $query = $res->search( $host, 'TXT' ) or die "NULL\n";
- foreach my $rr ( $query->answer ) {
- next unless $rr->type eq 'TXT';
- print "key:\n" . $rr->txtdata . "\n";
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement