#!/usr/bin/perl $|=1; use strict; use Net::DNS; use Data::Dumper; use constant DEBUG=>0; sub logmsg { print STDERR scalar(localtime), " $0 pid $$ ", @_, "\n"; } sub dnsLookup($) { chomp(); my $queryname = shift; logmsg("Checking queryname $queryname...") if DEBUG==1; my $res = Net::DNS::Resolver->new; my $query = $res->search($queryname); if ($query) { foreach my $rr ($query->answer) { if ($rr->type eq "A" ) { return $rr->address; } if ($rr->type eq "PTR") { return $rr->ptrdname; } } } else { return $res->errorstring; } } open fRMTAB, "/var/lib/nfs/rmtab" || die "Unable to open rmtab for reading: $!"; while() { my($host,$mount,$count) = split /:/, $_; if ( $host =~ m/\d+\.\d+\.\d+\.\d+/ ) { print dnsLookup($host), "\n"; } } close fRMTAB;
Friday, July 22, 2011
who have been my nfs clients?
sure, you can plod through /var/log/messages to maybe see who has connected to your nfs server. why not just look at rmtab?
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment