feat: add full Zonemaster stack with Docker and Spanish UI
- Clone all 5 Zonemaster component repos (LDNS, Engine, CLI, Backend, GUI) - Dockerfile.backend: 8-stage multi-stage build LDNS→Engine→CLI→Backend - Dockerfile.gui: Astro static build served via nginx - docker-compose.yml: backend (internal) + frontend (port 5353) - nginx.conf: root redirects to /es/, /api/ proxied to backend - zonemaster-gui/config.ts: defaultLanguage set to 'es' (Spanish) Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
196
zonemaster-engine/lib/Zonemaster/Engine/NSArray.pm
Normal file
196
zonemaster-engine/lib/Zonemaster/Engine/NSArray.pm
Normal file
@@ -0,0 +1,196 @@
|
||||
package Zonemaster::Engine::NSArray;
|
||||
|
||||
use v5.16.0;
|
||||
use warnings;
|
||||
|
||||
use version; our $VERSION = version->declare("v1.0.3");
|
||||
|
||||
use Carp qw( confess croak );
|
||||
use Zonemaster::Engine::Recursor;
|
||||
use Zonemaster::Engine::Nameserver;
|
||||
|
||||
use Class::Accessor 'antlers';
|
||||
|
||||
has 'names' => ( is => 'ro', isa => 'ArrayRef', required => 1 );
|
||||
has 'ary' => ( is => 'ro', isa => 'ArrayRef', default => sub { [] } );
|
||||
|
||||
sub TIEARRAY {
|
||||
my ( $class, @names ) = @_;
|
||||
|
||||
return $class->new(
|
||||
{
|
||||
ary => [],
|
||||
names => [ sort { $a cmp $b } @names ]
|
||||
}
|
||||
);
|
||||
}
|
||||
|
||||
sub STORE {
|
||||
my ( $self, $index, $value ) = @_;
|
||||
|
||||
croak "STORE forbidden for this type of array.";
|
||||
}
|
||||
|
||||
sub STORESIZE {
|
||||
my ( $self, $index, $value ) = @_;
|
||||
|
||||
croak "STORESIZE forbidden for this type of array.";
|
||||
}
|
||||
|
||||
sub FETCH {
|
||||
my ( $self, $index ) = @_;
|
||||
|
||||
if ( exists $self->ary->[$index] ) {
|
||||
return $self->ary->[$index];
|
||||
}
|
||||
elsif ( scalar( @{ $self->names } ) == 0 ) {
|
||||
return;
|
||||
}
|
||||
else {
|
||||
$self->_load_name( shift @{ $self->names } );
|
||||
return $self->FETCH( $index );
|
||||
}
|
||||
}
|
||||
|
||||
sub FETCHSIZE {
|
||||
my ( $self ) = @_;
|
||||
|
||||
while ( my $name = shift @{ $self->names } ) {
|
||||
$self->_load_name( $name );
|
||||
}
|
||||
|
||||
return scalar( @{ $self->ary } );
|
||||
}
|
||||
|
||||
sub EXISTS {
|
||||
my ( $self, $index ) = @_;
|
||||
|
||||
if ( $self->FETCH( $index ) ) {
|
||||
return 1;
|
||||
}
|
||||
else {
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
sub DELETE {
|
||||
my ( $self, $index ) = @_;
|
||||
|
||||
croak "DELETE forbidden for this type of array.";
|
||||
}
|
||||
|
||||
sub CLEAR {
|
||||
my ( $self ) = @_;
|
||||
|
||||
croak "CLEAR forbidden for this type of array.";
|
||||
}
|
||||
|
||||
sub PUSH {
|
||||
my ( $self, @values ) = @_;
|
||||
|
||||
croak "PUSH forbidden for this type of array.";
|
||||
}
|
||||
|
||||
sub UNSHIFT {
|
||||
my ( $self, @values ) = @_;
|
||||
|
||||
croak "UNSHIFT forbidden for this type of array.";
|
||||
}
|
||||
|
||||
sub POP {
|
||||
my ( $self ) = @_;
|
||||
|
||||
croak "POP forbidden for this type of array.";
|
||||
}
|
||||
|
||||
sub SHIFT {
|
||||
my ( $self ) = @_;
|
||||
|
||||
croak "SHIFT forbidden for this type of array.";
|
||||
}
|
||||
|
||||
sub SPLICE {
|
||||
my ( $self, $offset, $length, @values ) = @_;
|
||||
|
||||
croak "SPLICE forbidden for this type of array.";
|
||||
}
|
||||
|
||||
sub UNTIE {
|
||||
my ( $self ) = @_;
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
sub _load_name {
|
||||
my ( $self, $name ) = @_;
|
||||
my @addrs = Zonemaster::Engine::Recursor->get_addresses_for( $name );
|
||||
foreach my $addr ( sort { $a->ip cmp $b->ip } @addrs ) {
|
||||
my $ns = Zonemaster::Engine::Nameserver->new( { name => $name, address => $addr } );
|
||||
if ( not grep { "$ns" eq "$_" } @{ $self->ary } ) {
|
||||
push @{ $self->ary }, $ns;
|
||||
}
|
||||
}
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
=head1 NAME
|
||||
|
||||
Zonemaster::Engine::NSArray - Class implementing arrays that lazily looks up name server addresses from their names
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
tie @ary, 'Zonemaster::Engine::NSArray', @ns_names
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
This class is used for the C<glue> and C<ns> attributes of the
|
||||
L<Zonemaster::Engine::Zone> class. It is initially seeded with a list of
|
||||
names, which will be expanded into proper L<Zonemaster::Engine::Nameserver>
|
||||
objects on demand. Be careful with using Perl functions that act on
|
||||
whole arrays (particularly C<foreach>), since they will usually force
|
||||
the entire array to expand, negating the use of the lazy-loading.
|
||||
|
||||
=head1 METHODS
|
||||
|
||||
These are all methods implementing the Perl tie interface. They have no independent use.
|
||||
|
||||
=over
|
||||
|
||||
=item TIEARRAY
|
||||
|
||||
=item STORE
|
||||
|
||||
=item STORESIZE
|
||||
|
||||
=item FETCH
|
||||
|
||||
=item FETCHSIZE
|
||||
|
||||
=item EXISTS
|
||||
|
||||
=item DELETE
|
||||
|
||||
=item CLEAR
|
||||
|
||||
=item PUSH
|
||||
|
||||
=item UNSHIFT
|
||||
|
||||
=item POP
|
||||
|
||||
=item SHIFT
|
||||
|
||||
=item SPLICE
|
||||
|
||||
=item UNTIE
|
||||
|
||||
=back
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Calle Dybedahl, C<< <calle at init.se> >>
|
||||
|
||||
=cut
|
||||
Reference in New Issue
Block a user