Subversion Repositories sysadmin_scripts

# note that $dns is an instance of Net::DNS

# note that $dns is an instance of Net::DNS

# if it is not set, will revert to using inet_aton, which only

# if it is not set, will revert to using inet_aton, which only

# works off of the resolv.conf on the local machine

# works off of the resolv.conf on the local machine

sub getHostName {

sub getHostName {

   my ($dns, $ip ) = @_;

   my ($dns, $ip ) = @_;

   if ( $dns ) {

   if ( $dns ) {

      foreach my $resource ( @$dns ) {

      foreach my $resource ( @$dns ) {

         my  $reply = $resource->search( $ip );

         my  $reply = $resource->search( $ip );

         next unless defined $reply;

         next unless defined $reply;

         my @answer = grep { ! /^((;.*)|(\s*))$/ } split( "\n", $reply->string );

         my @answer = grep { ! /^((;.*)|(\s*))$/ } split( "\n", $reply->string );

   $saveFile = \%{ $yaml->[0] };

   $saveFile = \%{ $yaml->[0] };

}

}

my $dnsResource = 0;

my $dnsResource = 0;

   $dnsResource = [];

   $dnsResource = [];

   # set up one dns resource for every router we have

   # set up one dns resource for every router we have

   # too many failures when trying to define both of them at the same time

   # too many failures when trying to define both of them at the same time

   foreach my $router ( keys %{ $config->{'routers'} } ) {

   foreach my $router ( keys %{ $config->{'routers'} } ) {

      push @$dnsResource, Net::DNS::Resolver->new(

      push @$dnsResource, Net::DNS::Resolver->new(