NAME

Net::RNDC - Speak the BIND Remote Name Daemon Control (RNDC) V1 protocol

SYNOPSIS

Simple synchronous command/response:

  use Net::RNDC;

  my $rndc = Net::RNDC->new(
    host => '127.0.0.1',
    port => 953,         # Defaults to 953
    key  => 'abcd',
  );

  if (!$rndc->do('status')) {
    die "RNDC failed: " . $rndc->error;
  }

  print $rndc->response;

All arguments to new() are allowed in do:

  my $rndc = Net::RNDC->new();

  my $key = 'abcd';

  for my $s (qw(127.0.0.1 127.0.0.2)) {
    if (!$rndc->do(key => $key, server => $s)) {
      my $err = $rndc->error;
    } else {
      my $resp = $rndc->response;
    }
  }

DESCRIPTION

This package provides a synchronous, easy to use interface to the RNDC V1 protocol. For more mid-level control, see Net::RNDC::Session, and for absolute control, Net::RNDC::Packet.

Constructor

new

  Net::RNDC->new(%args);

Optional Arguments:

• key - The Base64 encoded HMAC-MD5 private key to use.

• host - The hostname/IP of the remote server to connect to.

• port - The port to connect to. Defaults to 953.

Methods

do

  $rndc->do($command);

  $rndc->do($commands, %args);

Connects to the remote nameserver configured in new() or passed in to %args and sends the specified command.

Returns 1 on success, 0 on failure.

Arguments:

• $command - The RNDC command to run. For example: status.

Optional Arguments - See new() above.

error

  $rndc->error;

Returns the last string error from a call to do(), if any. Only set if do() returns 0.

response

  $rndc->response;

Returns the last string response from a call to do(), if any. Only set if do() returns 1.

SEE ALSO

Net::RNDC::Session - Manage the 4-packet RNDC session

Net::RNDC::Packet - Low level RNDC packet manipulation.

AUTHOR

Matthew Horsfall (alh) <WolfSage@gmail.com>

LICENSE

You may distribute this code under the same terms as Perl itself.

cpanm Net::RNDC

perl -MCPAN -e shell
install Net::RNDC