"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/Net/DNS/RR/DNSKEY.pm" between
Net-DNS-1.23.tar.gz and Net-DNS-1.23_01.tar.gz

About: Net::DNS is a DNS resolver implemented in Perl. Development version.

DNSKEY.pm  (Net-DNS-1.23):DNSKEY.pm  (Net-DNS-1.23_01)
package Net::DNS::RR::DNSKEY; package Net::DNS::RR::DNSKEY;
# #
# $Id: DNSKEY.pm 1773 2020-03-17 08:40:55Z willem $ # $Id: DNSKEY.pm 1781 2020-05-13 08:58:25Z willem $
# #
our $VERSION = (qw$LastChangedRevision: 1773 $)[1]; our $VERSION = (qw$LastChangedRevision: 1781 $)[1];
use strict; use strict;
use warnings; use warnings;
use base qw(Net::DNS::RR); use base qw(Net::DNS::RR);
=head1 NAME =head1 NAME
Net::DNS::RR::DNSKEY - DNS DNSKEY resource record Net::DNS::RR::DNSKEY - DNS DNSKEY resource record
=cut =cut
skipping to change at line 114 skipping to change at line 114
$self->flags($flags); $self->flags($flags);
$self->key(@_); $self->key(@_);
} }
sub _defaults { ## specify RR attribute default v alues sub _defaults { ## specify RR attribute default v alues
my $self = shift; my $self = shift;
$self->algorithm(1); $self->algorithm(1);
$self->flags(256); $self->flags(256);
$self->protocol(3); $self->protocol(3);
$self->keybin('');
} }
sub flags { sub flags {
my $self = shift; my $self = shift;
$self->{flags} = 0 + shift if scalar @_; $self->{flags} = 0 + shift if scalar @_;
$self->{flags} || 0; $self->{flags} || 0;
} }
sub zone { sub zone {
for ( shift->{flags} ) { for ( shift->{flags} ) {
$_ = ( shift() ? 0 : 0x0100 ) ^ ( 0x0100 | ( $_ || 0 ) ) if scala r @_; $_ = ( $_[0] ? 0 : 0x0100 ) ^ ( 0x0100 | ( $_ || 0 ) ) if scalar @_;
return 0x0100 & ( $_ || 0 ); return 0x0100 & ( $_ || 0 );
} }
} }
sub revoke { sub revoke {
for ( shift->{flags} ) { for ( shift->{flags} ) {
$_ = ( shift() ? 0 : 0x0080 ) ^ ( 0x0080 | ( $_ || 0 ) ) if scala r @_; $_ = ( $_[0] ? 0 : 0x0080 ) ^ ( 0x0080 | ( $_ || 0 ) ) if scalar @_;
return 0x0080 & ( $_ || 0 ); return 0x0080 & ( $_ || 0 );
} }
} }
sub sep { sub sep {
for ( shift->{flags} ) { for ( shift->{flags} ) {
$_ = ( shift() ? 0 : 0x0001 ) ^ ( 0x0001 | ( $_ || 0 ) ) if scala r @_; $_ = ( $_[0] ? 0 : 0x0001 ) ^ ( 0x0001 | ( $_ || 0 ) ) if scalar @_;
return 0x0001 & ( $_ || 0 ); return 0x0001 & ( $_ || 0 );
} }
} }
sub protocol { sub protocol {
my $self = shift; my $self = shift;
$self->{protocol} = 0 + shift if scalar @_; $self->{protocol} = 0 + shift if scalar @_;
$self->{protocol} || 0; $self->{protocol} || 0;
} }
skipping to change at line 274 skipping to change at line 275
=over 4 =over 4
=item zone =item zone
$rr->zone(1); $rr->zone(1);
if ( $rr->zone ) { if ( $rr->zone ) {
... ...
} }
Boolean Zone flag. Boolean ZONE flag.
=back =back
=over 4 =over 4
=item revoke =item revoke
$rr->revoke(1); $rr->revoke(1);
if ( $rr->revoke ) { if ( $rr->revoke ) {
... ...
} }
Boolean Revoke flag. Boolean REVOKE flag.
=back =back
=over 4 =over 4
=item sep =item sep
$rr->sep(1); $rr->sep(1);
if ( $rr->sep ) { if ( $rr->sep ) {
... ...
} }
Boolean Secure Entry Point flag. Boolean Secure Entry Point (SEP) flag.
=back =back
=head2 protocol =head2 protocol
$protocol = $rr->protocol; $protocol = $rr->protocol;
$rr->protocol( $protocol ); $rr->protocol( $protocol );
The 8-bit protocol number. This field MUST have value 3. The 8-bit protocol number. This field MUST have value 3.
skipping to change at line 392 skipping to change at line 393
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
DEALINGS IN THE SOFTWARE. DEALINGS IN THE SOFTWARE.
=head1 SEE ALSO =head1 SEE ALSO
L<perl>, L<Net::DNS>, L<Net::DNS::RR>, RFC4034, RFC3755 L<perl>, L<Net::DNS>, L<Net::DNS::RR>, RFC4034, RFC3755
L<Algorithm Numbers|http://www.iana.org/assignments/dns-sec-alg-numbers> L<Algorithm Numbers|http://www.iana.org/assignments/dns-sec-alg-numbers>,
L<DNSKEY Flags|http://www.iana.org/assignments/dnskey-flags>
=cut =cut
 End of changes. 10 change blocks. 
9 lines changed or deleted 11 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)