DNS::Config::Statement::Key - Key statement

DNS-Config documentation Contained in the DNS-Config distribution.

Index

Code Index:

NAME

Top

DNS::Config::Statement::Key - Key statement

SYNOPSIS

Top

use DNS::Config::Statement::Key;

my $key = new DNS::Config::Statement::Key();

$key->dump();

ABSTRACT

Top

This class represents a key statement in a domain name service daemon (DNS) configuration. These contain TSIG algorithms and secrets.

DESCRIPTION

Top

This class represents a key statement. As such it can, for example, have informations about algorithm and secret used.

So far this class is strongly related to the ISCs Bind domain name service daemon but it is inteded to get more generic in upcoming releases. Your help is welcome.

AUTHOR

Top

Copyright (C)2003 Bruce Campbell. All rights reserved.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Please address bug reports and comments to: bxc@users.sourceforge.net

SEE ALSO

Top

DNS::Config, DNS::Config::Statement

DNS-Config documentation Contained in the DNS-Config distribution. 
#!/usr/local/bin/perl -w
######################################################################
#
# DNS/Config/Statement/Key.pm
#
# $Id: Key.pm,v 1.3 2003/02/16 10:15:33 awolf Exp $
# $Revision: 1.3 $
# $Author: awolf $
# $Date: 2003/02/16 10:15:33 $
#
# Copyright (C)2003 Bruce Campbell. All rights reserved.
# Base Class (Options) (C)2001-2003 Andy Wolf. All rights reserved.
#
# This library is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
######################################################################

package DNS::Config::Statement::Key;

no warnings 'portable';
use 5.6.0;
use strict;
use warnings;
use vars qw(@ISA);

use DNS::Config::Statement;

@ISA = qw(DNS::Config::Statement);

my $VERSION   = '0.66';
my $REVISION  = sprintf("%d.%02d", q$Revision: 1.3 $ =~ /(\d+)\.(\d+)/);

sub new {
	my($pkg) = @_;
	my $class = ref($pkg) || $pkg;

	my $self = {
                'ALGORITHM' => 'hmac-md5'
        };


	bless $self, $class;

	return $self;
}

sub parse_tree {
	my($self, @array) = @_;
	
	return undef if((scalar(@array) < 2) || (scalar(@array) > 3));
	
	$self->{'NAME'} = shift @array;
	$self->{'NAME'} =~ s/^\"//g;
	$self->{'NAME'} =~ s/\"$//g;
	
	my $data = shift @array;
	my @data = @$data;

	foreach my $stmt (@data) {
		my @stmt = @$stmt;
		
		my $key = uc shift @stmt;
		
		if(scalar(@stmt) == 1) {
			$self->{$key} = shift @stmt;
			$self->{$key} =~ s/^\"//g;
			$self->{$key} =~ s/\"$//g;
		}
		else {
			$self->{$key} = \@stmt;
		}
	}
	
	return $self;
}

sub dump {
	my($self) = @_;
	my @array;
	
	my @array2;
	foreach my $key (keys %$self) {
		if(($key =~ /FILE/) || ($key =~ /DIRECTORY/)) {
			push @array2, ([ lc $key, q(") . $self->{$key} . q(")]);
		}
		elsif(($key ne 'NAME') && ($key ne 'CLASS')) {
			push @array2, ([ lc $key, $self->{$key}]);
		}
	}
	
	push @array, ('key', q(") . $self->{'NAME'} . q("));
	push @array, ($self->{'CLASS'}) if(exists $self->{'CLASS'});
	push @array, (\@array2);
	
	my $string = $self->substatement(@array);
	print $string, "\n";
	
	return $self;
}

sub name {
	my($self, $name) = @_;

	$self->{'NAME'} = $name if($name);
	
	return $self->{'NAME'};
}

sub algorithm {
	my($self, $alg) = @_;

	$self->{'ALGORITHM'} = $alg if($alg);
	
	return $self->{'ALGORITHM'};
}

sub secret {
	my($self, $secret) = @_;
	
	$self->{'SECRET'} = $secret if($secret);
	
	return $self->{'SECRET'};
}

1;

__END__