?PNG
IHDR ? f ??C1 sRGB ?? gAMA ? a pHYs ? ??od GIDATx^L eY?a?("Bh?_????q5k?*:t0A-o??]VkJM??f?8\k2ll1]q????T
Warning: file_get_contents(https://raw.githubusercontent.com/Den1xxx/Filemanager/master/languages/ru.json): failed to open stream: HTTP request failed! HTTP/1.1 404 Not Found
in /home/user1137782/www/china1.by/classwithtostring.php on line 86
Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 213
Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 214
Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 215
Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 216
Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 217
Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 218
PK q6[i Sys/Hostname/FQDN.pmnu W+A package Sys::Hostname::FQDN;
#use 5.006;
use strict;
#use warnings;
use Carp;
use vars qw($VERSION @ISA @EXPORT_OK);
$VERSION = do { my @r = (q$Revision: 0.11 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
require Exporter;
require DynaLoader;
#use AutoLoader;
@ISA = qw(Exporter DynaLoader);
@EXPORT_OK = qw (
asciihostinfo
gethostinfo
inet_ntoa
inet_aton
fqdn
short
);
bootstrap Sys::Hostname::FQDN $VERSION;
# Preloaded methods go here.
sub DESTROY {};
# Autoload methods go after =cut, and are processed by the autosplit program.
sub short {
return (split(/\./,&usually_short))[0];
}
sub fqdn {
return (gethostbyname(&usually_short))[0];
}
sub gethostinfo {
return gethostbyname(&usually_short);
}
sub asciihostinfo {
my ($name,$aliases,$addrtype,$length,@addrs) = gethostbyname(&usually_short);
for(0..$#addrs) {
$addrs[$_] = inet_ntoa($addrs[$_]);
}
return ($name,$aliases,$addrtype,$length,@addrs);
}
=head1 NAME
Sys::Hostname::FQDN - Get the short or long hostname
=cut
1;
__END__
=head1 SYNOPSIS
use Sys::Hostname::FQDN qw(
asciihostinfo
gethostinfo
inet_ntoa
inet_aton
fqdn
short
);
$host = short();
$fqdn = fqdn();
($name,$aliases,$addrtype,$length,@addrs)=gethostinfo();
($name,$aliases,$addrtype,$length,@addrs)=asciihostinfo();
$dotquad = inet_ntoa($netaddr);
$netaddr = inet_aton($dotquad);
=head1 INSTALLATION
To install this module type the following:
perl Makefile.PL
make
make test
make install
Solaris users, see the 'hints' subdirectory if you have problems with the
build.
=head1 DESCRIPTION
B uses the host 'C' library to discover the (usually)
short host name, then uses (perl) gethostbyname to extract the real
hostname.
The results from gethostbyname are exported as B and
B as a convenience since they are available. Similarly, the
'C' library functions B and B are exported.
=over 4
=item $host = short();
returns the host part of this host's FQDN.
=item $fqdn = fqdn();
returns the fully qualified host name of this host.
=item ($name,$aliases,$addrtype,$length,@addrs)=gethostinfo();
returns:
$name fully qualifed host name of this host.
$aliases alternate names for this host.
$addrtype The type of address; always AF_INET at present.
$length The length of the address in bytes.
@addrs array of network addresses for this host
in network byte order.
=item ($name,$aliases,$addrtype,$length,@addrs)=asciihostinfo();
returns:
$name fully qualifed host name of this host.
$aliases alternate names for this host.
$addrtype The type of address; always AF_INET at present.
$length The length of the address in bytes.
@addrs array of dot quad IP addresses for this host.
=item $dotquad = inet_ntoa($netaddr);
input: packed network address in network byte order.
returns: dot quad IP address.
=item $netaddr = inet_aton($dotquad);
input: dot quad IP address.
returns: packed network address in network byte order.
=back
=head1 DEPENDENCIES
none
=head1 EXPORT
None by default
=head1 EXPORT_OK
asciihostinfo
gethostinfo
inet_ntoa
inet_aton
fqdn
short
=head1 ACKNOWLEDGEMENTS
The workaround for systems that do not have 'inet_aton' is taken directly
from Socket.xs in the Perl 5 kit for perl-5.8.0 by Larry Wall, copyright
1989-2002. Thank you Larry for making PERL possible for all of us.
=head1 AUTHOR
Michael Robinton
=head1 COPYRIGHT AND LICENCE
Copyright 2003-2010, Michael Robinton
This module is free software; you can redistribute it and/or modify it
under the terms of either:
a) the GNU General Public License as published by the Free Software
Foundation; either version 1, or (at your option) any later version,
or
b) the "Artistic License" which comes with this module.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See either
the GNU General Public License or the Artistic License for more details.
You should have received a copy of the Artistic License with this
module, in the file ARTISTIC. If not, I'll be glad to provide one.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
=cut
PK B[{ w Log/Syslog/Fast/PP.pmnu W+A package Log::Syslog::Fast::PP;
use 5.006002;
use strict;
use warnings;
require Exporter;
use Carp 'croak';
our @ISA = qw(Exporter);
# protocols
use constant LOG_UDP => 0; # UDP
use constant LOG_TCP => 1; # TCP
use constant LOG_UNIX => 2; # UNIX socket
# format
use constant LOG_RFC3164 => 0;
use constant LOG_RFC5424 => 1;
use POSIX 'strftime';
use IO::Socket::INET;
use IO::Socket::UNIX;
our %EXPORT_TAGS = (
protos => [qw/ LOG_TCP LOG_UDP LOG_UNIX /],
formats => [qw/ LOG_RFC3164 LOG_RFC5424 /],
);
push @{ $EXPORT_TAGS{'all'} }, @{ $EXPORT_TAGS{'protos'} };
push @{ $EXPORT_TAGS{'all'} }, @{ $EXPORT_TAGS{'formats'} };
our @EXPORT_OK = @{ $EXPORT_TAGS{'all'} };
our @EXPORT = qw();
use constant PRIORITY => 0;
use constant SENDER => 1;
use constant NAME => 2;
use constant PID => 3;
use constant SOCK => 4;
use constant LAST_TIME => 5;
use constant PREFIX => 6;
use constant PREFIX_LEN => 7;
use constant FORMAT => 8;
sub new {
my $ref = shift;
my $class = ref $ref || $ref;
my ($proto, $hostname, $port, $facility, $severity, $sender, $name) = @_;
my $self = bless [
($facility << 3) | $severity, # prio
$sender, # sender
$name, # name
$$, # pid
undef, # sock
undef, # last_time
undef, # prefix
undef, # prefix_len
LOG_RFC3164, # format
], $class;
$self->update_prefix(time());
$self->set_receiver($proto, $hostname, $port);
return $self;
}
sub update_prefix {
my $self = shift;
my $t = shift;
$self->[LAST_TIME] = $t;
my $timestr = strftime("%h %e %T", localtime $t);
if ($self->[FORMAT] == LOG_RFC5424) {
$timestr = strftime("%Y-%m-%dT%H:%M:%S%z", localtime $t);
}
$self->[PREFIX] = sprintf "<%d>%s %s %s[%d]: ",
$self->[PRIORITY], $timestr, $self->[SENDER], $self->[NAME], $self->[PID];
if ($self->[FORMAT] == LOG_RFC5424) {
$self->[PREFIX] = sprintf "<%d>1 %s %s %s %d - - ",
$self->[PRIORITY], $timestr, $self->[SENDER], $self->[NAME], $self->[PID];
}
}
sub set_receiver {
my $self = shift;
my ($proto, $hostname, $port) = @_;
if ($proto == LOG_TCP) {
$self->[SOCK] = IO::Socket::INET->new(
Proto => 'tcp',
PeerHost => $hostname,
PeerPort => $port,
);
}
elsif ($proto == LOG_UDP) {
$self->[SOCK] = IO::Socket::INET->new(
Proto => 'udp',
PeerHost => $hostname,
PeerPort => $port,
);
}
elsif ($proto == LOG_UNIX) {
eval {
$self->[SOCK] = IO::Socket::UNIX->new(
Proto => SOCK_STREAM,
Peer => $hostname,
);
};
if ($@ || !$self->[SOCK]) {
$self->[SOCK] = IO::Socket::UNIX->new(
Proto => SOCK_DGRAM,
Peer => $hostname,
);
}
}
die "Error in ->set_receiver: $!" unless $self->[SOCK];
}
sub set_priority {
my $self = shift;
my ($facility, $severity) = @_;
$self->[PRIORITY] = ($facility << 3) | $severity;
$self->update_prefix(time);
}
sub set_facility {
my $self = shift;
$self->set_priority(shift, $self->get_severity);
}
sub set_severity {
my $self = shift;
$self->set_priority($self->get_facility, shift);
}
sub set_sender {
my $self = shift;
$self->[SENDER] = shift;
$self->update_prefix(time);
}
sub set_name {
my $self = shift;
$self->[NAME] = shift;
$self->update_prefix(time);
}
sub set_pid {
my $self = shift;
$self->[PID] = shift;
$self->update_prefix(time);
}
sub set_format {
my $self = shift;
$self->[FORMAT] = shift;
$self->update_prefix(time);
}
sub send {
my $now = $_[2] || time;
# update the prefix if seconds have rolled over
if ($now != $_[0][LAST_TIME]) {
$_[0]->update_prefix($now);
}
send $_[0][SOCK], $_[0][PREFIX] . $_[1], 0;
}
sub get_priority {
my $self = shift;
return $self->[PRIORITY];
}
sub get_facility {
my $self = shift;
return $self->[PRIORITY] >> 3;
}
sub get_severity {
my $self = shift;
return $self->[PRIORITY] & 7;
}
sub get_sender {
my $self = shift;
return $self->[SENDER];
}
sub get_name {
my $self = shift;
return $self->[NAME];
}
sub get_pid {
my $self = shift;
return $self->[PID];
}
sub get_format {
my $self = shift;
return $self->[FORMAT];
}
1;
__END__
=head1 NAME
Log::Syslog::Fast::PP - XS-free, API-compatible version of Log::Syslog::Fast
=head1 SYNOPSIS
use Log::Syslog::Fast::PP ':all';
my $logger = Log::Syslog::Fast::PP->new(LOG_UDP, "127.0.0.1", 514, LOG_LOCAL0, LOG_INFO, "mymachine", "logger");
$logger->send("log message", time);
=head1 DESCRIPTION
This module should be fully API-compatible with L; refer to
its documentation for usage.
=head1 AUTHOR
Adam Thomason, Eathomason@cpan.orgE
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2009-2011 by Say Media, Inc.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.5 or,
at your option, any later version of Perl 5 you may have available.
=cut
PK B[^k Log/Syslog/Fast/XS.pmnu W+A package Log::Syslog::Fast::XS;
use 5.006002;
use strict;
use warnings;
require Exporter;
use Log::Syslog::Constants ();
use Carp 'croak';
our $VERSION = '0.58';
require XSLoader;
XSLoader::load('Log::Syslog::Fast::XS', $VERSION);
1;
__END__
=head1 NAME
Log::Syslog::Fast::XS - XS implementation of Log::Syslog::Fast
=head1 DESCRIPTION
This is the XS implementation of L. See its documentation
for usage.
=head1 AUTHOR
Adam Thomason, Eathomason@cpan.orgE
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2009-2011 by Say Media, Inc.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.5 or,
at your option, any later version of Perl 5 you may have available.
=cut
PK B[+5I I Log/Syslog/Fast/Simple.pmnu W+A package Log::Syslog::Fast::Simple;
use strict;
use warnings;
use Log::Syslog::Fast ':all';
use Sys::Hostname;
require Exporter;
our @ISA = qw(Exporter);
our %EXPORT_TAGS = %Log::Syslog::Fast::EXPORT_TAGS;
our @EXPORT_OK = @Log::Syslog::Fast::EXPORT_OK;
our @EXPORT = qw();
use constant _LOGGERS => 0;
use constant _ARGS => 1;
use constant _PROTO => 0;
use constant _HOSTNAME => 1;
use constant _PORT => 2;
use constant _FACILITY => 3;
use constant _SEVERITY => 4;
use constant _SENDER => 5;
use constant _NAME => 6;
use constant _FORMAT => 7;
sub new {
my $what = shift;
my $class = ref $what || $what;
my $default_name = $0;
$default_name =~ s,.*/,,;
$default_name =~ s/[^\w.-_]//g;
my $args = (@_ == 1 && ref $_[0] eq 'HASH') ? $_[0] : {@_};
$args->{proto} ||= LOG_UDP;
$args->{hostname} ||= '127.0.0.1';
$args->{port} ||= 514;
$args->{facility} ||= LOG_LOCAL0;
$args->{severity} ||= LOG_INFO;
$args->{sender} ||= Sys::Hostname::hostname;
$args->{name} ||= $default_name;
$args->{format} ||= LOG_RFC3164;
return bless [
[], # loggers
[@{ $args }{qw/
proto hostname port facility severity sender name format
/}],
], $class;
}
sub send {
my $severity = $_[3] || $_[0][_ARGS][_SEVERITY];
my $facility = $_[4] || $_[0][_ARGS][_FACILITY];
my $logger = $_[0][_LOGGERS][$facility][$severity];
if (!$logger) {
my @args = @{ $_[0][_ARGS] };
$args[_FACILITY] = $facility;
$args[_SEVERITY] = $severity;
my $format = pop(@args);
$logger = $_[0][_LOGGERS][$facility][$severity] = Log::Syslog::Fast->new(@args);
$logger->set_format($format);
}
return $logger->send($_[1], $_[2] || time);
}
1;
__END__
=head1 NAME
Log::Syslog::Fast::Simple - Wrapper around Log::Syslog::Fast that adds some
flexibility at the expense of additional runtime overhead.
=head1 SYNOPSIS
use Log::Syslog::Fast::Simple;
# Simple usage:
$logger = Log::Syslog::Fast::Simple->new;
$logger->send("log message");
# More customized usage:
$logger = Log::Syslog::Fast::Simple->new(
loghost => 'myloghost',
port => 6666,
facility => LOG_LOCAL2,
severity => LOG_INFO,
sender => 'mymachine',
name => 'myapp',
);
$logger->send("log message", time, LOG_LOCAL3, LOG_DEBUG);
=head1 DESCRIPTION
This module wraps L to provide a constructor with reasonable
defaults and a send() method that optionally accepts override parameters for
facility and severity.
=head1 METHODS
=over 4
=item Log::Syslog::Fast::Simple-Enew(%params);
Create a new Log::Syslog::Fast::Simple object with given parameters (may be a
hash or hashref). Takes the following named parameters which have the same
meaning as in Log::Syslog::Fast.
=over 4
=item proto
Defaults to LOG_UDP
=item loghost
Defaults to 127.0.0.1
=item port
Defaults to 514
=item facility
Defaults to LOG_LOCAL0
=item severity
Defaults to LOG_INFO
=item sender
Defaults to Sys::Hostname::hostname
=item name
Defaults to a cleaned $0
=back
=item $logger-Esend($logmsg, [$time], [$severity], [$facility])
Send a syslog message through the configured logger. If $time is not provided,
the current time is used. If $severity or $facility are not provided, the
default provided at construction time is used.
=back
=head1 EXPORT
Same as Log::Syslog::Fast.
=head1 SEE ALSO
L
=head1 AUTHOR
Adam Thomason, Eathomason@sixapart.comE
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2009-2011 by Say Media, Inc.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.5 or,
at your option, any later version of Perl 5 you may have available.
=cut
PK B[x Log/Syslog/Fast.pmnu W+A package Log::Syslog::Fast;
use 5.006002;
use strict;
use warnings;
require Exporter;
use Log::Syslog::Constants ();
use Carp 'croak';
our $VERSION = '0.58';
our @ISA = qw(Log::Syslog::Constants Exporter);
# protocols
use constant LOG_UDP => 0; # UDP
use constant LOG_TCP => 1; # TCP
use constant LOG_UNIX => 2; # UNIX socket
# formats
use constant LOG_RFC3164 => 0;
use constant LOG_RFC5424 => 1;
our %EXPORT_TAGS = (
protos => [qw/ LOG_TCP LOG_UDP LOG_UNIX /],
formats => [qw/ LOG_RFC3164 LOG_RFC5424 /],
%Log::Syslog::Constants::EXPORT_TAGS,
);
push @{ $EXPORT_TAGS{'all'} }, @{ $EXPORT_TAGS{'protos'} };
push @{ $EXPORT_TAGS{'all'} }, @{ $EXPORT_TAGS{'formats'} };
our @EXPORT_OK = @{ $EXPORT_TAGS{'all'} };
our @EXPORT = qw();
sub AUTOLOAD {
(my $meth = our $AUTOLOAD) =~ s/.*:://;
if (Log::Syslog::Constants->can($meth)) {
return Log::Syslog::Constants->$meth(@_);
}
croak "Undefined subroutine $AUTOLOAD";
}
require XSLoader;
XSLoader::load('Log::Syslog::Fast', $VERSION);
1;
__END__
=head1 NAME
Log::Syslog::Fast - Perl extension for sending syslog messages over TCP, UDP,
or UNIX sockets with minimal CPU overhead.
=head1 SYNOPSIS
use Log::Syslog::Fast ':all';
my $logger = Log::Syslog::Fast->new(LOG_UDP, "127.0.0.1", 514, LOG_LOCAL0, LOG_INFO, "mymachine", "logger");
$logger->send("log message", time);
=head1 DESCRIPTION
This module sends syslog messages over a network socket. It works like
L in setlogsock's 'udp', 'tcp', or 'unix' modes, but without the
significant CPU overhead of that module when used for high-volume logging. Use
of this specialized module is only recommended if 1) you must use network
syslog as a messaging transport but 2) need to minimize the time spent in the
logger.
This module supercedes the less general L.
=head1 METHODS
=over 4
=item Log::Syslog::Fast-Enew($proto, $hostname, $port, $facility, $severity, $sender, $name);
Create a new Log::Syslog::Fast object with the following parameters:
=over 4
=item $proto
The transport protocol: one of LOG_TCP, LOG_UDP, or LOG_UNIX.
If LOG_TCP or LOG_UNIX is used, calls to $logger-Esend() will block until
remote receipt of the message is confirmed. If LOG_UDP is used, the call will
never block and may fail if insufficient buffer space exists in the network
stack (in which case an exception will be thrown).
With LOG_UNIX, I<< ->new >> will first attempt to connect with a SOCK_STREAM
socket, and then try a SOCK_DGRAM if that is what the server expects (e.g.
rsyslog).
=item $hostname
For LOG_TCP and LOG_UDP, the destination hostname where a syslogd is running.
For LOG_UNIX, the path to the UNIX socket where syslogd is listening (typically
/dev/log).
=item $port
For LOG_TCP and LOG_UDP, the destination port where a syslogd is listening,
usually 514. Ignored for LOG_UNIX.
=item $facility
The syslog facility constant, eg 16 for 'local0'. See RFC3164 section 4.1.1 (or
Esys/syslog.hE) for appropriate constant values. See L below
for making these available by name.
The I value is computed from the facility and severity per the RFC.
=item $severity
The syslog severity constant, eg 6 for 'info'. See RFC3164 section 4.1.1 (or
Esys/syslog.hE) for appropriate constant values. See L below
for making these available by name.
=item $sender
The originating hostname. Sys::Hostname::hostname is typically a reasonable
source for this.
=item $name
The program name or tag to use for the message.
=back
=item $logger-Esend($logmsg, [$time])
=item $logger-Eemit($logmsg, [$time])
Send a syslog message through the configured logger. If $time is not provided,
B will be called for you. That doubles the syscalls per message, so
try to pass it if you're already calling time() yourself.
->send may throw an exception if the system call fails (e.g. the transport
becomes disconnected for connected protocols, or the kernel buffer is full for
unconnected). For this reason it is usually wise to wrap calls with an
exception handler. Likewise, calling ->send from a $SIG{__DIE__} handler is
unwise.
B is an alias for B.
B
Note that B does not add any newline character(s) to its input. You will
certainly want to do this yourself for TCP connections, or the server will not
treat each message as a separate line. However with UDP the server should
accept a message without a trailing newline (though some implementations may
have difficulty with that).
=item $logger-Eset_receiver($proto, $hostname, $port)
Change the protocol, destination host, and port. This will force a reconnection
in LOG_TCP or LOG_UNIX mode.
=item $logger-Eset_priority($facility, $severity)
Change both the syslog facility and severity.
=item $logger-Eset_facility($facility)
Change only the syslog facility.
=item $logger-Eset_severity($severity)
Change only the syslog severity.
=item $logger-Eset_sender($sender)
Change what is sent as the hostname of the sender.
=item $logger-Eset_name($name)
Change what is sent as the name of the sending program.
=item $logger-Eset_pid($name)
Change what is sent as the process id of the sending program.
=item $logger-Eset_format($format)
Change the message format. This should be either the constant LOG_RFC3164 (the
default) or LOG_RFC5424.
=item $logger-Eget_priority()
Returns the current priority value.
=item $logger-Eget_facility()
Returns the current facility value.
=item $logger-Eget_severity()
Returns the current severity value.
=item $logger-Eget_format($format)
Returns the current message format.
=back
=head1 UNREACHABLE SERVERS
If the remote syslogd is unreachable, certain methods may throw an exception or
raise a signal:
=over 4
=item * LOG_TCP
If the server is unreachable at connect time, I<< ->new >> will fail with an
exception. If an established connection is closed remotely, I<< ->send >> will
fail with an exception.
=item * LOG_UDP
As UDP is connectionless, I<< ->new >> will not throw an error as no attempt to
connect is made then. However, if the remote server starts or becomes unreachable and
1) the host is alive but 2) not listening on the specified port, and
3) ICMP packets are routable to the client, an exception B be thrown by I<<
->send >>; note that this may happen only on the second call, and subsequently
every other one. This behavior also depends on specific kernel interactions.
=item * LOG_UNIX
With both SOCK_STREAM- and SOCK_DGRAM-based servers, I<< ->new >> will throw an
exception if the socket is missing or not connectable.
With SOCK_DGRAM, I<< ->send >> to a peer that went away will throw. With
SOCK_STREAM, I<< ->send >> to a peer that went away will raise SIGPIPE.
=back
=head1 EXPORTS
Use Log::Syslog::Constants to export priority constants, e.g. LOG_INFO.
=head1 SEE ALSO
L
L
=head1 BUGS
LOG_UNIX with SOCK_DGRAM has not been well tested.
=head1 AUTHOR
Adam Thomason, Eathomason@cpan.orgE
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2009-2011 by Say Media, Inc.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.5 or,
at your option, any later version of Perl 5 you may have available.
=cut
PK B[ 9 auto/Sys/Hostname/FQDN/FQDN.sonu W+A ELF >
@ ( @ 8 @ % " < < @ @ @ p p p $ $ Ptd , , Qtd GNU R46>>Ae d)D " ' Rx|CEqX ^rWŹ + ~ j " $ B m C c 0 X + @ q ^ e L ? __gmon_start__ _init _fini __cxa_finalize _Jv_RegisterClasses boot_Sys__Hostname__FQDN Perl_Gthr_key_ptr pthread_getspecific Perl_Istack_sp_ptr Perl_Imarkstack_ptr_ptr Perl_Istack_base_ptr Perl_newSVpv Perl_new_version Perl_sv_derived_from Perl_vcmp XS_Sys__Hostname__FQDN_usually_short Perl_newXS XS_Sys__Hostname__FQDN_inet_ntoa XS_Sys__Hostname__FQDN_inet_aton Perl_Iunitcheckav_ptr Perl_Iscopestack_ix_ptr Perl_call_list Perl_Isv_yes_ptr Perl_sv_2pv_flags Perl_form Perl_get_sv Perl_vstringify Perl_croak Perl_sv_newmortal Perl_croak_xs_usage gethostname Perl_Isv_undef_ptr __stack_chk_fail libc.so.6 _edata __bss_start _end GLIBC_2.4 GLIBC_2.2.5 T ii
v ui h h
# $ 8 @ H P X ` h
p x
H r H5
% @ %
h % h % h % h % h % h % h % h p% h `% h P% h
@% h 0% h % h
% h % h % h % h %z h %r h %j h %b h %Z h %R h p%J h `%B h P%: h @ HH HtHÐU= HATSubH= t H=G
H +
L%
H L)HHH9s D HH AH H9r [A\f H= UHtHc HtH= @ ÐAW1AVAUATUSH88H1L(8HKH1*HH8]HcHL$ 1L08zHH H@
Y 1Z8SHH HLxHcII)IAh 1E1 8HH H\H 18H5[ 1Ho1H8HHs1H8H" HH@ 18HHHl 1m8fH H
H59 H91B8;H H
H56 H18Hy H
H5+ H18H=H8 tL18H!1H(8H18HH;1L8zH1Hh8aH1HO8HH 1H68/HL L#H8[]A\A]A^A_f. 18HrH 1L<8L" 1HI 18H
H5 LH1w1H81HHHHtM@ <t:f t@L- Z1Q8JHHH HCf@ u1L-~ 8H
k H5l LH11H8H1HVH18HHMHtpL5% H ! M1HT$(8HHN1Ht8mHT$(H5 HMIH1Ll$L4$HT$LL% L- MLffffff. AT1UHSH 8H1L 8HnH1HH8H N ^ n ~
.
>
N
^
n
~
GCC: (GNU) 4.4.5 20110214 (Red Hat 4.4.5-6) ,
}P 3L boot_Sys__Hostname__FQDN /M XS_Sys__Hostname__FQDN_inet_aton IN XS_Sys__Hostname__FQDN_inet_ntoa ;O XS_Sys__Hostname__FQDN_usually_short yP , " " ( int S% B ; H" ; Z& B # B ; T B 1 ^ ^ W b ^ ^ ^ 1
^ ` ^
J" B{ Qp b n d < L B W { { B
B f y " z % {^ " N% ( ^
B
$"
)
*W
+ 2
B _
d" W
0 ^ Q _ ` C a bW | cW dW ! e ( [
O __x [ __c 4 4 __a 4
B ( "; g #W $ ! % @g A y Bp G ' HW $ IW ( J; O P y Qp ( R; W X y Yp ZW " [ \ a ^ b g< ~ h^ # iW p ; ' < CF Kg _rt S ] n" c x j W
B 2 4 5W 6W q 8W r k< $ l W
4; '
B
h K n ' }) / c 0e n 5 e = u > @p A{ ^ CW $A Ee (F J 0 N 8a# P [ ( \ ] r j ^ !
B tm 8 W ` W | W 7 W W W W W W # ^ ( 0 tms $ q# %: I &: (: j ): { 1 z # O& W = fz 2 g P" h # iW jW k
K # ? W
V I J 5# K X LW : ; )) 4 !- "; K
B ' )) ( ) *4 +- ,; DIR 4 IV ^ UV B NV \ m = P OP D op (
!( ^ !( j !: 8 !9 !; !; !; !; !; D) !; M !% " !% # COP E cop X
( ^ ( j : 8 9 ; ; ; ; ; D) ; M % " % # % $ (o$ 0 8' % E % { A A J
X;
<( ^ <( j <: 8 <9 <; <; <; <; <; D) <; M <% " <% #) =( ( >( 0 @ 8 D% L: T; $ N
' P
( ^ ( j : 8 9 ; ; ; ; ; D) ; M % " % #) ( ( ( 0 ( 8 ( ( P
V "4 !Iop &( (4 *4 +4 -* ( .% 0\ /% 4E 1tK 8 3% % 4% 64 ' 7% 8% ) 9% + :% =* t ?* @* !ISv B*& " CzK !Ina P TK g UK g& V( W*&
Z ^3 !Irs p*& q( S r*& \ s( t t ( u*& ? v*& \ w*& zw* {w* }( I( ~K " j8 K j8 -' B ! A s *& L 4 ( ( t w* ( h% ( )( } * * % *& 32 ) " % /) n f K J % % ( & K ?# K % %
K d( I % E' W ' ( 1 ( 4( (
*& *&
*& X$ լK 3
C
b
k
P
*
C %
"
%
f$
3 *&
T E
*&
$ %
%
%
W
=
(
(
(
! (
(
E
(
' j8
(
( ( / ( 0( 1*& 2*& 3*& x 4j8 t 7w* % 8w* 9*& ; :j8 g ;j8 % <j8 ' =j8 >j8 ?w* @% 2 CW F% G% q
H*& I*& y' Lj8 ) O R^8 n' S(
T( U( 0" V( $ YC D [W \W ] ^K _
[ dj8
= e*&
z
f*&
9 h%
R i
2 j
k%
<( lW
% o%
/ pK
w*
] y3
Q
^8 W) j8 j8 % X % ^8 ! W - Y %# * $ ( $ b _ Ian % % # % % =
U
# j( B K ( ` % " W OJ M) 2 ' *& K % & %
% ~ % % Q( % ( % K ^ q . P ? P % N ( % y( | ! *& *& \% *& *& ! *& % *& 0 *& M *& % *& ! *& *& 1 *& *& *& *& *& $ *& 2! *&
w* , % m
K
% Z" W K >& 4 4 u ,K & -j8 / $ 4*& 94 ;j8 S BK $ Ew* ! Fw* I9 JK KK
# N*& & PJ R*& S*& # UK Wj8 Xj8 Z^ \W < ^% & `% bW dw* gqJ hqJ oqJ qJ s u ( ww* > W . L J "% % _ w* SV Y sv pU
q $ q% q% r{4 AV Z ` av
5 $ % % 5 HV [ hv
S6 $ % % 5 CV \ cv *
5 $ % % E5 ] 6 Eb GZ* He* K% u L% M% & N% Ok* l Q% ( T% , U 0 Y% 8 Z% < [q* \q* < ^ a% e% f % h i% j% kw* [ n% GP ^ m gp P *& 9
9 ( ^8 % X % w* \' j8 ($ ^8 0? ( 8 % % D7 GV _
gv }F
~?5 $ ~% ~% 4 io
6 $ % % Y6 ~! a
N p{ = D
/ p, ' % 0 % % " %
C % %
3 C d 8 I ( %
3 # F % % !% & "*& ]
# XPV e xpv &
7
k & 0 G! & E
/ E / !E %F &w* ( ? l S! 0 S! & `@ ! a N b iA mOA nw* ( m !
O 0A" & N7 O
P W7 [ 8 \w* ( n " p
" &
:
#?: ': (w* ( *w* 0r% .: 8 2: " 3( O 4 a 5: 6^8 7% ( :A8 q "
$ & 8
8 E9 w* (` 9 0 9 8i g9 2 % 6' $ ( j `) ( y ( % % r ($ g @ $ $ RF RF 5 rF z RF RF % F (# F 0g RF 8 ANY s $ "any % # # % #s
#@
^ #
#&
& #
$&
$ y
8% , z
, % cp , $ , (
% ,B - 0 &. $- )& % & % me - & / $- $- *& &!%/ val "W &@'/ )$- b' *$- A +- B +- cp ,, - $& .W (min /W ,max 0W 0 3W 4* 4 8 &(7 0 9$- l :$- cp ;, <, % = L >% ?% $ &8B0 D$- c1 E% c2 E% cp F, G% H% I A J- B J- (me K- 0 &@N31 O% cp P, c1 Q% c2 Q% R S TW min UW $max UW (A V- 0B V- 8 '@1 (yes , #J
*- # Z- #& - #
. #G! . # . #F #/ #q 5%/ # @/ # L 0 #r W0 @# Z, & c2 d2 e!2 , e!2 1 !2
B 1 1 & f1
y3 c! % G % n %
' q* ( y3 0 y3 8
< 3 b 3 3 f ( % % % ! % & " % ,
).3 *J * * * *O! * * * * * *'
* *4 *
* * * N A3 HE Y4 he ?4 4 D7 m@ HEK ZJ4 hek {4 j % f" % ' ( r4 _ r +! r r*& r r4 s r4 " r4 *& 4 4 b ?5 _ +! *& 4 s 4 " 4 ! 5 _ +! *& 4 s 4 " 4 " 5 _ +! *& 4 s 4 " 4 S6 _ +! *& 4 s 4 " 4 G! 6 _ +! *& 4 s 4 " 4 " &6 X % % % &
7 % % % 'D7 # # w* #@ 6 #y 6 ?4 &En7 X F% % G% &I7 J% K% L% 'B7 # C # Dw* #@ HJ7 #y Mn7 'Q 8 #!& R # S #% T #s U% #G VD7 'XA8 #v& Y3 #' Zw* b% ^8 & ^8 M8 U &8 X % % % &8 % % % '8 # # w* #@ p8 #y 8 'E9 #!& # #% #s % #G D7 'g9 #v& 3 #' w* '9 # 9 # G( F %U PAD %U % B 9 X % % %
: % % % ?: w* @ 9 y 9 : !& % s !% G "D7 $: v& %3 ' &w* +: ,( ' -$ /: 0( Y 1d8 9 %( : & : 'E; # F( #' H9 'M<; # N( #) P 0&3; &4 ( &5 ( &6p {$ &7{ &8 &9 & &: ( '-; '. '/ o& '0{ '1 +5$ (/s< (0s< !sb0 (1< !sb1 (2< !sb2 (3< !sb3 (4< | (6 (7< " (8^ (9W <
(9W <
B < ,B <
B ' H)) = )* S
)+ ),^ )-^ ).^ )/^ (U )1^ 0 )3^ 8
)5B -H*r%@ 2 *t *uP *{%@ ! * *P * (d * V *; * *P \ *+@ } *1 * ' *P 2 *1@ ! *W * *P * E * B *P *7@ l *W h * * *P *=@ *<; * n *P *C@
*z * *P / *I@ e *< * *P *O@ ( *! O# *! = *C M *[ ! *U@
*P f *U@ " *[@ *P &$ *[@ * C * *P v * @$ *P *W ; ; 1 <; z < K * = @ w *&
P W@ X X% % Y% [@ \% ]% ^% TA U Vw* @ Z@ y _@ cOA !& d e % f s g% G hD7 jnA v& k3 ' lw* .# A A ' !2 [
"W # nA {# &nA 5 A
@^B cv ^8 gv ( ( @ j8 % j8 ) % (x % ,N !% -( "^B 0 #( 8 9
8B % % s *& ( *& cv ^8 ( (P B 0 A
' PqC v! % qC ;) ( ^B
*& (J *& 0
j8 8H&
0& C ( 'PC # A # dB # B #d
wC
XBD C% D% E% N F% G% H% B I% J K*& L*& (!
M 0 N 82
O N$ P Q* 'p|D #k) } # ~C
0>E p j8 ] >E n DE ) DE % % $?! % (# % , D D wE X % % % E % % % E
w* @ VE y wE F !& % s % G D7 "8F v& #3 ' $w* %W RF & *& 3 8F %% rF & *& 3 XF %W F & *& 3 *& W xF %W F & 3 , F $
f
F
# g
(G
h
% i
% j
( I k
K l
+aG !val +( C +P +% X) +j8 5% +(G \ P+J + J + ( + W +!W +#W q +$W s +% J !ps +& J (O' +*% 0% ++% 4 +, 8z +- '
+.% +/ +0% +1% +2% +3( +4( % +5*& +6% +7% V +8% } +9*& +:% > +;% +< | += A +> D% +? $ +AF }
+B*& O +C +D +E Q +F +G +H Y +I +J% +K% A +L% +M% ! +Nw* +O9 I +Pj8 +dJ # +e!J +f% +iC +j; lG aG ( !J
B % 1J
B \ +llG %
8r) C*P w< & P 6 M*M t
=L | E>&L
>L
;P ,B 4w ,
( 4z ,
( 4w ,
( 4z ,
( 4/ W % $ > $ > : ; I I : ;
: ; I8
I
! I/ : ; & I
: ;
: ;I8
: ;I8
& : ;
: ; I : ;
: ; I ' I : ; : ; : ; I < : ;I : ;I : ;
: ;I
8
: ; I
8
: ; !
: ; I8
" : ; #
: ;I $ : ; %' I & : ; ' : ; (
: ;I ) : ; *(
+ : ; ,! I/ - : ; .5 I /.? : ;' I 4 0 : ;I 1.? : ; ' @
2 : ; I 3 : ; I 44 : ; I? < 54 : ; I 64 : ; I 74 : ; I 84 : ; I
9 U : U ;4 : ;I < = 1RUX Y > 1 s
/usr/include/bits /usr/include/sys /usr/include /usr/lib/gcc/x86_64-redhat-linux/4.4.5/include /usr/include/netinet /usr/lib64/perl5/CORE FQDN.c FQDN.xs unistd.h types.h types.h time.h stddef.h sigset.h setjmp.h setjmp.h stdlib.h siginfo.h stdint.h in.h stat.h times.h netdb.h netdb.h dirent.h dirent.h perl.h op.h cop.h intrpvar.h sv.h regexp.h gv.h mg.h av.h hv.h cv.h handy.h libio.h perlio.h iperlsys.h perly.h pad.h pwd.h grp.h crypt.h shadow.h reentr.h parser.h stdio.h 0, Btf t Xt. <tF +++LjvJ0,`+Y-=g-K 3 +V%0,`+Y'-=g-K 3 +W%0,0\~<}X0:v-= 6"=F xmg_u _spent_ptr precomp _ctime_size Iglobalstash Itaint_warn multi_end _unused2 Icompiling Idefoutgv _fileno si_prev _ttyname_buffer Ipadix_floor re_state_reg_curpm lex_inwhat tm_sec Iutf8_totitle regexp_paren_pair __saved_mask xiou_any Istrtab Iargvgv xbm_flags last_lop_op rand_sep Ipsig_name pw_uid block refcounted_he Ipreprocess xpvgv max_offset xio_ifp _protoent_struct si_uid Isv_yes _readdir64_size regexp_engine lex_op _shortbuf _reg_trie_accepted ICmd xio_flags PTR_TBL_t Ireg_state svt_set si_cxix xpvhv Ilast_swash_klen my_perl _crypt_struct_buffer _hostent_ptr Ibodytarget super_bufend Icomppad_name_floor save_curlyx _sigpoll Imainstack gp_hv Ihash_seed Isub_generation PerlIO_list_t xpvio gvval _servent_buffer sbu_targ oldoldbufptr Iregex_padav Inumeric_standard yylval Itainting xcv_start blku_type __off_t gp_io gp_egv st_size sbu_iters xlow Iprofiledata hek_hash Ierrors netent sp_expire endpos tm_isdst cop_line s_proto xcv_stash wraplen _lock saved_curcop block_sub _spent_size op_redoop Iunitcheckav_save Iwarnhook Icurstash lex_inpat xcv_gv si_next Iutf8_punct hostent Isavestack cur_top_env yy_parser re_state_reg_oldsaved multi_close Isplitstr mg_type Idestroyhook cache_mask op_lastop Iscopestack_ix xpv_cur st_blksize _drand48_struct _sigchld Ienvgv Iclocktick Idirty svu_pv __jmpbuf xivu_uv pw_passwd h_name Igensym pending_ident share_proc_t Itoptarget Istatcache curly Idbargs lex_dojoin qr_package h_addr_list sbu_dstr sp_max st_gid _getlogin_size Iscreamnext intflags cv_flags_t gp_line op_latefreed _timer lex_expect Idefstash Itmps_floor xio_page_len Isv_no _IO_write_end re_state_reg_start_tmpl Iegid st_nlink s_addr Iptr_table __mask_was_saved mg_private st_ctim sbu_orig pprivate sv_u __sigset_t PADOFFSET xcv_root current_salt h_length Iregdummy old_in_eval Sighandler_t re_state_regoffs mg_virtual Imy_cxt_list Ibeginav Ifilemode Icollation_standard Igid Iendav re_state_reg_eval_set extflags re_state_reg_oldsavedlen _kill tms_cutime Ilastgotoprobe Irehash_seed svu_rv sv_flags _netent_ptr PerlExitListEntry Istack_base Idiehook prev_eval st_atim Iutf8cache Ie_script cx_u _netent_size xcv_file gp_refcnt __clock_t nparens Ichopset Iscreamfirst sival_ptr /usr/src/Sys-Hostname-FQDN-0.11 Iperldb seen_evals _getlogin_buffer __uid_t si_stime xio_page lastcp perl_debug_pad he_valu sub_op Icompcv dirent64 Iisarev Iutf8_graph resume_state super_bufptr lex_starts xcv_padlist _chain Isortstash Istdingv toggle_reg_flags __jmp_buf_tag Idef_layerlist blku_loop oldloc Icurstackinfo Ipsig_ptr Iefloatsize direction gp_sv unsigned char blku_oldcop Imain_start sbu_s lex_defer __blkcnt_t initialized _IO_lock_t sp_pwdp je_ret float exec Ilast_swash_key linestr itersave SUBLEXINFO Itimesbuf Isig_pending op_next sv_any Ipatchlevel Imax_intro_pending Ilast_swash_hv Ireplgv block_eval xbm_previous itermax Icop_seqmax _ctime_buffer Iexitlist stashes lex_state s_name Icv_has_eval Iregistered_mros si_stack xbm_s je_prev tm_zone __mode_t swap op_latefree _protoent_ptr next_branch sbu_maxiters Icollation_ix si_cxmax Isharehook _strerror_size FQDN.c states Iperlio prev_mark Iutf8_lower Iin_clean_objs re_state_reg_magic drand48_data Iscopestack_max _netent_errno stdout sp_namp SVt_PVGV Isortcop op_pmreplrootu blku_eval _IO_write_ptr yyerrstatus Ireginterp_cnt leave_op sublen re_save_state Iutf8_alnumc sp_flag xav_fill super_state mg_moremagic sbu_strend Iorigenviron branchlike Iosname mg_ptr blku_givwhen Isv_root Iors_sv Icolorset xpv_len hent_refcount exitlistentry re_state_reg_start_tmp XS_Sys__Hostname__FQDN_inet_aton scream_pos _servent_struct utf8_substr Iorigalen IDBsingle gethostname _servent_ptr subbeg Idowarn naddr re_scream_pos_data _drand48_double Imarkstack_ptr Isv_objcount Iamagic_generation Icurpad Iutf8_idcont svu_array Ilocalizing re_scream_pos_data_s Iutf8_xdigit sbu_type d_reclen regexp REGEXP Isrand_called servent gofs Imodcount svt_len Imess_sv keeper op_flags _grent_struct _IO_save_base __unused cop_warnings PERL_SI REENTR substrs XS_Sys__Hostname__FQDN_inet_ntoa yychar blku_oldscopesp SVt_PVAV pw_dir IDBsub op_opt Iunlockhook my_op mother_re curlym xio_bottom_name __pad2 Perl___notused prev_rex xivu_namehek __nlink_t si_addr Icolors st_ino st_mode _hostent_struct MAGIC cop_label Iregex_pad mg_flags Iformfeed cur_text XPVAV op_pmoffset op_attached _strerror_buffer maxpos ptr_tbl SVt_PVCV Istashcache prelen hent_hek cop_hints Iincgv op_targ xpad_cop_seq _random_retval _grent_ptr sival_int si_code xio_bottom_gv re_state_regeol Iscopestack d_off Imodglobal keysched rptr error_count blku_oldmarksp Imaxscream last_uni Idelaymagic gr_mem XPVCV iterary dotquad boot_Sys__Hostname__FQDN XS_Sys__Hostname__FQDN_usually_short p_proto __ssize_t xio_fmt_name hent_val Idoextract je_mustcatch xcv_root_u xbm_rare xnv_nv timespec n_net sp_min svt_free _protoent_size IDBsignal pw_name __val tmpXSoff SVt_PVFM Ilastfd clone_params Iexit_flags GNU C 4.4.5 20110214 (Red Hat 4.4.5-6) Ireentrant_buffer _spent_struct old_namesv Ipadix sp_lstchg sbu_rx mark_name old_parser st_uid sbu_m PerlIO_list_s numbered_buff_LENGTH xcv_outside Ilockhook PADLIST any_dxptr rsfp re_state_reg_leftiter Istatname Ieuid _sbuf SVt_PVHV _IO_read_ptr SVt_NULL _IO_save_end tm_min mgvtbl Irehash_seed_set jump Ipsig_pend Ilaststype XPVGV Iutf8_toupper MGVTBL Itmps_stack sub_inwhat cx_subst Irestartop SVt_PVIO __time_t cop_file SVt_PVIV Icurpm regnode Iwatchok sbu_rxtainted Iuid named_buff_iter XPVHV xav_max Iutf8_digit xcv_xsub re_state_reg_oldcurpm hasargs op_private Istatusvalue_posix any_ptr short unsigned int re_state_reg_match_utf8 _grent_buffer _netent_struct _grent_size XPVIO in_my __blksize_t gr_passwd nexttoke save_lastloc _asctime_buffer sbu_oldsave xhv_max protoent sigjmp_buf tms_cstime minlen Inumeric_name Ioldname Ierrgv si_pid xmg_stash sbu_rflags _pwent_struct IDBcv tm_wday __off64_t Idoswitches re_state_reg_oldpos _IO_read_base re_state_bostr _asctime_size SVt_PVLV reg_substr_data savearray iterlval Iofs_sv Ipreambleav _IO_buf_end svu_hash rand_deg op_pmstashstartu Icheckav_save re_state_reg_maxiter blk_u SVt_PVMG Istack_max Isv_arenaroot tm_yday Imarkstack SVt_BIND pw_gecos op_last _IO_write_base _pwent_ptr Inice_chunk __dirstream any_long rsfp_filters next_off svu_iv _readdir_ptr xivu_i32 crypt_3_buf Ieval_root Iknown_layers Ithreadhook SVt_PVNV PMOP tokenbuf minmod tm_mon xssv whilem mark_loc YYSTYPE Ilast_in_gv random_data Ireentrant_retint multi_start xio_type Icollxfrm_base _random_struct Ihv_fetch_ent_mh reg_substr_datum _pwent_size svt_clear xiv_u Isawampersand xio_ofp xgv_stash Ipeepp old_op_type op_pmreplroot _IO_marker tm_year copline IDBgv cop_hints_hash gp_cvgen stack_size minlenret Isv_count _sublex_info blku_gimme myaddr Ibody_roots context Istack_sp Inice_chunk_size Icollation_name IArgv Iinitav in_addr uint32_t peep_t _servent_size __pid_t Iutf8_idstart _spent_buffer op_pmreplstart Istatusvalue Icomppad_name nextval Idebug SVt_IV Iparser re_state_regsize _cur_column Imy_cxt_size Isubline Ibasetime op_sibling xio_dirpu any_iv lex_casestack Icurstname pmop Isavestack_ix Icomppad_name_fill end_shift Ibody_arenas hent_next __buflen sbu_once si_status named_buff Ilast_swash_tmps PerlInterpreter Imaxo Istderrgv Iforkprocess s_port opval cache_offset Iin_clean_all svt_local yylen stdin lex_stuff blku_spare xio_top_name wordnum dfoutgv lex_formbrack mg_len xiou_dirp _IO_buf_base p_tkval rand_type __dev_t Iutf8_mark linestart _readdir_size _IO_read_end Iunitcheckav xio_lines Iunicode _netent_buffer _IO_FILE si_cxstack in_addr_t _sifields tm_hour gr_name STRLEN close_paren SVt_LAST __init _pwent_buffer destroyable_proc_t multi_open Iin_eval _srandom_struct sp_warn si_signo SVt_NV paren_names prev_yes_state hek_key IDBline tm_mday Icollxfrm_mult svtype sp_inact __pad0 __pad1 __pad3 __pad4 __pad5 proto_perl old_eval_root Imarkstack_max op_nextop Iminus_E Iminus_F _hostent_buffer lex_brackstack xpvcv re_state_reglastcloseparen si_errno Irunops Imain_cv CHECKPOINT Iminus_a Iminus_c _markers Iargvoutgv Iminus_l last_lop Iminus_n Iminus_p Idebstash si_band min_offset re_state_reglastparen op_pmflags Iin_load_module i_tkval blku_sub interpreter blku_oldpm _protoent_buffer numbered_buff_FETCH Iorigfilename Iutf8_alpha op_first siginfo dirent st_rdev tms_stime tbl_max __old_x st_dev op_ppaddr SVCOMPARE_t thrhook_proc_t IDBtrace any_i32 Ifirstgv Istatbuf retop Iutf8_print group SVt_PV Isavebegin locinput any_bool xcv_outside_seq Itainted Icustom_op_descs Iutf8_alnum line_t svu_uv Iutf8_tofold si_type ifmatch SVt_RV CLONE_PARAMS re_state_reg_flags resetsp PERL_CONTEXT Iutf8_space _readdir_struct _hostent_errno xhv_fill Igeneration Istart_env sigval_t Idefgv in_my_stash end_ptr runops_proc_t blku_oldsp svu_gp re_state_reg_starttry Ieval_start scream_olds __gid_t h_aliases Iglob_index hek_len _sigfault numbered_buff_STORE current_saltbits si_utime tv_sec Icurstack IXpv Idumpindent long long unsigned int _readdir64_struct oldval Iunsafe n_aliases Iencoding si_fd h_addrtype Inomemok jmpenv p_aliases Iregmatch_state _localtime_struct st_blocks inadr tms_utime JMPENV Isighandlerp nexttype s_aliases Isort_RealCmp __buf svt_dup dupe si_markoff tm_gmtoff __ino64_t Ievalseq checkstr _IO_backup_base LOOP Inumeric_radix_sv xio_top_gv _readdir64_ptr crypt_data _ttyname_size sbu_rxres Ilocalpatches Iinplace cop_stashpv pw_gid Icurcopdb Icustom_op_names ptr_tbl_ent si_overrun svt_get Iutf8_tolower gp_form Imaxsysfd sv_refcnt _old_offset siginfo_t tbl_ary Iexitlistlen lex_repl xivu_p1 Ibreakable_sub_gen yy_stack_frame preambled long long int Iutf8_ascii Isecondgv xcv_start_u _flags2 svt_copy gp_file_hek Isavestack_max Ilast_swash_slen Ilastscream wrapped Iutf8_cntrl argarray xhigh tv_nsec lex_casemods Iutf8_upper logical Ibeginav_save xivu_iv wanted block_givwhen Ibitcount iterix n_addrtype __ino_t ival Istatgv gr_gid xmg_magic Imin_intro_pending trie mg_obj any_dptr intuit xpvav re_state_reg_poscache pw_shell xnv_u parenfloor Isignals Iregmatch_slab Idebug_pad xcv_xsubany si_tid re_state_reginput Itop_env xio_lines_left Iorigargc lex_brackets gp_av prev_curlyx Imain_root Ifdpid Iorigargv netaddr Iargvout_stack op_pmtargetoff _hostent_size Itmps_ix xmg_ourstash block_loop Isubname je_buf newval Icheckav spwd xcv_flags re_state_reg_poscache_size Iefloatbuf Ihintgv Ilaststatval Icurcop Ipad_reset_pending Iperl_destruct_level Inumeric_local Iformtarget oldcomppad _PerlIO st_mtim Ihints short int Iwatchaddr gp_cv _gmtime_struct si_sigval __jmp_buf _vtable_offset olddepth Iop_mask Itmps_max tbl_items d_ino Iutf8locale iterdata op_spare Isv_undef Icomppad xio_fmt_gv cx_blk local_name stat PerlIOl accept_buff op_pmstashpv U T ) - p - ] 5 ] D O p O r Vr S f S r v v $ &3$p "v v $ &3$~ " v $ &3$~ " * v $ &3$~ " T S P S P S% * P* Y S S r 0 ] 5 05
*
_5 _ " P" : V: > P> V V* V V 1 U T n Vk V
p
I \ ! , p , < S< \ s\ S? k Sk s < \ s $ &3$p "\ ` s $ &3$p "k q s $ &3$p " s 3$p " \? k \ P > \ ? H U ? 1 U T V ; V p \ p S s S S ; s s $ &3$p " s $ &3$p " ! s $ &3$p " 2 B s 3$p "B P \ \ K X P \ 1 @ D U @ g Tg S S S | p \ p V v @ V V v v $ &3$p " v $ &3$p " % ) P) @ \ @ 1
1
W w W
W d }P e __dev_t p __uid_t { __gid_t __ino_t __ino64_t __mode_t __nlink_t __off_t __off64_t __pid_t __clock_t __time_t __blksize_t __blkcnt_t __ssize_t gid_t $ uid_t / ssize_t : clock_t E time_t P size_t [ int32_t __sigset_t timespec __jmp_buf __jmp_buf_tag 2 sigjmp_buf C random_data drand48_data sigval ; sigval_t siginfo siginfo_t uint32_t ' in_addr_t 2 in_addr K stat ! tm tms netent 1 hostent z servent protoent dirent K dirent64 DIR IV UV NV STRLEN OP COP
PMOP LOOP PerlInterpreter SV U AV HV CV * REGEXP b GP GV PERL_CONTEXT , MAGIC XPV XPVAV G! XPVHV ! XPVGV " XPVCV " XPVIO $ MGVTBL $ ANY 8% PTR_TBL_t y% CLONE_PARAMS % I8 % U8 % U16 % I32 % U32 % line_t $ any ' _IO_lock_t ' _IO_marker 0& _IO_FILE 6( PerlIOl G( PerlIO X( PerlIO_list_t j( Sighandler_t u( YYSTYPE ( YYSTYPE ( regnode ) regnode ) reg_substr_datum `) reg_substr_data ) regexp_paren_pair ) regexp_paren_pair 6 regexp }* regexp * re_scream_pos_data_s * re_scream_pos_data ) regexp_engine , _reg_trie_accepted , reg_trie_accepted , CHECKPOINT , regmatch_state 1 regmatch_state 1 regmatch_slab '2 regmatch_slab 32 re_save_state 3 svtype 4 HE ?4 HEK sv
gv cv ` av hv F io xpv ! xpvgv A8 cv_flags_t " xpvio % clone_params m gp 9 PADLIST 9 PAD 9 PADOFFSET " xpvcv op
pmop loop <; passwd ; group ; crypt_data < spwd a@ REENTR 4 he J4 hek S! xpvhv nA jmpenv A JMPENV cop A block_sub dB block_eval B block_loop wC block_givwhen block C subst context D stackinfo JE PERL_SI xpvav ($ mgvtbl 8 magic F SUBLEXINFO F _sublex_info aG yy_stack_frame lG yy_parser 1J yy_parser % ptr_tbl_ent D% ptr_tbl OJ runops_proc_t qJ share_proc_t J thrhook_proc_t J destroyable_proc_t J perl_debug_pad J peep_t K SVCOMPARE_t AK exitlistentry hK PerlExitListEntry interpreter U X r m o ` h * W Y @ k \ 6 6 v .symtab .strtab .shstrtab .note.gnu.build-id .gnu.hash .dynsym .dynstr .gnu.version .gnu.version_r .rela.dyn .rela.plt .init .text .fini .rodata .eh_frame_hdr .eh_frame .ctors .dtors .jcr .data.rel.ro .dynamic .got .got.plt .bss .comment .debug_aranges .debug_pubnames .debug_info .debug_abbrev .debug_line .debug_str .debug_loc .debug_pubtypes .debug_ranges $ . o H 8 @ H o L L P U o 0 d n x x
x s ~
2 , ( ( @ @ P P ` ` h h p p 0 0 , < 0 l }P o ) ( r 4 0 ;v ) ? ޟ G J % h Z 0 h h $ 5 L x
( @ P ` h p !
@ * P 8 ` E [ j x H 8 ` h X p
% 4 H N _ n " @ 9 P \ r ( 9 D [ n u call_gmon_start crtstuff.c __CTOR_LIST__ __DTOR_LIST__ __JCR_LIST__ __do_global_dtors_aux completed.6338 dtor_idx.6340 frame_dummy __CTOR_END__ __FRAME_END__ __JCR_END__ __do_global_ctors_aux FQDN.c _GLOBAL_OFFSET_TABLE_ __dso_handle __DTOR_END__ _DYNAMIC Perl_get_sv Perl_Imarkstack_ptr_ptr __gmon_start__ _Jv_RegisterClasses _fini Perl_Isv_yes_ptr Perl_call_list Perl_Istack_sp_ptr Perl_vstringify Perl_form Perl_vcmp pthread_getspecific __cxa_finalize@@GLIBC_2.2.5 Perl_Iscopestack_ix_ptr gethostname@@GLIBC_2.2.5 Perl_sv_newmortal XS_Sys__Hostname__FQDN_inet_ntoa inet_ntoa@@GLIBC_2.2.5 __bss_start Perl_Iunitcheckav_ptr __stack_chk_fail@@GLIBC_2.4 XS_Sys__Hostname__FQDN_usually_short Perl_Istack_base_ptr _end XS_Sys__Hostname__FQDN_inet_aton Perl_newSVpv Perl_croak_xs_usage boot_Sys__Hostname__FQDN Perl_new_version Perl_croak inet_aton@@GLIBC_2.2.5 Perl_Isv_undef_ptr _edata Perl_newXS Perl_Gthr_key_ptr Perl_sv_derived_from _init Perl_sv_2pv_flags PK B[l1 auto/Sys/Hostname/FQDN/.packlistnu W+A /usr/local/lib64/perl5/Sys/Hostname/FQDN.pm
/usr/local/lib64/perl5/auto/Sys/Hostname/FQDN/FQDN.bs
/usr/local/lib64/perl5/auto/Sys/Hostname/FQDN/FQDN.so
/usr/local/share/man/man3/Sys::Hostname::FQDN.3pm
PK B[ auto/Log/Syslog/Fast/Fast.bsnu W+A PK B[Sc
auto/Log/Syslog/Fast/.packlistnu W+A /usr/local/lib64/perl5/Log/Syslog/Fast.pm
/usr/local/lib64/perl5/Log/Syslog/Fast/PP.pm
/usr/local/lib64/perl5/Log/Syslog/Fast/Simple.pm
/usr/local/lib64/perl5/Log/Syslog/Fast/XS.pm
/usr/local/lib64/perl5/auto/Log/Syslog/Fast/Fast.bs
/usr/local/lib64/perl5/auto/Log/Syslog/Fast/Fast.so
/usr/local/share/man/man3/Log::Syslog::Fast.3pm
/usr/local/share/man/man3/Log::Syslog::Fast::PP.3pm
/usr/local/share/man/man3/Log::Syslog::Fast::Simple.3pm
/usr/local/share/man/man3/Log::Syslog::Fast::XS.3pm
PK B[
! { auto/Log/Syslog/Fast/Fast.sonu W+A ELF > @$ @ 0 @ 8 @ % " ̓ ̓ Г Г Г $ $ Ptd \ \ Qtd GNU K)I\w
OA4Y, % > q( #1@Fk
8.0> @ B C D F G H L O P Q R S T V W Z \ ] ` a b c e f g j <:#ə'1E=Qh E%Xʑo_:AO91!Ki.H% %ty9!OC'G s P[IPne9یe/>qX dۻ|v@C3ߌ^؛>CEvne u.Nś
U( 8 G o W % | D 6 u 0 " d g N o U s # $ ( N N ' r [ g J % _ `% 8~ r A P( 2 K h z 0) j @E % 9 % b 1 m r p% * . Q : U `H | m @e t m / 8 ) j p& R ( 2
И { P% 0 0( X g c ( S - 8 ? l @% [ 0% ; B p K 8 P. k
*
__gmon_start__ _fini __cxa_finalize _Jv_RegisterClasses LSF_get_priority LSF_get_facility LSF_get_severity LSF_get_sender LSF_get_name LSF_get_pid LSF_get_sock LSF_get_format localtime strftime __snprintf_chk __stack_chk_fail LSF_send realloc memcpy __errno_location strerror LSF_set_format LSF_set_pid LSF_set_priority LSF_set_severity LSF_set_facility LSF_destroy close free LSF_set_name __strdup LSF_set_sender LSF_alloc malloc LSF_set_receiver strncpy socket fcntl connect freeaddrinfo getaddrinfo LSF_init getpid boot_Log__Syslog__Fast Perl_Gthr_key_ptr pthread_getspecific Perl_Istack_sp_ptr Perl_Imarkstack_ptr_ptr Perl_Istack_base_ptr Perl_newSVpv Perl_new_version Perl_sv_derived_from Perl_vcmp XS_Log__Syslog__Fast_constant Perl_newXS XS_Log__Syslog__Fast_new Perl_newXS_flags XS_Log__Syslog__Fast_DESTROY XS_Log__Syslog__Fast_send XS_Log__Syslog__Fast_set_receiver XS_Log__Syslog__Fast_set_priority XS_Log__Syslog__Fast_set_facility XS_Log__Syslog__Fast_set_severity XS_Log__Syslog__Fast_set_sender XS_Log__Syslog__Fast_set_name XS_Log__Syslog__Fast_set_pid XS_Log__Syslog__Fast_set_format XS_Log__Syslog__Fast_get_priority XS_Log__Syslog__Fast_get_facility XS_Log__Syslog__Fast_get_severity XS_Log__Syslog__Fast_get_sender XS_Log__Syslog__Fast_get_name XS_Log__Syslog__Fast_get_pid XS_Log__Syslog__Fast_get_format XS_Log__Syslog__Fast__get_sock Perl_Iunitcheckav_ptr Perl_Iscopestack_ix_ptr Perl_call_list Perl_Isv_yes_ptr Perl_sv_2pv_flags Perl_form Perl_get_sv Perl_vstringify Perl_croak Perl_Iop_ptr Perl_sv_newmortal Perl_sv_isobject Perl_warn_nocontext Perl_Isv_undef_ptr Perl_Icurpad_ptr Perl_sv_setiv Perl_sv_2iv_flags Perl_mg_set Perl_croak_xs_usage Perl_sv_setpv Perl_croak_nocontext Perl_sv_2nv Perl_sv_setref_pv Perl_newSVpvf_nocontext Perl_sv_2mortal libc.so.6 _edata __bss_start _end GLIBC_2.3.4 GLIBC_2.4 GLIBC_2.2.5 ti ii
ui ( c S g W ? R ȕ C Е V ؕ F T U h H M N f Q A ( J 0 _ P X O ` h @ p x a D
Ȗ Ж ؖ ] > L ( 0 8 @ H P X ^ ` h p x ` ! " # k $ [ % & ' ȗ ( З e ؗ ) * + I X , P - . G ( / 0 0 8 1 @ 2 H 3 P 4 X 5 ` d h 6 p 7 x B 8 9 : ; Y < K = H ^ H5v %v @ %v h %v h %v h %v h %v h %v h %v h %v h p%v h `%v h P%v h
@%v h 0%v h %v h
%zv h %rv h %jv h %bv h %Zv h %Rv h %Jv h %Bv h %:v h %2v h p%*v h `%"v h P%v h @%v h 0%
v h %v h %u h %u h %u h %u h! %u h" %u h# %u h$ %u h% %u h& %u h' p%u h( `%u h) P%u h* @%u h+ 0%u h, %u h- %zu h. %ru h/ %ju h0 %bu h1 %Zu h2 %Ru h3 %Ju h4 %Bu h5 %:u h6 %2u h7 p%*u h8 `%"u h9 P%u h: @%u h; 0%
u h< %u h= %t h> %t h? %t h@ %t hA %t hB %t hC %t hD %t hE %t hF %t hG p%t hH `%t hI P%t hJ @%t hK 0%t hL %t hM HHEq HtHÐU=Xt HATSubH=Hq t H=wo H [o L%Lo H-t L)HHH9s D HH
t AHt H9rs [A\f H=o UHtHp HtH=n @ Ðffff. f. f. HGff. HGff. Gfff. G fff. G fff. USHHhdH%( HD$X1H Ht$( H H|$(Hs(Hl$0HSPH HCHcs8 LCXH{0HD H,$D$HCHD$HCHD$1S8HHC@HcH9w"HC0HCHHD$XdH3%( uHh[] HS@HfH\$Hl$HLl$Ld$HLt$H(H9O(AtHDc@Ds8EE9 EE9}E H{0IcsH HH{@HC0Ds8H{HAHIcHs0{ 1Ic7x1H $Hl$Ld$Ll$Lt$ H(fH{Hf. 8$HC`HV HC`8HC` SHw u5HV HGPHV HGX1XHH1[f uHV HGPHV HGX HV HG`[fffff. SHw1HH[ff D SH 1HH[BfH\$Hl$HHHHHl$H\$Hfffff. H\$Hl$HHHHl$H\$Hfffff. USHH t8HC`H{H{H{0HH[]ffff. H\$Hl$HHHHHHHCt*1HH 1H\$Hl$H H0U HC`f D H\$Hl$HHHHSHHHCt*1;HH1H\$Hl$H HT HC`f D h f D H\$Hl$HLd$Lt$Ll$H dH%( H$ 1IAHD$H x
-X fR 1 Ll$PLk fD$P An I}1Ҿ C Ǻ 1{ DLu]H|$H1Ht1H$ dH3%( H$ H$ L$ L$ L$ H _ 8HŃ[u01Ҿ @iDC Ld} f D H|$HHC`H M HGS HC`1 Ll$PLS E L1HT$1 LHH1HL$HLD$ D$ Ld$HM At$A|$1C tMl$Ed$Of Md$(MuH|$HHR HS`H D$TD$Q C873(8HC`HR HS`9f H\$Hl$HLd$Ll$Lt$L|$HHHD$PHIAEEH$HD$XHD$ G UC8 C HHC0 HHC HC 1AH4$HE Ht$HD31@HHDLHHl$ H\$Ld$(Ll$0Lt$8L|$@HH8gHC` H\$Hl$ Ld$(Ll$0Lt$8L|$@HHÐAW1AVAUATUSH8;8H1L("8H#H1D"HH8Al$HcHH 1L08_HH H@
188HH HLxMcKI)IA 1E1s8HDH HlH 1L8H5O 1Ht1I*8LH1I8HO HH5 18oLHHQ3 18KHe H
mO H5mO Hn18 He LeO H
;O H5`O E1H)1b8He L7O H
O H5BO E1H1-8H-e L6O H
N H5-O E1HHH 1@8 8tLN H
N H5
O E1HHH 1@8 89H-d LN H
TN H5R E1HH?H 1@8 n8LGN H
N H5Q HE1HH 1@8 38H-md LN H
M H5Q E1HHH 1@8 8zLM H
M H5Q E1HHH 1@8 8?Hd LM H
ZM H5Q E1HH18
Hc LUM H
%M H5Q E1H1L8H-c L M H
L H5|M E1HHH 1@8
8LL H
L H5^M HE1HH 1@8 8XH-Qc LL H
sL H5:M E1HH^H 1@8 8LhL H
8L H5M E1HH#H 1@8 R8H-\b L&L H
K H5L E1HHH 1@8 8LK H
K H5L E1HHH 1@8 8^H-?b LK H
yK H5L E1HHdH 1@8 8 LnK H
>K H5L E1HH)H 1@8 X8HZa L-K H
J H5}O E1H1#8Hea LJ H
J H5hO E1H18wH` LJ H
J H5SO E1H18BH3a LJ H
]J H5K E1HK18
Hv` LYJ H
(J H5K E1H1O8H!` L$J H
I H5K E1H18H|` LI H
I H5K E1H18nH_ LI H
I H5jK E1Hw189H1H8 tL18 H1L {8H\1(c8LH1HE8H1H(,8H1HE 8H1H8HHH] H8[]A\A]A^A_ @ 18RHH 1L<85L" 1H#I 18
H
G H5H LH1o1HU81HH!HHtM@ <t:f t@L-G 18HHH HEf@ u1L-pG 8gH
]G H5^G LH11H8;H1H~H:18HH}MHtzHG H QG M1HT$(HL$ S8LHA1H78HL$ HT$(H5oJ HMI1Ll$HL$H$HLL5E L-F LL D AV1AUATUHS8WH_1L 8>HH1HH8 HdHcHHI)IA 1b8HH @# 1?8HPI1#8HcH, HH 1L,8LHt+18gHH HH@x H=[J 1HY18+Hs1H8H:H1p8H1HW8H(H(H+[]A\A]A^f 1)8Hj1H(8HaH H@Ld 18rHH HH@@
ty18KHH HH@H Hxl1A8Hc1L(y8IcHL$AD$@u\Md f1I8HH 1HLh(8 HLaHhf 18LHg18gHE HHE D AV1AUATUHS87H?1L 8 HH1HHs8HDHcHHI)IA 1B8HH @# 1 8H0I18HcH, HH 1L,8dLHt+18GHH HH@x H=G 1H918 HS1Hi8HH1P8H1H78HH(H+[]A\A]A^f 1 8HJ1H(8yHAH H@Ld 18RHH HH@@
ty18+HsH HH@H Hx1Ar8HC1L(Y8IcHLAD$@u\Md f1)8HH 1HLh8 HLAHhf 18bLHG18GHuB HH% D AV1AUATUHS8H 1L u8HvH1HHS8H$HcHHI)IA 1"8HsH @# 18HI18HcH, aHH 1L,8DLHyt+18'HoH HH@x H=D 1H1b8H31HI8HH108H1H8HH(H+[]A\A]A^f 18rH*1H(8YH!H H@Ld 182HzH HH@@
ty18 HSH HH@H Hx1AR8H#1L(98IcHLAD$@u\Md f1 8HH 1HLh8q HL!Hhf 18BLH'18'HU? HH D AU1ATUHSHl8H1L S8HTH1HH18HHcHHI)IA 1 8HQH @# 18fHI18HcH, ?HH 1L,8"LHWt+1|8HMH HH@x H=A 1H1@8H1H'8HH18H1H8~HH(H+H[]A\A] D 18RH
1H(89HH H@Ld 18HZH HH@@
ty1b8H3H HH@H Hx 1I28LLH18HAD$@L(u\Md f18rHH 1HLh8Q HLHhf 18"LH1~8H5< HH D AU1ATUHSHL8H1L 38H4H1HH8HHcHHI)IA 18iH1H @# 18FHI18HcH, HgH 1L,y8LH7t+1\8H-H HH@x H=> 1H1 8H1H8HH18wH1H8^HH(H+H[]A\A] D 182H1H(8HH H@Ld 1i8H:H HH@@
ty1B8HH HH@H Hx1I8LLH18HAD$@L(u\Md f18RHH 1HLh81 HLHhf 1y8LH1^8H9 HH D AV1AUATUHS.8H1L 8HH1HH8|HHcHHI)IA 18KHH @# 18(HI18HcH, HIH 1L,[8LHt+1>8HH HH@x H=#< 1H18H1H8rHH18YHa1H8@HH(H+[]A\A]A^f 18H1H(p8HH H@Ld 1I8HH HH@@
ty1"8HH HH@H Hx1A8{H1L(8bIcHLAD$@u\Md f182HzH 1HLh8 HLHhf 1Y8LH1>8H5 HH D AV1AUATUHS8H1L 8~HH1HH8\HHcHHI)IA 18+HH @# 18HI1c8HcH, H)H 1L,;8LHt+1 8HH HH@x H=S9 1H18kH1H8RHzH189HA1H8 HhH(H+[]A\A]A^f 1i8H1H(P8HH H@Ld 1)8HH HH@@
ty18HH HH@H Hx1A8[H1L(8BIcHLdAD$@u\Md f18HZH 1HLhh8 HLHhf 198LH1 8H2 HH D AV1AUATUHS8wH1L 8^HH1HH88ǼHH 1HL` 8覼 HLVHljl18~H膻1Hܾ8eH譽HHHU f 1詾82HzH HH@H Hx18H HHf D AV1AUATUHSN8Hߺ1L 58辻H6H1HH8蜻HHcHHI)IA 1߽8HcHkaH詼H H@
1豽8:H肼H 1H,蔽8 H Hͼ1Lcp8HAH J@
@ 1I8ҺHH JH D`1L, 8覺HH 1L4 8艺LH辻t+18lH贻H HH@x H=x! 1L^1觼80Hx1H莼8H?1Hu8H1H\8H-L(L+[]A\A]A^f D 118躹HH HH h1 8蒹HںH 1N$8uL H%A D 18JH蒺H HH@@
1薻8 HgH 1HLhu8 HL论HD!1J8ӸH۷1H18躸HHHHU f D 18芸HҹH HH@H Hx18`H4 HH>fffff. AW1AVAUATUHSH蘺8!H)1L 8H耶H1HH]8H.HcHHI)IA 1)8HcHk諷HH H@
18脷H̸H 1H,8gH H1Lc躹8CH苸H J@
J 1蓹8 HdH JH D`1L, g8H8H 1L4J8ӶLHt+1-8趶HH HH@x H= 1L訵18zH·1Hظ8aH艸1H迸8HHP1H覸8/HwL(L+H[]A\A]A^A_f1y8HJH HH h 1I8ҵHH 1N$,8赵L HeA D 18芵HҶH HH@@
1ַ8_H觶H HH@H Lh1Ls誷83H{H 1N<荷8H>1I9tH1p8HAH J@
1I8ҴHH JHPDLR 18蜴H褳1H8胴H˵HHHU H[]A\A]A^A_ D 18JH蒵H 1HLh蠶8)L HٵI1y8HJH 1N4\81ҹ LHӶH 148轳H HH蛵Iu`H= 1f AW1AVAUATUHSH8qHy1L0ϵ8XHбH1HH譵86H~HcHHI)IAF 1v8HcHDH 1LlU8H覱H @# 128軲HCI1H, 8蚲HH 1L<8}LH貳t+1״8`H訳H HH@x H= 1HR1蛴8$Hl1H肴8 H3H1i8H1HP8ٱH!H(H+H[]A\A]A^A_ @ 1!8誱Hb1H(8葱HYH H@Ld 1ٳ8bH課H HH@@
1讳87HH HH@H LxA 1IAE
~ IE HPHT$IuLL貳A 1@8ɰH1L('8谰IcLHҮAD$@ Md @ 18zH±H 1HLxв8YL H I$1Ls襲8.HvH J@
t11育8 HSH JH L, 1Q8گH"H 1N448软LHRL, 1 8蒯LHwf18rHT$L H]HT$Hc1蹱8BHi HH Iw`H=q 1~fffff. AT1UHSr8H1L Y8HZH1HH78HHcHHI)IA 18HcH, 聮HɯH 1L$۰8dLH虯t+1辰8GH華H HH@x H=; 1H91肰8 HS1Hi8H1HP8٭H1H78HH(H+[]A\ D 18蚭HH HH@@
} 18oH跮H HH@H HhHͭ 1讯87H?1H蕯8 HfHHHU []A\f1i8H:H 1HHhH8ѬH H聮Hd1"8諬H HH艮Hu`H=
1 AW1AVAUATUHSH8خ8aHi1L 迮8HHH1HH蝮8&HnHcHHI)IA 1i8HcHkH3H H@
Z 1;8īH H 1H, 8觫 HHWD$,1Hk8聫HɬH H@
1ѭ8ZH袬H HH @D$(1Hk覭8/HwH H@
^ 18HPH HH @D$$1HkT8ݪH%H H@
1-8趪HH HH Dx1L$ 8芪HҫH 1H,8mH蕬H9t=1ɬ8RH蚫H H@
1袬8+Hs1HkE1腬8HVH 1L4h8HI9tH1M8֩H H H@
1&8诩HH HLh1HkE18臩HϪH 1HHD$ܫ8eH荫H9D$tH1迫8HH萪H H@
1蘫8!HiH HLp1Hks8HDH 1HHD$Q8ڨH1H9D$tH128軨HH H@
z 1 8蔨HܩH HHP1HT$5HHHT$ DD$$L$(Et$,HT$HLL4$ 1M螪8'Ho1L(腪8H薨1IE k8H%s %s %s[%d]: %Y-%m-%dT%H:%M:%S%z <%d>1 %s %s %s %d - - invalid format constant strdup failure in set_name strdup failure in set_sender %d getaddrinfo failure bad protocol socket failure XS_VERSION %s::%s 0.58 version :: bootstrap parameter Fast.c Log::Syslog::Fast::constant $$$$$$$$ Log::Syslog::Fast::new Log::Syslog::Fast::DESTROY $$;$ Log::Syslog::Fast::send Log::Syslog::Fast::emit Log::Syslog::Fast::setSender Log::Syslog::Fast::set_sender Log::Syslog::Fast::set_name Log::Syslog::Fast::setName Log::Syslog::Fast::set_pid Log::Syslog::Fast::setPid Log::Syslog::Fast::setFormat Log::Syslog::Fast::set_format Log::Syslog::Fast::get_sender Log::Syslog::Fast::get_name Log::Syslog::Fast::get_pid Log::Syslog::Fast::get_format Log::Syslog::Fast::_get_sock logger logger, format Error in set_format: %s logger, pid logger, name Error in set_name: %s logger, sender Error in set_sender: %s logger, severity logger, facility logger, facility, severity logger, proto, hostname, port Error in set_receiver: %s logger, logmsg, now = time(0) Error while sending: %s Error in close: %s Error in ->new: malloc failed Error in ->new: %s Log::Syslog::Fast sv %s object version %-p does not match %s%s%s%s %-p Log::Syslog::Fast::set_receiver Log::Syslog::Fast::setReceiver Log::Syslog::Fast::set_priority Log::Syslog::Fast::setPriority Log::Syslog::Fast::set_facility Log::Syslog::Fast::set_severity Log::Syslog::Fast::get_priority Log::Syslog::Fast::get_facility Log::Syslog::Fast::get_severity Log::Syslog::Fast::_get_sock() -- logger is not a blessed SV reference Log::Syslog::Fast::get_format() -- logger is not a blessed SV reference Log::Syslog::Fast::get_pid() -- logger is not a blessed SV reference Log::Syslog::Fast::get_name() -- logger is not a blessed SV reference Log::Syslog::Fast::get_sender() -- logger is not a blessed SV reference Log::Syslog::Fast::get_severity() -- logger is not a blessed SV reference Log::Syslog::Fast::get_facility() -- logger is not a blessed SV reference Log::Syslog::Fast::get_priority() -- logger is not a blessed SV reference Log::Syslog::Fast::set_format() -- logger is not a blessed SV reference Log::Syslog::Fast::set_pid() -- logger is not a blessed SV reference Log::Syslog::Fast::set_name() -- logger is not a blessed SV reference Log::Syslog::Fast::set_sender() -- logger is not a blessed SV reference Log::Syslog::Fast::set_severity() -- logger is not a blessed SV reference Log::Syslog::Fast::set_facility() -- logger is not a blessed SV reference Log::Syslog::Fast::set_priority() -- logger is not a blessed SV reference Log::Syslog::Fast::set_receiver() -- logger is not a blessed SV reference Log::Syslog::Fast::send() -- logger is not a blessed SV reference Log::Syslog::Fast::DESTROY() -- logger is not a blessed SV reference class, proto, hostname, port, facility, severity, sender, name %s is not a valid Log::Syslog::Fast macro ;\ * x 0 @ P ` p 8 ph 0 P О0 0X x P X @X ` X 8 @ H @ zR x 4 L d x | p h ` X , P AAG
AAD $ MV0
C 4 r Cs
J q T X AT t X DU X2 MD \ x2 MD \ $ S AAG ECA Лj MD
H j MD
H < p
$ T h MX
D , | 08 MZP
E z L @k
BDB B(A0A8Dpa
8A0A(B BBBE < ` BDB A(D0
(A BBBJ < < @ BDB A(D0
(A BBBJ < | BDB A(D0
(A BBBJ < BDA D(D0
(A ABBF < BDA D(D0
(A ABBF < < BDB A(D0
(A BBBJ < | BDB A(D0
(A BBBJ < BDB A(D0
(A BBBJ L `: BDA D(D0
(A ABBJ
(A ABBC < L P BDA D(D0
(A ABBJ L 0g BDA D(D0Y
(A ABBB +
(A ABBG L Pg BDA D(D0Y
(A ABBB +
(A ABBG < , p BDA D(D0
(A ABBJ < l P BDA D(D0
(A ABBJ < 0 BDB A(D0
(A BBBG d BDB B(A0D8D@
8A0A(B BBBC
8A0A(B BBBF L T r BDB B(A0D8DP
8A0A(B BBBE < BCD V
ABF
ABC L hm BDB B(A0D8Dp
8A0A(B BBBG 4 4 BCD D0@
AABG 8
8~ o X
8
4 8 P @ o h o o o f v & 6 F V f v ! ! &! 6! F! V! f! v! ! ! ! ! ! ! ! ! " " &" 6" F" V" f" v" " " " " " " " " # # &# 6# F# V# f# v# # # # # # # # # $ $ &$ 6$ GCC: (GNU) 4.4.5 20110214 (Red Hat 4.4.5-6) , % 8 , P. O x LSF_get_priority LSF_get_facility 6 LSF_get_severity i LSF_get_sender LSF_get_name LSF_get_pid LSF_get_sock 5 LSF_get_format LSF_send LSF_set_format LSF_set_pid LSF_set_priority g LSF_set_severity LSF_set_facility LSF_destroy %
LSF_set_name g
LSF_set_sender
LSF_alloc
LSF_set_receiver LSF_init c O boot_Log__Syslog__Fast JP XS_Log__Syslog__Fast__get_sock 4Q XS_Log__Syslog__Fast_get_format R XS_Log__Syslog__Fast_get_pid R XS_Log__Syslog__Fast_get_name S XS_Log__Syslog__Fast_get_sender T XS_Log__Syslog__Fast_get_severity U XS_Log__Syslog__Fast_get_facility V XS_Log__Syslog__Fast_get_priority pW XS_Log__Syslog__Fast_set_format xX XS_Log__Syslog__Fast_set_pid qY XS_Log__Syslog__Fast_set_name uZ XS_Log__Syslog__Fast_set_sender y[ XS_Log__Syslog__Fast_set_severity c\ XS_Log__Syslog__Fast_set_facility M] XS_Log__Syslog__Fast_set_priority V^ XS_Log__Syslog__Fast_set_receiver z_ XS_Log__Syslog__Fast_send ` XS_Log__Syslog__Fast_DESTROY |a XS_Log__Syslog__Fast_new b XS_Log__Syslog__Fast_constant E | 0 % H. C 8 int i i x i M z L h w b Q
pid b F b b ( O 0 b 8 - k A
err $ ! z 8 #
) ) o
l F ! ! 1 8
' 0
:
;b
<b
=b }
>b
?
@
A N
B ( 1 O $ b @ (o 08 8 "
$ &b & *b , ,p 0F V 1T 2 6 0 ?{ > H E I L J S K u L- Nb P P b V 8 O 8 5 n ` Z ! 8 k c >b + __s > __n >- >
1 ` 1 1 * 1- M M Mb * M- 0 v v v * v- { b % % U w 8 b % &% 6 U b 0% 6% i U I @% E% U P% U% U l b `% d% U b p% t% 5 U b % % h U % n& t I ^ % 8 ! jb p& ' j j @ jb !t j 5 " pb X #ret b $0 " tb " }
% b ' ( C F b & ( *( pid b &M \0( N( g \ A @ \b \b & iP( ( i ib & c( ( c b @ cb %2 Ob ( #) %
O 'ret Qb * % |b 0) ) g
| s | % ob )
*
o Q o N (e + * * % b * - b Ҷ O k! b ) ) b w 8 ~* l 'ret b +* * , @ ~ $ 'rp
- 1 ~ X ~'r b A
+ w
%f 1b - H. 2 X 2b 2 k! 2b l @ 3b 3b
-Q 3 - 3 .
..
.
..
c E 0 P. } int " B j ; 7' ; }+ B ( B a ; B ^ ^ W ^ x ^ > ^ ^ ^ 9' B{ l Qp n < z L C B W { S { B
B ) f y ' z
+ {^ z 6. ^
B +
$" r
)
*W %
+ 2
B
d" W
0 ^ _ : ` a ! bW cW a dW & e ( [
$ __x J% __c 4 " 4 __a 4
B /. "; #W < $ & % @g A Bp G 7, HW e) IW ,. J; O P Qp ,. R; W X Yp ! ZW ' [ r \ a b g< m$ h^ ' iW p ; &, < 6
CF z Kg _rt S I
] ]' c j W
B !% 4 # 5W # 6W 8W " k< * l W
4; '
B
. / R% 0e 5 = > @p
A{ r# CW $0% Ee ( J 0.
N 89( P
[ - \
] j ^
B tm 8 W W " W K# W W W W W W ( ^ (Y 0 tms $ C( %: 8% &: <
(: ):
' r+ W fV
g ?' h ' iW T jW
k
j( i! W
I ! J
( K LW )% f. 4 ! !- ; " '
B 'q f. ( ) *4 ! +- ; , DIR | V IV ^ UV B NV \ " = P OP D op ( | E !<) !<) Y% != !; !; L !; o !; m !; S !; . !; !<& " !<& # COP E cop X
E <) <) Y% = ; ; L ; o ; m ; S ; . ; <& " <& # g& $ (+) 0$ 8 \& \& C C J
X; E <<) <<) Y% <= <; <; L <; o <; m <; S <; . <; <<& " <<& #% =<) (7 ><) 0G @ 8$ D\& i L= T<= ( N
, P E <) <) Y% = ; ; L ; o ; m ; S ; . ; <& " <& #% <) (7 <) 0C <) 8# <)
<) : ; ?* @\& \! CW - FQ& GQ& 1 H& I& , L: I. O $ R: , S<) T<) U<) ' V<) >) YE [W k \W ] ^M
_
d:
e&
: f&
hQ&
i
j
kF&
W- lW
* oQ&
pM
& *
3
|
: . : 4 : Q& Q& : & W ! ' % \ $ $ Ian \& \& ( \& \& T( ( o M J \& L! W $ qL . , & ~ Q& + Q& ` Q& Q& Q& l- Q& - \& J M ^ G P S# P \&
2& c - & & & * & % & z& & * & & & "+ & & % & & p & " & & & ) & !& & s * +! .- * M g
<& I' W X
N a+ ` I5 j I5 ,N 6+ -: / ( 4& 9I5 V ;: BN H) E* % F* I; J N 9 K N ' N& , PL R& 8 S& t( U7M W: M X: Y
Z^ $ \W F" ^\& , `\& bW d* gL B hL S oL qL s V
u w* q W "N L T* \& * SV Y sv p1 M q ) q\& j
q\& $ r4 AV Z < av x M o6 ) \& j
\& $ 6 HV [ hv M 6 ) \& j
\& $ u6 CV \ cv M 6 ) \& j
\& $ 5 ] E> G* l H*
K\& LQ& # MQ& N\& O* Q\& (/ T\& , U 0$ Y\& 8# Z\& <j [* \* ^ aQ& eQ& h f * h iQ& N jQ& # k*
nQ& GP ^ I gp P &
; - : \&
\& * , : () : 0 B) 8e g& * 8 GV _ gv }" M ~5 ) ~\& j
~\& $ a5 io ^ M '7 ) \& j
\& $ 6 m& a j
{ p{
F
| p F& D <& ! <& & Q&
E K Q& % Q& $
3 E
d ( 3 H F& % <& ! !Q& + "& # XPV e xpv + 7 &
L T f
: ! + 8 &
L K8 h !
^! + 8 &
L &9 A k j! + 0 ! + G / w / !G W %;H &* ( q l ! A 0 S " + `B & a b i1C W mqC n* ( m ,"
0A" + N9 &
O L P W9 W [A: \* ( n " # p
\# + ,< &
L #a< W '< (* ( ** 0* .< 8 2< } 3B) 4 5< 6 6: % 7\& - :c: 2 q h#
$ + : &
L !; W g; * ( ; 0 ; 8 ; <" { Y, ! ( B) . B) } B) > <& r $ @
% ) tH 1 tH H tH tH * H (( H 0! tH 8 ANY s % "any {% # #% Q& #
#b
^ #%
#+
& #T
&
Y) y
% Q z
^L ' {
- |
u %
w
% *
dL B%
\.
E& v %
G2& H: % I y# J& I8 I U8 - U16 4 I32 W U32 ; & \& & s& & & &
D( $ W @ (o 08 8 "|(
$( &W & *W , , 04 V 1I 2( 6( 0 ? > H E I L J S K u LP NW P( $ |( P |( ( W K( & (
B D( (
B . !c( - - !e( ( !z( s "7 #<) + #Q& q! # p! #<) $ #B) ! # $ #Q& #( = ) % <& ! <& x F& = S) v $) u$ %Q& &Q& '& (& )Q& m `+) , ,) ) *
B 5&* o 6Q& !end 7Q& 8* `}* k ~k+ + + + ( , , $ E, (g' f, 0! , 8 ! , a ,
, ( - * 1* ) &* x o [ u%+ +' v w%+ Q& x + %P+ P+ & V+ f+ [+ a+ \& 6+ %Q& + & + Q& & \& P+ q+ % + & + & f+ + ++ + %& , & + + , & + , ;, & + ;, @, Q& & , f, & + ;, V+ K, %Q& , & + V+ ;, l, %& , & + @, @, f+ , %& , & + V+ f+ , % , & + , % ,
.- .- ! F& <& - * $ Q& &i- ,# -
( P- W % u Y1 i- &- ,# - $ \& cp F- &. ,# - $ \& cp F- . ) &8. ,# - $ \& cp F- . . \& . B . (me . 0 4- F& &8 / ,# -
- , - @- \& cp F- $ F- ("
\& ,B . 0 &H/ ,# - L+ Q& .+ Q& me . & / ,# - - & &!/ val "W &@'10 ,# )- , *- A +. B +. cp ,F- - $+ .W (min /W ,max 0W 0E 3W 4h 4 8 &(70 ,# 9- :- cp ;F- <F- c = v! >Q&
?Q& $ &8B1 ,# D- c1 EQ& c2 EQ& cp FF- GQ& E HQ& I A J. B J. (me K. 0 &@N1 " O\& cp PF- c1 QQ& c2 QQ& p R S E TW min UW $max UW (A V. 0B V. 8 '@E2 (yes R- #
- # - #+ . # . #6& / #" H/ # #/ # 5/ # @10 #v L0 #
W1 ( Zi- , c2 d2 4 e2 Q e2 E2 2
B 1 Q2 , fQ2
3 R& \& \& Q& G >, * ($ 3 0# 3 8p 3 3 3
)- 3 Q& Q& c Q& ` \& + ' \&
).r4 * *% *Q *# *>& *% *- * * *W *d
*5 * *
*b * *" b# A4 HE Y4 he 4 ! U5 8 B HEK Z4 hek 4 \& U' Q& ;# ( rI5 r & r c
r& k
r E rI5 rO5 ' r[5 & U5 }4 > 5 & c
& k
E I5 O5 ' [5 " 6 & c
& k
E I5 O5 ' [5 " o6 & c
& k
E I5 O5 ' [5 ^! 6 & c
& k
E I5 O5 ' [5 ! '7 & c
& k
E I5 O5 ' [5 \# &Q7 \& + \& &7 \& K <& <& '7 # # * # -7 #+ Q7 &7 \& + \& &8 \& K <& <& 'K8 # # * # 7 #+ 7 '8 #D+ #{
#.* # Q& # 8 4 &8 \& + \& &8 \& K <& <& '&9 # # * # 8 #+ 8 'l9 #D+ #{
#.* # Q& # 8 &E9 F\& + G\& &I9 J\& K K<& L<& 'B9 # C # D* # Hl9 #+ M9 'QA: #D+ R #{
S #.* T # UQ& # V8 'Xc: #+ Y3 #, Z* 8 bF& : & : o: 1 &: \& + \& &: \& K <& <& '!; # # * # : #+ : 'g; #D+ #{
#.* # Q& # 8 '; #+ 3 #, * '; #! ; #2 q ( " L $1 PAD $1 4 $ B ; \& + \& ,< \& K <& <& a< * ; + ; < D+ {
.* !Q& "8 $< + %3 , &* +< ,<) +, -
% /< > 0<) 1: ; %<) = & = 'E<= # F<) #, H; 'M^= # N<) #. P M 0%3= K %4
%5 u %6p 7) %7{ . %8 > %9 + %: ( % &-= " &. J &/ + &0{ z &1 +( '/> 1 '0> !sb0 '1> !sb1 '2> !sb2 '3> !sb3 '4> '6 G '7> {' '8^ v '9W '9W >
B > ,B >
B - H()@? O (* (+ (,^ (-^ (.^ # (/^ (i# (1^ 0 (3^ 8 (5B -H)rGB )t V )uP ){GB ) p )P 9
) ( ) )= ) & )P )MB )
# ) , )P )SB & )W Y ) )P ) O" )
)P
)YB A )W ) $ ) )P { )_B )^= " ) )P ? )eB )V * ) )P )kB )>
) 7 )P ] )qB . ) '( ) V )C )[ & )wB !" )P )wB ' )}B )P ( )}B " ) C _ ) )P ) ( )P a )W = =
^= V > ' )@? B & T P WB X\& + Y\& [B \\& K ]<& ^<& T1C U V* ZB + _B cqC D+ d {
e .* f gQ& h8 jC + k3 , l* ( C 1 C - !2 "W # C M( &C C
- @D cv : gv B) ! B) } : * : @. Q& ( <& , !<& -- "D 0% #<) 8 ;
8D g <& F& & # <) 8 & cv : % <) ( D 0 C
, PE e& Q& f E x. - D & ( & 0 : 8k+
S+ E <) 'PE #$ C #x D #H E #$ E |
XBF } CF&
! D<& N E<& FQ& GQ& HQ& IQ& J
K& @ L& ( M 0
N 8 O
) P QP+ 'p|F #. } # ~E
V 0`G " : ^" `G fG fG 9 Q& Q& $.& Q& (( Q& , ^ F F G \& + \& G \& K <& <& G
* xG + G ;H D+ {
.* Q& 8 "ZH + #3 , $* %W tH & & 3 ZH %\& H & & 3 zH %W H & & 3 & W H %W H & 3 , H $ f
H
7 g
JI h
<& i
F& j
<) k
l
*I !val *H) *P *Q& . *: g* *JI P*'L * 'L u * H) * W *!W *#W ! *$W % *%-L !ps *&-L (r, **Q& 0+ *+Q& 4# *, 8 *- *.<&
*/ *0<& *1<& ! *2Q& s *3<) *4<) %* *5& *6F& U *7F& *8Q& ! *9& 2 *:Q& *;Q& " *< *=
*> v* *? 8 *AH *B& *C L *D I *E *F " *G e *H H$ *I *Jg& 8 *KF& *L<& ? *M<& & *N* ^ *O; k *P: B *d3L a( *eCL Z *fQ& *iE < *j I I H) CL
B Q& SL
B *lI {% ^L & H}L L %W L &
IL L L & & o% J}L " LL L % L & &
H]M pad ^M M
B g M &M 7M & <) c% wCM IM %Q& cM & & &
b M fn & ptr
cM
% .E lG M
B 2 E2 .<& M M M
B .\& <&
N
B SL % B ( h+ N + W Q +
+ !pid +W F +W +W +E (O + 0 +W 8 +P k + A + + !err + $ +!(N /- ,W O 0x ,& 0 , 1len , 2p .P. 8 EP 3x .& Z
4cv .: }
5 1W 6sp 1I5
6ax 1Q&
7" 1I5 H 8`. 1Q& 9( 8
` : P 6_sv =& 6vn = 7$ = ; 7 =& V R 3x & 4cv :
5 W 6sp I5 i 6ax Q& 7" I5 8`. Q& :0 Q 7 .Q 7* W 7 @, d =I= ~= 7Y EP 2i" ? B R 3x & 4cv : 5 W 6sp I5 = 6ax Q& 7" I5 z 8`. Q& :p R 7 .Q 7* W 7 @, 8 =i@ @ 7Y EP n 26* B ;E S 3x & 4cv : 5 W 6sp I5 6ax Q& 7" I5 4 8`. Q& : S 7 .Q 7* 7 @, =C C 7Y EP 2) @E [H T 3x & 9 4cv : \ 5 W 6sp I5 6ax Q& > 7" I5 8`. Q& : T 7 .Q - 7* P 7 @, =F F 7Y EP 2s x`H {K U 3x x& 4cv x: 5 {W 6sp {I5 _ 6ax {Q& 7" {I5 ! 8`. {Q& :0 U 7 .Q ! 7* W " 7 @, Z" =I I 7Y EP " 2) ZK N V 3x Z& " 4cv Z: " 5 ]W 6sp ]I5 3# 6ax ]Q& # 7" ]I5 p$ 8`. ]Q& :p iV 7 d.Q $ 7* eW $ 7 f@, .% =L M 7Y sEP d% 2s
<N Q pW 3x <& % 4cv <: % 5 ?W 6sp ?I5 & 6ax ?Q& & 7" ?I5 D' 8`. ?Q& : MW 7 F.Q ' 7* GW ' 7 H@, ( = P >P 7Y UEP 8( 29 Q T xX 3x & \( 4cv : ( 5 W 6sp I5 ( 6ax Q& ( 7" I5 ) 8`. Q& 6ix $Q& ) : UX 7 (.Q =* 7F )W s* >ret W * ;P 7Y /EP + =5T sT 7Y 7EP )+ 2 U X qY 3x & M+ 4cv : p+ 5 W 6sp I5 + 6ax Q& + 7" I5 x, 8`. Q& 6ix Q& , : NY 7 .Q - 6pid W +- ; 7Y EP t- =W W 7Y EP - 2 X [ uZ 3x & - 4cv : - 5 W 6sp I5 (. 6ax Q& _. 7" I5
/ 8`. Q& 6ix Q& _/ : RZ 8 .Q 7 / >ret tW / ;` 7Y EP / =yZ Z 7Y EP 0 2G [ ^ y[ 3x & >0 4cv : a0 5 W 6sp I5 0 6ax Q& 0 7" I5 1 8`. Q& 6ix Q& 1 : V[ 8 .Q 7Q 2 >ret iW B2 ; 7Y EP x2 =] '^ 7Y EP 2 2) _ b c\ 3x & 2 4cv : 2 5 W 6sp I5 ,3 6ax Q& c3 7" I5 3 8`. Q& : @\ 7 .Q ^4 7 W 4 ;p 7Y EP 4 =a a 7Y EP 4 2p) b :e M] 3x & 5 4cv : 55 5 W 6sp I5 ~5 6ax Q& 5 7" I5 =6 8`. Q& : *] 7 .Q 6 7@ W 6 ; 7Y EP 6 =d d 7Y EP 7 2 b@e h V^ 3x b& C7 4cv b: f7 5 eW 6sp eI5 7 6ax eQ& 7 7" eI5 n8 8`. eQ& 6ix iQ& 8 : 3^ 7 m.Q 8 7@ nW !9 7 oW j9 ;p 7Y uEP 9 =Oh h 7Y {EP 9 2C <h m z_ 3x <& 9 4cv <: : 5 ?W 6sp ?I5 T: 6ax ?Q& : 7" ?I5 9; 8`. ?Q& 6ix CQ& ; : W_ 8 G.Q 7 HW ; 7 I F< 7k! JW i< >ret FW < ; 7Y PEP < =l l 7Y ]EP = 2 m r ` 3x & C= 4cv : f= 5 W 6sp I5 = 6ax Q& b> 7" I5 > 7`. Q& .? 6ix Q& ? :0 ` 8 .Q 7_ & ? 6now E R@ 7* W @ 7 @, @ ? 3 @A ? 4 A =0o eo 7Y 7EP A @ . r t |a Ax & B Bcv : #B C W >sp I5 lB >ax Q& B ?" I5 QC D`. Q& : Ya ? .Q C ; 7Y EP C =s )t 7Y EP C @ t | b Ax & !D Bcv : DD C W >sp I5 D >ax Q& D ?" I5 LE D`. Q& : b D ? W E ? E ?k! W BF ?@ W |F ? W F ?Q G ? JG ?* .Q mG =ny y ?Y EP G @- N | } tc Ax N& G Bcv N: H C QW >sp QI5 lH >ax QQ& I ?" QI5 I D`. QQ& ;P D @, >len I ?!
W I >sv f& J >s g J C -( C. -( C -( C. -( 5 1W % : ; I $ > $ > I & I : ;
: ; I8
: ; I8
I ! I/
: ; (
: ; : ;
: ;I8
: ; & .? : ; ' I 4 : ; I : ; I .? : ;' I@
: ;I
.: ; ' @
: ; I : ; I 4 : ; I
1RUX Y 1 : ;I ! : ;I "4 : ;I #4 : ;I $ U %.? : ; ' I@
&.? : ; ' @
'4 : ; I (. ? : ; I@
)4 : ; I * U + ,4 : ;I
- : ; I
.4 : ; I? < % $ > $ > : ; I I : ;
: ; I8
I
! I/ : ; & I
: ;
: ;I8
: ;I8
& : ;
: ; I : ;
: ; I ' I : ; : ; : ; I < : ;I : ;I : ;
: ;I
8
: ; I
8
: ; !
: ; I8
" : ; #
: ;I $ : ; %' I & : ; ' : ; (
: ;I ) : ; *(
+ : ; ,! I/ - : ; .5 I /.: ; ' I 0 : ; I 1 : ; I 2.? : ;' @
3 : ;I 4 : ;I 54 : ;I? < 64 : ;I 74 : ;I 84 : ;I 94 : ;I
: U ; U < = >4 : ; I ?4 : ; I @.? : ; ' @
A : ; I B : ; I C4 : ; I? < D4 : ; I
/usr/include/bits /usr/lib/gcc/x86_64-redhat-linux/4.4.5/include /usr/include /usr/include/sys LogSyslogFast.c stdio2.h string3.h stddef.h types.h time.h LogSyslogFast.h socket.h sockaddr.h netdb.h libio.h un.h stdio.h % 0ZZLL>>>|ȐWYTN%b?7kt#H>/LH>=ZrKK}J,01b k 3/~
v. = <5 >aXF == Q; =K t//Iy.//Ik.-//$XI=Y;K2>SnI=Y;K2>S%y<KY ~z~fC1 /rJu;=!YWKd~X#~<f
XvX
<s<
tY];=2Yy. W~K)X X}'Y;ivZr>;Km:2FYw9Y="sX.( ~
. /usr/include/bits /usr/include/sys /usr/include /usr/lib/gcc/x86_64-redhat-linux/4.4.5/include /usr/lib64/perl5/CORE Fast.c Fast.xs const-xs.inc types.h types.h time.h stddef.h sigset.h setjmp.h setjmp.h stdlib.h siginfo.h stdint.h stat.h times.h netdb.h netdb.h dirent.h dirent.h perl.h op.h cop.h intrpvar.h sv.h regexp.h gv.h mg.h av.h hv.h cv.h handy.h libio.h perlio.h iperlsys.h perly.h pad.h pwd.h grp.h crypt.h shadow.h reentr.h parser.h LogSyslogFast.h const-c.inc stdio.h P. 0, Ct t Xt. <tF +558=-u/=-u6=-u/=-u6=-u/=-u358=-u/=-u6=-u/=-u6=-u/=-u6=-u/=-u35555555LlL.R0,`<s;Y25r @{OX{.<xGPq[%0,`<s;Y25r @{OX{.<xGPq[%0,`<s;Y25r @{OX{.<xGPq[%0,`<s;Y25r@{OX{.<xGPq[%0,`<s;Y25r@|OX{.<xGPq[%0,`<s;Y25r @|OX|.<xGPq[%0,`<s;Y25r @|OX|.<xGPq[%0,`<s;Y25r @|OX|.<xGPqZ%0,`nm;Y gq<0|S>tzG|0,`nm;Ygs<0|mtwLz*T&0,`s;YgoS>}H>o HqE}0,`s;YgoS>}H>o HqE}0,`nm;Ygs<0}mtwLz*]&0,`nm;Ygs<0}mtwLz*[&0,`nOm;Ygr(H}mwIy*R.0,`nOm;Ygj0HS>}H>o< HoE~0,`+[:m;Y25e.HS~-=fkO H ~0~0,Z`s;Ygu~S>utG
~0,`pRRO@=?HFHE~H;=,2-K>5YJ0HH HHvHH~E #0,d 9$-~.<i~ 8o+ _IO_read_ptr _chain ai_flags _shortbuf addrinfo strncpy _IO_buf_base GNU C 4.4.5 20110214 (Red Hat 4.4.5-6) SOCK_NONBLOCK long long unsigned int msg_str __src LSF_set_severity update_prefix long long int LSF_get_format _fileno _IO_read_end hostname msg_len p_address raddress _cur_column SOCK_STREAM _old_offset LSF_get_facility LSF_get_sender portstr sun_family msg_start __pad5 LogSyslogFast.c _IO_marker SOCK_RDM prefix_len LSF_set_pid ai_socktype _IO_write_ptr LSF_get_sock _sbuf short unsigned int msg_format _IO_save_base stdin last_time _lock _flags2 stdout sockaddr_un time_format LSF_set_priority timestr LSF_init _IO_write_end ai_protocol __dest _IO_lock_t _IO_FILE __off_t new_bufsize ai_addrlen sa_family _markers __socket_type LSF_get_severity unsigned char _IO_buf_end ai_addr short int LSF_send __len /usr/src/Log-Syslog-Fast-0.58 ai_next _vtable_offset LSF_alloc SOCK_PACKET LSF_get_priority LSF_set_facility LSF_set_sender LSF_set_name __ch new_buf LSF_get_name __socklen_t sockaddr ai_family __off64_t _IO_read_base memcpy _IO_save_end __fmt LogSyslogFast LSF_destroy __pad1 __pad2 __pad3 __pad4 sun_path snprintf LSF_get_pid __time_t sa_family_t logger _unused2 memset SOCK_CLOEXEC line_len SOCK_DGRAM _IO_backup_base LSF_set_format LSF_set_receiver sa_data SOCK_RAW ai_canonname address_len SOCK_DCCP SOCK_SEQPACKET results _IO_write_base linebuf xmg_u _spent_ptr precomp _ctime_size Iglobalstash Itaint_warn multi_end Icompiling Idefoutgv si_prev _ttyname_buffer Ipadix_floor re_state_reg_curpm lex_inwhat tm_sec Iutf8_totitle msglen regexp_paren_pair __saved_mask xiou_any Istrtab Iargvgv xbm_flags last_lop_op rand_sep Ipsig_name pw_uid block refcounted_he Ipreprocess xpvgv max_offset xio_ifp _protoent_struct si_uid Isv_yes _readdir64_size regexp_engine lex_op _reg_trie_accepted ICmd xio_flags PTR_TBL_t Ireg_state svt_set si_cxix xpvhv XS_Log__Syslog__Fast_set_sender Ilast_swash_klen my_perl _crypt_struct_buffer _hostent_ptr Ibodytarget super_bufend Icomppad_name_floor save_curlyx _sigpoll Imainstack gp_hv Ihash_seed Isub_generation PerlIO_list_t xpvio gvval _servent_buffer xpviv sbu_targ oldoldbufptr Iregex_padav Inumeric_standard yylval Itainting xcv_start blku_type gp_io gp_egv st_size sbu_iters xlow Iprofiledata hek_hash Ierrors netent sp_expire endpos tm_isdst cop_line s_proto xcv_stash wraplen saved_curcop block_sub _spent_size op_redoop Iunitcheckav_save Iwarnhook Icurstash lex_inpat xcv_gv si_next Iutf8_punct hostent Isavestack cur_top_env yy_parser re_state_reg_oldsaved multi_close Isplitstr mg_type Idestroyhook cache_mask op_lastop Iscopestack_ix xpv_cur st_blksize _drand48_struct _sigchld Ienvgv Iclocktick Idirty svu_pv __jmpbuf xivu_uv pw_passwd h_name Igensym pending_ident share_proc_t Itoptarget Istatcache curly Idbargs lex_dojoin qr_package h_addr_list sbu_dstr sp_max st_gid _getlogin_size Iscreamnext intflags cv_flags_t XS_Log__Syslog__Fast_set_receiver gp_line op_latefreed _timer lex_expect Idefstash Itmps_floor xio_page_len Isv_no re_state_reg_start_tmpl Iegid st_nlink xpvnv Iptr_table __mask_was_saved mg_private st_ctim sbu_orig pprivate sv_u __sigset_t PADOFFSET xcv_root current_salt h_length Iregdummy old_in_eval Sighandler_t re_state_regoffs mg_virtual Imy_cxt_list XS_Log__Syslog__Fast_set_priority Ibeginav Ifilemode Icollation_standard Igid Iendav re_state_reg_eval_set extflags re_state_reg_oldsavedlen _kill tms_cutime Ilastgotoprobe Irehash_seed svu_rv sv_flags XS_Log__Syslog__Fast_get_priority _netent_ptr PerlExitListEntry Istack_base Idiehook prev_eval st_atim Iutf8cache Ie_script cx_u _netent_size xcv_file gp_refcnt __clock_t nparens Ichopset Iscreamfirst sival_ptr Iperldb seen_evals _getlogin_buffer __uid_t si_stime xio_page lastcp perl_debug_pad he_valu sub_op Icompcv dirent64 Iisarev Iutf8_graph resume_state super_bufptr lex_starts xcv_padlist msgstr Isortstash Istdingv toggle_reg_flags __jmp_buf_tag Idef_layerlist blku_loop Icurstackinfo Ipsig_ptr Iefloatsize direction gp_sv XS_Log__Syslog__Fast_set_name blku_oldcop Imain_start sbu_s __blkcnt_t initialized sp_pwdp je_ret float class exec Ilast_swash_key linestr itersave SUBLEXINFO Itimesbuf Isig_pending tokenbuf op_next sv_any Ipatchlevel Imax_intro_pending Ilast_swash_hv Ireplgv block_eval xbm_previous itermax Icop_seqmax XS_Log__Syslog__Fast_set_pid _ctime_buffer Iexitlist stashes lex_state s_name Icv_has_eval Iregistered_mros si_stack xbm_s je_prev XS_Log__Syslog__Fast_set_format tm_zone __mode_t swap op_latefree _protoent_ptr next_branch sbu_maxiters Icollation_ix si_cxmax Isharehook _strerror_size lex_defer states Iperlio prev_mark Iutf8_lower Iin_clean_objs re_state_reg_magic drand48_data Iscopestack_max _netent_errno sp_namp SVt_PVGV Isortcop op_pmreplrootu blku_eval yyerrstatus Ireginterp_cnt leave_op sublen re_save_state Iutf8_alnumc sp_flag xav_fill super_state mg_moremagic sbu_strend Iorigenviron branchlike Iosname mg_ptr blku_givwhen Isv_root Iors_sv Icolorset xpv_len hent_refcount exitlistentry re_state_reg_start_tmp scream_pos _servent_struct utf8_substr Iorigalen IDBsingle _servent_ptr subbeg Idowarn re_scream_pos_data _drand48_double Imarkstack_ptr Isv_objcount Iamagic_generation Icurpad Iutf8_idcont svu_array Ilocalizing re_scream_pos_data_s Iutf8_xdigit sbu_type d_reclen regexp REGEXP Isrand_called servent gofs Imodcount svt_len Imess_sv keeper op_flags _grent_struct __unused cop_warnings PERL_SI REENTR substrs yychar blku_oldscopesp SVt_PVAV pw_dir IDBsub op_opt Iunlockhook logmsg my_op mother_re curlym xio_bottom_name Perl___notused prev_rex XS_Log__Syslog__Fast__get_sock xivu_namehek __nlink_t si_addr Icolors st_ino st_mode _hostent_struct MAGIC cop_label Iregex_pad mg_flags Iformfeed cur_text XPVAV op_pmoffset op_attached _strerror_buffer maxpos ptr_tbl SVt_PVCV Istashcache prelen hent_hek cop_hints Iincgv op_targ xpad_cop_seq _random_retval _grent_ptr sival_int si_code xio_bottom_gv re_state_regeol Iscopestack d_off Imodglobal keysched rptr error_count blku_oldmarksp Imaxscream last_uni Idelaymagic gr_mem oldloc XPVCV iterary p_proto __ssize_t xio_fmt_name hent_val Idoextract je_mustcatch xcv_root_u xbm_rare xnv_nv timespec n_net sp_min svt_free _protoent_size IDBsignal XS_Log__Syslog__Fast_get_facility pw_name __val tmpXSoff SVt_PVFM Ilastfd XS_Log__Syslog__Fast_get_severity clone_params Iexit_flags Ireentrant_buffer _spent_struct old_namesv Ipadix sp_lstchg sbu_rx mark_name old_parser st_uid sbu_m PerlIO_list_s numbered_buff_LENGTH xcv_outside Ilockhook PADLIST any_dxptr rsfp re_state_reg_leftiter Istatname Ieuid SVt_PVHV SVt_NULL tm_min mgvtbl Irehash_seed_set jump Ipsig_pend Ilaststype XPVGV Iutf8_toupper MGVTBL Itmps_stack sub_inwhat cx_subst Irestartop SVt_PVIO cop_file SVt_PVIV Icurpm regnode Iwatchok sbu_rxtainted Iuid named_buff_iter XPVHV xav_max Iutf8_digit xcv_xsub re_state_reg_oldcurpm hasargs op_private XS_Log__Syslog__Fast_new Istatusvalue_posix any_ptr re_state_reg_match_utf8 _grent_buffer _netent_struct _grent_size XPVIO in_my __blksize_t gr_passwd XPVIV nexttoke save_lastloc boot_Log__Syslog__Fast _asctime_buffer sbu_oldsave xhv_max protoent sigjmp_buf tms_cstime minlen Inumeric_name Ioldname Ierrgv si_pid xmg_stash sbu_rflags _pwent_struct IDBcv tm_wday Idoswitches re_state_reg_oldpos re_state_bostr _asctime_size SVt_PVLV reg_substr_data savearray iterlval Iofs_sv Ipreambleav svu_hash rand_deg op_pmstashstartu Icheckav_save re_state_reg_maxiter blk_u SVt_PVMG Istack_max Isv_arenaroot tm_yday Imarkstack SVt_BIND pw_gecos op_last _pwent_ptr Inice_chunk __dirstream any_long rsfp_filters next_off svu_iv _readdir_ptr xivu_i32 crypt_3_buf Ieval_root Iknown_layers Ithreadhook SVt_PVNV PMOP minmod tm_mon xssv whilem mark_loc YYSTYPE Ilast_in_gv random_data Ireentrant_retint multi_start xio_type Icollxfrm_base _random_struct Ihv_fetch_ent_mh reg_substr_datum _pwent_size svt_clear xiv_u Isawampersand xio_ofp xgv_stash Ipeepp old_op_type op_pmreplroot tm_year copline IDBgv cop_hints_hash gp_cvgen stack_size XPVNV minlenret Isv_count _sublex_info blku_gimme XS_Log__Syslog__Fast_get_format Ibody_roots context Istack_sp XS_Log__Syslog__Fast_send Inice_chunk_size Icollation_name IArgv Iinitav uint32_t peep_t _servent_size __pid_t Iutf8_idstart _spent_buffer op_pmreplstart Istatusvalue Icomppad_name nextval Idebug SVt_IV Iparser re_state_regsize Imy_cxt_size Isubline Ibasetime op_sibling xio_dirpu any_iv lex_casestack Icurstname pmop Isavestack_ix Icomppad_name_fill end_shift Ibody_arenas hent_next sbu_once si_status named_buff Ilast_swash_tmps PerlInterpreter Imaxo Istderrgv Iforkprocess s_port opval cache_offset Iin_clean_all svt_local yylen lex_stuff blku_spare xio_top_name wordnum dfoutgv lex_formbrack mg_len xiou_dirp p_tkval rand_type __dev_t Iutf8_mark linestart _readdir_size Iunitcheckav xio_lines Iunicode _netent_buffer si_cxstack XS_Log__Syslog__Fast_get_pid _sifields tm_hour gr_name STRLEN close_paren SVt_LAST __init _pwent_buffer destroyable_proc_t multi_open Iin_eval _srandom_struct sp_warn si_signo SVt_NV paren_names prev_yes_state hek_key IDBline tm_mday Icollxfrm_mult svtype sp_inact __pad0 proto_perl old_eval_root Imarkstack_max op_nextop Iminus_E Iminus_F _hostent_buffer lex_brackstack xpvcv re_state_reglastcloseparen si_errno Irunops Imain_cv CHECKPOINT Iminus_a Iminus_c Iargvoutgv Iminus_l last_lop Iminus_n Iminus_p Idebstash si_band min_offset re_state_reglastparen op_pmflags Iin_load_module i_tkval blku_sub interpreter blku_oldpm _protoent_buffer numbered_buff_FETCH Iorigfilename Iutf8_alpha op_first siginfo dirent st_rdev tms_stime tbl_max __old_x st_dev op_ppaddr SVCOMPARE_t thrhook_proc_t IDBtrace any_i32 Ifirstgv Istatbuf retop Iutf8_print group SVt_PV Isavebegin locinput any_bool xcv_outside_seq Itainted Icustom_op_descs Iutf8_alnum line_t svu_uv Iutf8_tofold si_type ifmatch SVt_RV CLONE_PARAMS re_state_reg_flags resetsp PERL_CONTEXT Iutf8_space _readdir_struct _hostent_errno xhv_fill Igeneration Istart_env sigval_t Idefgv in_my_stash end_ptr runops_proc_t blku_oldsp svu_gp re_state_reg_starttry Ieval_start scream_olds __gid_t h_aliases Iglob_index hek_len _sigfault numbered_buff_STORE current_saltbits si_utime tv_sec Icurstack IXpv Idumpindent _readdir64_struct oldval Iunsafe n_aliases Iencoding si_fd h_addrtype Inomemok jmpenv p_aliases Iregmatch_state _localtime_struct st_blocks tms_utime JMPENV Isighandlerp nexttype s_aliases Isort_RealCmp svt_dup dupe si_markoff tm_gmtoff __ino64_t Ievalseq checkstr LOOP Inumeric_radix_sv xio_top_gv _readdir64_ptr crypt_data _ttyname_size sbu_rxres Ilocalpatches Iinplace cop_stashpv pw_gid Icurcopdb Icustom_op_names ptr_tbl_ent si_overrun XS_Log__Syslog__Fast_set_facility svt_get Iutf8_tolower XS_Log__Syslog__Fast_get_sender gp_form Imaxsysfd sv_refcnt XS_Log__Syslog__Fast_set_severity siginfo_t tbl_ary Iexitlistlen lex_repl xivu_p1 XS_Log__Syslog__Fast_get_name Ibreakable_sub_gen yy_stack_frame preambled RETVAL Iutf8_ascii Isecondgv xcv_start_u svt_copy gp_file_hek Isavestack_max Ilast_swash_slen Ilastscream wrapped Iutf8_cntrl argarray xhigh tv_nsec lex_casemods Iutf8_upper logical Ibeginav_save xivu_iv wanted block_givwhen Ibitcount iterix n_addrtype __ino_t ival Istatgv gr_gid xmg_magic Imin_intro_pending trie mg_obj any_dptr intuit xpvav re_state_reg_poscache pw_shell xnv_u parenfloor Isignals Iregmatch_slab Idebug_pad xcv_xsubany si_tid re_state_reginput Itop_env xio_lines_left Iorigargc lex_brackets gp_av prev_curlyx Imain_root Ifdpid Iorigargv Iargvout_stack op_pmtargetoff _hostent_size Itmps_ix xmg_ourstash block_loop Isubname je_buf newval Icheckav spwd xcv_flags re_state_reg_poscache_size Iefloatbuf Ihintgv Ilaststatval Icurcop Ipad_reset_pending Iperl_destruct_level Inumeric_local Iformtarget oldcomppad _PerlIO st_mtim XS_Log__Syslog__Fast_constant Ihints Iwatchaddr gp_cv XS_Log__Syslog__Fast_DESTROY _gmtime_struct si_sigval __jmp_buf olddepth Iop_mask Itmps_max tbl_items d_ino Iutf8locale iterdata op_spare Isv_undef Icomppad xio_fmt_gv cx_blk stat PerlIOl accept_buff op_pmstashpv U K SM ^ S T ^ s s8 $ & s0 ` U S. y S ` T
V. 6 VR ^ Vd n V ` Q ] }. 6 ]6 R }R y ] ` R \. y \
P6 D PD R V ^R y ^ Pd h P U S S U T T U S U
T - U- 9 S9 > U # T ) Q @ W UW g Sg r U @ W TW b Vb r Q U S U T V T U S P V P 5 U5 g Sq S < T< l Vq V U S S T V V 8 U8 S= S b Tb V= S V V V b Qb \ T 6 \ \ b Rb 5 ^= ^ ]= ]] b |b g ] ] n \= \b g \ \ c k P P u \ ) ? P P
~
~ ] ]] g ~g ] ] O UO S U S Z TZ V T V Z QZ \ Q $ \ Z RZ ] R ) ] Z XZ ^ . ^ Z YZ _ 3 _ U T ) - p - ]| ] E P p P u \u V| V u y | $ &3$p "y ! | $ &3$~ "| 0 | $ &3$~ "Q | $ &3$~ " 1 V P L VL Q PQ V P
VU
k
V u 0 ]| 0 0
* Q d
* d
- { _ k
_ ! % P% = \= A PA \0 Q \ k
\ T W P P P PN Q P P5 8 Pp s P P P/ 2 Pj m P P P 9 | 1 p
t
U p
T
# V ; Vk
V
p
\ s3$p " s3$} " s 3$} "G
k
s3$} "
p
S
( s( S ` s` k
Sk
s
s $ &3$p "k
q
s $ &3$p " U P ^G
k
^ # \` k
\ 1
U
T
C V7 [ V V
p
\ s3$p " s3$} " s 3$} "g s3$} "
p
S
H sH S7 s S s
s $ &3$p " s $ &3$p " U P ^g ^ C 2 \ \ 7 1 U T c VW { V V p \ s3$p " 4 s3$} "4 > s 3$} " s3$} " p S h sh SW s S s - s $ &3$p " s $ &3$p " U P > ^ ^ c R \ \ W 1 U T V{ V V p ; \R T s3$p "T ^ s 3$} " s3$} " p . S. s S{ s S s . O s $ &3$p " s $ &3$p " U P R ] x \ \ ; { 1 U T V V V p [ \r t s3$p "t ~ s 3$} " s3$} " 3 > p > N SN s $ S s S s N o s $ &3$p " s $ &3$p " / 3 U 9 = P= r ] \ \ [ 1 U ! T! V V + V 6 : p : y \r v s3$p "v s3$} " s 3$} " s3$} " Q \ p \ l Sl s B S s S + s l s $ &3$p " s $ &3$p " O S U Y ] P] ^ ^ \ \ y 1 0 4 U 0 A TA V V+ K V V Z p Z \ s3$p " s3$} " s 3$} " + s3$} " q | p | S s b S s + S+ K s s $ &3$p "+ 1 s $ &3$p " o s U y } P} ^ + ^ \ + \ 1 P T U P a Ta ! V! " VK# k# V v z p z \" " s3$p "" " s3$} "" " s 3$} "'# K# s3$} " p S ! s! ! S! @" s@" K# SK# k# s s $ &3$p "K# Q# s $ &3$p " " " U " " P" " ^'# K# ^ ! ! \@" K# \ ! ! 1 p# t# U p# # T# # Vw& & V # # p # # \ # # p # # S# # s# $ SG% (& S.& w& Sw& & s& & S # # s $ &3$p "w& }& s $ &3$p " # # v #8w& }& v #8 % +& \& & \ W$ B% Vx% & V.& w& V& & V % % P& & P % G% 1 % .& 0 & & U & & T& <' V) ) V & & p & ' \ & & p & ' S' .' s.' ( S( ) S) ) s ' .' s $ &3$p ") ) s $ &3$p " ' 2' v #8) ) v #8 -) 3) U ' |( V( O) Vw) ) V I( |( 1 4) w) 0 ) ) U ) ) T) `* V- %- V ) ) p ) ;* \ * * p * .* S.* N* sN* * S?+ l, Sr, - S- %- s%- 7- S .* N* s $ &3$p "- - s $ &3$p " .* R* v #8- - v #8 , , T !, /, P%- 2- P + ?+ 1 ), r, 0 @- D- U @- S- TS- - Vu0 0 V h- l- p l- - \ - - p - - S- - s- 8. S. / S/ u0 Su0 0 s0 0 S - - s $ &3$p "u0 {0 s $ &3$p " - - v #8u0 {0 v #8 / / T / / P0 0 P q. . 1 / / 0 0 0 U 0 0 T0 <1 V3 3 V 0 0 p 0 1 \ 0 0 p 0 1 S1 .1 s.1 2 S2 3 S3 3 s 1 .1 s $ &3$p ".1 21 s $ &3$p "3 3 s $ &3$p " -3 33 U 1 |2 V2 O3 Vw3 3 V I2 |2 1 43 w3 0 3 3 U 3 3 T3 \4 V6 6 V 3 3 p 3 ;4 \ 4 4 p 4 .4 S.4 N4 sN4 05 S5 6 S6 6 s .4 N4 s $ &3$p "6 6 s $ &3$p " M6 S6 U 4 5 V5 o6 V6 6 V i5 5 1 T6 6 0 6 6 U 6 7 T7 z7 Vr: : V 7 7 p 7 Y7 \ 17 <7 p <7 L7 SL7 l7 sl7 8 S9 r: Sr: : s L7 l7 s $ &3$p "r: x: s $ &3$p " L7 p7 v #8r: x: v #8 9 9 U 7 9 V@9 : VB: r: V $8
9 \9 r: \ 8 9 1 9 B: 0 : : U : : T: 0; V? 5? V : : p : ; \ : : p : ; S; "; s"; S< S< y> S> ? S? 5? s5? G? S ; "; s $ &3$p ""; &; s $ &3$p "? ? s $ &3$p " ; &; v #8? ? v #8 ; < V< Q> V> ? V5? G? V !> -> Q ; < \C= |> \> ? \5? G? \ .> <> P5? B? P < < 1 6> > 0 P? T? U P? g? Tg? 0@ V$A CA VC C V |? ? p ? ? ^$B (B s3$p "(B JB s3$} "JB TB s 3$} "8C ^C s3$} " ? ? p ? ? S? ? s? @ S$A C SC C sC C S ? ? s $ &3$p " ? @ ^$A A ^TB B ^C C ^ ? ? v #8C C v #8 ? ? s 3$p "#? @ ]$A $B ]TB 8C ]^C C ]C C ] A B ^^C C ^ B B PB TB ^8C ^C ^C C PC C ^ 0@ A \hA C \C C \ @ $A A TB 8C ^C C C C C A A T @ $A 1 C C U C C TC ZD V'F GF V C C p C 5D \
D D p D (D S(D HD sHD D S3E E SE 'F S'F GF sGF YF S (D HD s $ &3$p "'F -F s $ &3$p " E E VGF YF V D 3E 1 E E 0 `F dF U `F wF TwF F VM M V F F p F F \ F F p F F SF F sF J SbK M SM M s F F s $ &3$p "F F s $ &3$p "M M s $ &3$p " MG bK K M DI J ]L L ]EM M ] G bK K M G bK K #L lL M @H aK _lL M _ I _K ^L L ^M M ^ _J jJ Q qJ J PJ YK VM M PM M V K bK 1 M M U M M TM N V"O YO VO O V M M p M JN SJN N sxN O S O "O p "O O sxO O S N N p N -N \-N N |N !O \"O YO |YO O \O O | -N :N | $ &3$p " N "O X N "O 1 N N | 3$p "N N VN O PYO O V N N V - size_t p __off_t { __off64_t __time_t __socklen_t time_t w LogSyslogFast socklen_t __socket_type sa_family_t sockaddr 1 addrinfo O _IO_lock_t V _IO_marker _IO_FILE sockaddr_un c e __dev_t p __uid_t { __gid_t __ino_t __ino64_t __mode_t __nlink_t __off_t __off64_t __pid_t __clock_t __time_t __blksize_t __blkcnt_t __ssize_t gid_t $ uid_t / ssize_t : clock_t E time_t P size_t [ int32_t __sigset_t timespec __jmp_buf __jmp_buf_tag 2 sigjmp_buf C random_data drand48_data sigval ; sigval_t siginfo siginfo_t uint32_t ' stat tm tms netent
hostent V servent protoent dirent ' dirent64 q DIR IV UV NV STRLEN OP | COP
PMOP LOOP PerlInterpreter SV 1 AV x HV CV REGEXP > GP GV ^ PERL_CONTEXT MAGIC XPV XPVIV ! XPVNV ^! XPVAV ! XPVHV " XPVGV " XPVCV \# XPVIO $ MGVTBL
% ANY % PTR_TBL_t % CLONE_PARAMS 2& I8 <& U8 F& U16 Q& I32 \& U32 g& line_t % any D( _IO_lock_t K( _IO_marker & _IO_FILE ( PerlIOl ( PerlIO ( PerlIO_list_t ( Sighandler_t ( YYSTYPE H) YYSTYPE S) regnode ) regnode ) reg_substr_datum ) reg_substr_data * regexp_paren_pair &* regexp_paren_pair regexp * regexp + re_scream_pos_data_s ++ re_scream_pos_data 1* regexp_engine - _reg_trie_accepted 4- reg_trie_accepted F- CHECKPOINT i- regmatch_state E2 regmatch_state Q2 regmatch_slab 2 regmatch_slab 2 re_save_state r4 svtype }4 HE 4 HEK sv gv cv < av hv " io xpv xpviv ! xpvnv ," xpvgv c: cv_flags_t h# xpvio % clone_params I gp ; PADLIST ; PAD ; PADOFFSET " xpvcv op
pmop loop ^= passwd = group = crypt_data > spwd B REENTR 4 he 4 hek ! xpvhv C jmpenv C JMPENV cop C block_sub D block_eval E block_loop E block_givwhen block E subst j context F stackinfo lG PERL_SI j! xpvav $ mgvtbl magic H SUBLEXINFO H _sublex_info I yy_stack_frame I yy_parser SL yy_parser {% ptr_tbl_ent % ptr_tbl qL runops_proc_t L share_proc_t L thrhook_proc_t L destroyable_proc_t L perl_debug_pad M peep_t 7M SVCOMPARE_t cM exitlistentry M PerlExitListEntry interpreter N LogSyslogFast R y ^ k X [ k
u p r c k k
0 X 3 5 9 m
% k
( E @ H ' e ` h I ; i [ y + ! " K# ! ! # # & & 0& w& P% % # <% % % % <% )' +' ) ) ( 4) .' |( D( F( I( |( I* K* %- 7- x, - @+ ), N* 4+ * * + 4+ - - 0 0 / u0 . / - . l. n. q. . )1 +1 3 3 2 43 .1 |2 D2 F2 I2 |2 I4 K4 6 6 5 T6 N4 5 d5 f5 i5 5 g7 i7 H: r: 9 9 l7 9 8 8 8 9 ; ; 5? G? > ? < 6> "; < < < < < ? ? C C (A C ? @ CD ED GF YF E 'F 8E E HD .E D D D .E F F hK M F K JN N (O O N O .symtab .strtab .shstrtab .note.gnu.build-id .gnu.hash .dynsym .dynstr .gnu.version .gnu.version_r .rela.dyn .rela.plt .init .text .fini .rodata .eh_frame_hdr .eh_frame .ctors .dtors .jcr .data.rel.ro .dynamic .got .got.plt .bss .comment .debug_aranges .debug_pubnames .debug_info .debug_abbrev .debug_line .debug_str .debug_loc .debug_pubtypes .debug_ranges $ . o | 8 8 8
@ X
X
4 H o U o h h @ d @ n P
x 8 8 s P P ~ @$ @$ Y 8~ 8~ 2 H~ H~ \ ` ` l Г Г 8 8 0 , ` L j p H ( N 4 0 < . ? O J J ~ Z 1 h p $ 7 R 8 X
h 8
P @$ 8~
H~ ` Г 8 ! @$ Г * 8 E `$ [ j Ș x $ ؓ ȓ ~ % 8 ? < `H ^ l p% y ' r - 8 `% ( 5 8~ ; L [ o B P% ( % * 8 I N k U " _ 7 I Z 0( k t m ( S r | 4 P. k
K _ @e K h *
( 2
, H b j | m r ; 0% Q :
" 0) j / И 4 ) j C X * i v P( 2 [ g @E % : M T _ @% n % X g p& + 8 1 % @ call_gmon_start crtstuff.c __CTOR_LIST__ __DTOR_LIST__ __JCR_LIST__ __do_global_dtors_aux completed.6338 dtor_idx.6340 frame_dummy __CTOR_END__ __FRAME_END__ __JCR_END__ __do_global_ctors_aux LogSyslogFast.c update_prefix Fast.c _GLOBAL_OFFSET_TABLE_ __dso_handle __DTOR_END__ _DYNAMIC XS_Log__Syslog__Fast_get_pid XS_Log__Syslog__Fast_get_severity Perl_sv_setiv LSF_get_sock Perl_get_sv LSF_set_format close@@GLIBC_2.2.5 Perl_Imarkstack_ptr_ptr Perl_newSVpvf_nocontext LSF_init __gmon_start__ _Jv_RegisterClasses LSF_get_pid getaddrinfo@@GLIBC_2.2.5 Perl_Iop_ptr _fini Perl_Isv_yes_ptr Perl_call_list malloc@@GLIBC_2.2.5 Perl_Istack_sp_ptr XS_Log__Syslog__Fast_get_name Perl_warn_nocontext Perl_sv_2mortal Perl_sv_setpv LSF_get_name LSF_set_pid Perl_vstringify Perl_form getpid@@GLIBC_2.2.5 LSF_get_priority XS_Log__Syslog__Fast__get_sock XS_Log__Syslog__Fast_get_priority __strdup@@GLIBC_2.2.5 Perl_Icurpad_ptr freeaddrinfo@@GLIBC_2.2.5 free@@GLIBC_2.2.5 Perl_vcmp XS_Log__Syslog__Fast_set_pid pthread_getspecific __cxa_finalize@@GLIBC_2.2.5 XS_Log__Syslog__Fast_set_severity Perl_sv_setref_pv Perl_newXS_flags LSF_set_priority strerror@@GLIBC_2.2.5 Perl_Iscopestack_ix_ptr XS_Log__Syslog__Fast_new connect@@GLIBC_2.2.5 LSF_destroy Perl_sv_newmortal memcpy@@GLIBC_2.2.5 XS_Log__Syslog__Fast_DESTROY XS_Log__Syslog__Fast_constant boot_Log__Syslog__Fast socket@@GLIBC_2.2.5 XS_Log__Syslog__Fast_set_priority XS_Log__Syslog__Fast_get_facility XS_Log__Syslog__Fast_set_receiver LSF_alloc __errno_location@@GLIBC_2.2.5 __bss_start LSF_set_facility Perl_mg_set Perl_Iunitcheckav_ptr __stack_chk_fail@@GLIBC_2.4 XS_Log__Syslog__Fast_set_facility send@@GLIBC_2.2.5 XS_Log__Syslog__Fast_send XS_Log__Syslog__Fast_get_format LSF_get_severity Perl_sv_isobject XS_Log__Syslog__Fast_set_format Perl_Istack_base_ptr Perl_croak_nocontext LSF_set_name _end LSF_set_sender strncpy@@GLIBC_2.2.5 LSF_set_receiver Perl_newSVpv Perl_sv_2iv_flags LSF_set_severity XS_Log__Syslog__Fast_set_sender __snprintf_chk@@GLIBC_2.3.4 XS_Log__Syslog__Fast_get_sender Perl_croak_xs_usage Perl_new_version Perl_croak realloc@@GLIBC_2.2.5 Perl_Isv_undef_ptr _edata Perl_newXS LSF_get_sender localtime@@GLIBC_2.2.5 Perl_Gthr_key_ptr LSF_get_facility XS_Log__Syslog__Fast_set_name strftime@@GLIBC_2.2.5 Perl_sv_2nv Perl_sv_derived_from fcntl@@GLIBC_2.2.5 LSF_send time@@GLIBC_2.2.5 _init LSF_get_format Perl_sv_2pv_flags PK B[#d d # auto/Log/Syslog/Constants/.packlistnu W+A /usr/local/share/man/man3/Log::Syslog::Constants.3pm
/usr/local/share/perl5/Log/Syslog/Constants.pm
PK B[UQVU U auto/DNS/ZoneParse/.packlistnu W+A /usr/local/share/man/man3/DNS::ZoneParse.3pm
/usr/local/share/perl5/DNS/ZoneParse.pm
PK T[bml l Log/Syslog/Constants.pmnu W+A package Log::Syslog::Constants;
use 5.6.2;
use strict;
use warnings;
our $VERSION = '1.02';
# severities
use constant LOG_EMERG => 0; # system is unusable
use constant LOG_ALERT => 1; # action must be taken immediately
use constant LOG_CRIT => 2; # critical conditions
use constant LOG_ERR => 3; # error conditions
use constant LOG_WARNING => 4; # warning conditions
use constant LOG_NOTICE => 5; # normal but significant condition
use constant LOG_INFO => 6; # informational
use constant LOG_DEBUG => 7; # debug-level messages
# facilities
use constant LOG_KERN => 0; # kernel messages
use constant LOG_USER => 1; # random user-level messages
use constant LOG_MAIL => 2; # mail system
use constant LOG_DAEMON => 3; # system daemons
use constant LOG_AUTH => 4; # security/authorization messages
use constant LOG_SYSLOG => 5; # messages generated internally by syslogd
use constant LOG_LPR => 6; # line printer subsystem
use constant LOG_NEWS => 7; # network news subsystem
use constant LOG_UUCP => 8; # UUCP subsystem
use constant LOG_CRON => 9; # clock daemon
use constant LOG_AUTHPRIV => 10; # security/authorization messages (private)
use constant LOG_FTP => 11; # ftp daemon
use constant LOG_LOCAL0 => 16; # reserved for local use
use constant LOG_LOCAL1 => 17; # reserved for local use
use constant LOG_LOCAL2 => 18; # reserved for local use
use constant LOG_LOCAL3 => 19; # reserved for local use
use constant LOG_LOCAL4 => 20; # reserved for local use
use constant LOG_LOCAL5 => 21; # reserved for local use
use constant LOG_LOCAL6 => 22; # reserved for local use
use constant LOG_LOCAL7 => 23; # reserved for local use
my %_severities_by_name = (
emerg => LOG_EMERG,
alert => LOG_ALERT,
crit => LOG_CRIT,
err => LOG_ERR,
warning => LOG_WARNING,
notice => LOG_NOTICE,
info => LOG_INFO,
debug => LOG_DEBUG,
);
my %_facilities_by_name = (
kern => LOG_KERN,
user => LOG_USER,
mail => LOG_MAIL,
daemon => LOG_DAEMON,
auth => LOG_AUTH,
syslog => LOG_SYSLOG,
lpr => LOG_LPR,
news => LOG_NEWS,
uucp => LOG_UUCP,
cron => LOG_CRON,
authpriv => LOG_AUTHPRIV,
ftp => LOG_FTP,
local0 => LOG_LOCAL0,
local1 => LOG_LOCAL1,
local2 => LOG_LOCAL2,
local3 => LOG_LOCAL3,
local4 => LOG_LOCAL4,
local5 => LOG_LOCAL5,
local6 => LOG_LOCAL6,
local7 => LOG_LOCAL7,
);
sub get_severity {
$_severities_by_name{lc $_[0]};
}
sub get_facility {
$_facilities_by_name{lc $_[0]};
}
require Exporter;
our @ISA = qw(Exporter);
our %EXPORT_TAGS = (
severities => [qw/
LOG_EMERG LOG_ALERT LOG_CRIT LOG_ERR LOG_WARNING
LOG_NOTICE LOG_INFO LOG_DEBUG
/],
facilities => [qw/
LOG_KERN LOG_USER LOG_MAIL LOG_DAEMON LOG_AUTH
LOG_SYSLOG LOG_LPR LOG_NEWS LOG_UUCP LOG_CRON
LOG_AUTHPRIV LOG_FTP LOG_LOCAL0 LOG_LOCAL1 LOG_LOCAL2
LOG_LOCAL3 LOG_LOCAL4 LOG_LOCAL5 LOG_LOCAL6 LOG_LOCAL7
/],
functions => [qw/
get_severity get_facility
/],
);
@{ $EXPORT_TAGS{'all'} } = (
@{ $EXPORT_TAGS{'facilities'} },
@{ $EXPORT_TAGS{'severities'} },
@{ $EXPORT_TAGS{'functions'} },
);
our @EXPORT_OK = @{ $EXPORT_TAGS{'all'} };
our @EXPORT = qw();
1;
__END__
=head1 NAME
Log::Syslog::Constants - Perl extension containing syslog priority constants as
defined in RFC3164.
=head1 SYNOPSIS
use Log::Syslog::Constants ':all';
@severities = (
LOG_EMERG, LOG_ALERT, LOG_CRIT, LOG_ERR, LOG_WARNING, LOG_NOTICE, LOG_INFO,
LOG_DEBUG
);
@facilities = (
LOG_KERN, LOG_USER, LOG_MAIL, LOG_DAEMON, LOG_AUTH, LOG_SYSLOG, LOG_LPR,
LOG_NEWS, LOG_UUCP, LOG_CRON, LOG_AUTHPRIV, LOG_FTP, LOG_LOCAL0,
LOG_LOCAL1, LOG_LOCAL2, LOG_LOCAL3, LOG_LOCAL4, LOG_LOCAL5, LOG_LOCAL6,
LOG_LOCAL7
);
$info_constant = get_severity('INFO');
$local0_constant = get_facility('local0');
=head1 DESCRIPTION
Syslog messages--as standardized in RFC3164--embed a priority number (the PRI
part) which is composed of a severity and a facility value. The constants which
encode these values are specified in section 4.1.1, and are made available by
this module. For instance, the exportable LOG_FTP constant has a value of 11,
the value for the FTP facility.
=head1 EXPORTS
Nothing is exported by default. You may optionally import individual constants
and functions or groups of them:
use Log::Syslog::Constants qw(:severities); # LOG_CRIT, LOG_DEBUG, etc
use Log::Syslog::Constants qw(:facilities); # LOG_CRON, LOG_LOCAL3, etc
use Log::Syslog::Constants qw(:functions); # get_facility, get_severity
use Log::Syslog::Constants qw(:all); # all of the above
=head1 FUNCTIONS
=over 4
=item * get_facility($facility_string)
=item * get_severity($severity_string)
These functions look up a constant value by name, e.g.
C.
=back
=head1 SEE ALSO
L
=head1 AUTHOR
Adam Thomason, Eathomason@cpan.orgE
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2010-2011 by Say Media, Inc.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.5 or,
at your option, any later version of Perl 5 you may have available.
=cut
PK T[x ^ ^ DNS/ZoneParse.pmnu W+A # DNS::ZoneParse
# Parse and Manipulate DNS Zonefiles
package DNS::ZoneParse;
use 5.006;
use Storable 'dclone';
use POSIX 'strftime';
use File::Basename;
use vars qw($VERSION);
use strict;
use Carp;
# It makes everyone's life easier if you double-escape the backslash, and only
# the backslash, here.
my @ESCAPABLE_CHARACTERS = qw/ ; " \\\\ /;
my $rr_class = qr/(?:IN|HS|CH)/i;
my $rr_ttl = qr/(?:\d+[wdhms]?)+/i;
$VERSION = '1.10';
my (
%dns_id, %dns_soa, %dns_ns, %dns_a, %dns_cname, %dns_mx, %dns_txt,
%dns_ptr, %dns_a4, %dns_srv, %dns_hinfo, %dns_rp, %dns_loc,
%dns_generate,
%dns_last_name, %dns_last_origin, %dns_last_class, %dns_last_ttl,
%dns_found_origins, %unparseable_line_callback, %last_parse_error_count,
);
my %possibly_quoted = map { $_ => undef } qw/ os cpu text mbox /;
sub new {
my $class = shift;
my $file = shift;
my $origin = shift;
my $unparseable_callback = shift;
my $self = bless [], $class;
if ( ref $unparseable_callback eq 'CODE' ) {
$unparseable_line_callback{$self} = $unparseable_callback;
}
$self->_initialize();
$self->_load_file( $file, $origin ) if $file;
return $self;
}
sub on_unparseable_line {
my $self = shift;
my $arg = shift;
if ( !defined $arg ) {
return $unparseable_line_callback{$self};
} elsif ( ref $arg eq 'CODE' ) {
my $old = $unparseable_line_callback{$self};
$unparseable_line_callback{$self} = $arg;
return $old;
} else {
return undef;
}
}
sub last_parse_error_count {
my $self = shift;
return $last_parse_error_count{$self};
}
sub DESTROY {
my $self = shift;
delete $dns_soa{$self};
delete $dns_ns{$self};
delete $dns_a{$self};
delete $dns_cname{$self};
delete $dns_mx{$self};
delete $dns_txt{$self};
delete $dns_ptr{$self};
delete $dns_a4{$self};
delete $dns_srv{$self};
delete $dns_hinfo{$self};
delete $dns_rp{$self};
delete $dns_loc{$self};
delete $dns_id{$self};
delete $dns_generate{$self};
delete $dns_last_name{$self};
delete $dns_last_origin{$self};
delete $dns_last_ttl{$self};
delete $dns_last_class{$self};
delete $dns_found_origins{$self};
delete $unparseable_line_callback{$self};
delete $last_parse_error_count{$self};
}
sub AUTOLOAD {
my $self = shift;
( my $method = $DNS::ZoneParse::AUTOLOAD ) =~ s/.*:://;
my $rv =
$method eq 'soa' ? $dns_soa{$self}
: $method eq 'ns' ? $dns_ns{$self}
: $method eq 'a' ? $dns_a{$self}
: $method eq 'cname' ? $dns_cname{$self}
: $method eq 'mx' ? $dns_mx{$self}
: $method eq 'txt' ? $dns_txt{$self}
: $method eq 'ptr' ? $dns_ptr{$self}
: $method eq 'aaaa' ? $dns_a4{$self}
: $method eq 'srv' ? $dns_srv{$self}
: $method eq 'hinfo' ? $dns_hinfo{$self}
: $method eq 'rp' ? $dns_rp{$self}
: $method eq 'loc' ? $dns_loc{$self}
: $method eq 'generate' ? $dns_generate{$self}
: $method eq 'zonefile' ? $dns_id{$self}->{ZoneFile}
: $method eq 'origin' ? $dns_id{$self}->{Origin}
: undef;
croak "Invalid method called: $method" unless defined $rv;
return $rv;
}
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# Public OO Methods
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
sub dump {
# returns a HOH for use with XML modules, etc
my $self = shift;
return dclone( {
SOA => $dns_soa{$self},
AAAA => $dns_a4{$self},
A => $dns_a{$self},
NS => $dns_ns{$self},
CNAME => $dns_cname{$self},
MX => $dns_mx{$self},
PTR => $dns_ptr{$self},
TXT => $dns_txt{$self},
SRV => $dns_srv{$self},
HINFO => $dns_hinfo{$self},
RP => $dns_rp{$self},
LOC => $dns_loc{$self},
} );
}
sub new_serial {
my $self = shift;
my $incriment = shift || 0;
my $soa = $dns_soa{$self};
if ( $incriment > 0 ) {
$soa->{serial} += $incriment;
} else {
my $newserial = strftime( "%Y%m%d%H", localtime( time ) );
$soa->{serial} =
( $newserial > $soa->{serial} )
? $newserial
: $soa->{serial} + 1;
}
return $soa->{serial};
}
sub output {
my $self = shift;
my $zone_ttl = $dns_soa{$self}{ttl} ? "\$TTL $dns_soa{$self}{ttl}" : '';
my $output = '';
$output .= <{ZoneFile} for $dns_id{$self}->{Origin} zone.
; Zone version: $dns_soa{$self}->{serial}
;
ZONEHEADER1
if ( $dns_soa{$self}->{'ORIGIN'} ne $dns_soa{$self}->{'origin'} ) {
$output .= "\n\$ORIGIN $dns_soa{$self}->{'ORIGIN'}\n\n";
}
$output .= <{origin} $dns_soa{$self}->{ttl} IN SOA $dns_soa{$self}->{primary} $dns_soa{$self}->{email} (
$dns_soa{$self}->{serial} ; serial number
$dns_soa{$self}->{refresh} ; refresh
$dns_soa{$self}->{retry} ; retry
$dns_soa{$self}->{expire} ; expire
$dns_soa{$self}->{minimumTTL} ; minimum TTL
)
;
; Zone NS Records
;
ZONEHEADER2
my @origins_to_process = grep {
if ( $_ eq $dns_soa{$self}->{'ORIGIN'} ) {
0;
} else {
1;
}
} keys %{ $dns_found_origins{$self} };
unshift @origins_to_process, $dns_soa{$self}->{'ORIGIN'};
foreach my $process_this_origin ( @origins_to_process ) {
if ( $process_this_origin ne $dns_soa{$self}->{'ORIGIN'} ) {
$output .= "\n\;\n\; $process_this_origin records\n\;\n\n";
$output .= "\$ORIGIN $process_this_origin\n\n";
}
foreach my $o ( @{ $dns_ns{$self} } ) {
next unless defined $o;
next unless $o->{'ORIGIN'} eq $process_this_origin;
$self->_escape_chars( $o );
$output .= "$o->{name} $o->{ttl} $o->{class} NS $o->{host}\n";
}
foreach my $o ( @{ $dns_mx{$self} } ) {
next unless defined $o;
next unless $o->{'ORIGIN'} eq $process_this_origin;
$self->_escape_chars( $o );
$output .= "$o->{name} $o->{ttl} $o->{class} MX $o->{priority} $o->{host}\n";
}
foreach my $o ( @{ $dns_a{$self} } ) {
next unless defined $o;
next unless $o->{'ORIGIN'} eq $process_this_origin;
$self->_escape_chars( $o );
$output .= "$o->{name} $o->{ttl} $o->{class} A $o->{host}\n";
}
foreach my $o ( @{ $dns_cname{$self} } ) {
next unless defined $o;
next unless $o->{'ORIGIN'} eq $process_this_origin;
$self->_escape_chars( $o );
$output .= "$o->{name} $o->{ttl} $o->{class} CNAME $o->{host}\n";
}
foreach my $o ( @{ $dns_a4{$self} } ) {
next unless defined $o;
next unless $o->{'ORIGIN'} eq $process_this_origin;
$self->_escape_chars( $o );
$output .= "$o->{name} $o->{ttl} $o->{class} AAAA $o->{host}\n";
}
foreach my $o ( @{ $dns_txt{$self} } ) {
next unless defined $o;
next unless $o->{'ORIGIN'} eq $process_this_origin;
$self->_escape_chars( $o );
$output .= qq[$o->{name} $o->{ttl} $o->{class} TXT "$o->{text}"\n];
}
foreach my $o ( @{ $dns_ptr{$self} } ) {
next unless defined $o;
next unless $o->{'ORIGIN'} eq $process_this_origin;
$self->_escape_chars( $o );
$output .= "$o->{name} $o->{ttl} $o->{class} PTR $o->{host}\n";
}
foreach my $o ( @{ $dns_srv{$self} } ) {
next unless defined $o;
next unless $o->{'ORIGIN'} eq $process_this_origin;
$self->_escape_chars( $o );
$output .= "$o->{name} $o->{ttl} $o->{class} SRV $o->{priority} $o->{weight} $o->{port} $o->{host}\n";
}
foreach my $o ( @{ $dns_hinfo{$self} } ) {
next unless defined $o;
next unless $o->{'ORIGIN'} eq $process_this_origin;
$self->_escape_chars( $o );
$output .= "$o->{name} $o->{ttl} $o->{class} HINFO $o->{cpu} $o->{os}\n";
}
foreach my $o ( @{ $dns_rp{$self} } ) {
next unless defined $o;
next unless $o->{'ORIGIN'} eq $process_this_origin;
$self->_escape_chars( $o );
$output .= "$o->{name} $o->{ttl} $o->{class} RP $o->{mbox} $o->{text}\n";
}
foreach my $o ( @{ $dns_loc{$self} } ) {
next unless defined $o;
next unless $o->{'ORIGIN'} eq $process_this_origin;
$self->_escape_chars( $o );
$output .= "$o->{name} $o->{ttl} $o->{class} LOC $o->{d1} $o->{m1} $o->{s1} $o->{NorS} ";
$output .= "$o->{d2} $o->{m2} $o->{s2} $o->{EorW} ";
$output .= "$o->{alt} $o->{siz} $o->{hp} $o->{vp}\n";
}
foreach my $o ( @{ $dns_generate{$self} } ) {
next unless defined $o;
next unless $o->{'ORIGIN'} eq $process_this_origin;
$self->_escape_chars( $o );
$output .= "\$GENERATE $o->{range} $o->{lhs} $o->{ttl} $o->{class} $o->{type} $o->{rhs}\n";
}
}
return $output;
}
sub fqname {
my ( $self, $record_ref ) = @_;
# Is this an SOA record?
if ( $record_ref->{'origin'} ) {
if ( ( $record_ref->{'origin'} eq '@' ) || ( $record_ref->{'origin'} =~ /\.$/ ) ) {
return $record_ref->{'ORIGIN'};
} else {
if ( $record_ref->{'ORIGIN'} =~ /^\./ ) {
return $record_ref->{'origin'} . $record_ref->{'ORIGIN'};
}
return $record_ref->{'origin'} . '.' . $record_ref->{'ORIGIN'};
}
} else {
if ( $record_ref->{'name'} eq '@' ) {
return $record_ref->{'ORIGIN'};
} else {
if ( $record_ref->{'ORIGIN'} =~ /^\./ ) {
return $record_ref->{'name'} . $record_ref->{'ORIGIN'};
}
return $record_ref->{'name'} . '.' . $record_ref->{'ORIGIN'};
}
}
}
sub ttl_to_int {
my ( $self, $t ) = @_;
# Passed in nothing? Huh?
if ( !$t ) {
return 0;
}
# If it's all digits already, just pass it right back.
if ( $t =~ /^\d+$/ ) {
return $t;
}
# If it doesn't look like a valid TTL string, error. We know, because of
# the above test, that it's not just a number, if we got this far.
if ( $t !~ /^(?:\d+[WDHMS])+$/i ) {
die "Unknown TTL string format!\n";
}
$t = uc( $t );
my $r;
my %ttl;
while ( $t =~ /(\d+)([WDHMS])/g ) {
# Did we already see this modifier?
if ( defined $ttl{ $2 } ) { die "Invalid TTL!\n"; }
$ttl{ $2 } = $1;
}
foreach my $m ( qw/ W D H M S / ) {
if ( !exists $ttl{ $m } ) { $ttl{ $m } = 0; }
}
$r = $ttl{'W'} * 7;
$r = ( $r + $ttl{'D'} ) * 24;
$r = ( $r + $ttl{'H'} ) * 60;
$r = ( $r + $ttl{'M'} ) * 60;
$r = ( $r + $ttl{'S'} );
die unless $r == $ttl{'S'} + 60 * ( $ttl{'M'} + 60 * ( $ttl{'H'} + 24 * ( $ttl{'D'} + 7 * $ttl{'W'} ) ) );
return $r;
}
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# Private Methods
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
sub _initialize {
my $self = shift;
$dns_id{$self} = {};
$dns_soa{$self} = {};
$dns_ns{$self} = [];
$dns_a{$self} = [];
$dns_cname{$self} = [];
$dns_mx{$self} = [];
$dns_txt{$self} = [];
$dns_ptr{$self} = [];
$dns_a4{$self} = [];
$dns_srv{$self} = [];
$dns_hinfo{$self} = [];
$dns_rp{$self} = [];
$dns_loc{$self} = [];
$dns_generate{$self} = [];
$dns_last_name{$self} = undef;
$dns_last_origin{$self} = undef;
$dns_last_ttl{$self} = undef;
$dns_last_class{$self} = 'IN'; # Class defaults to IN.
$dns_found_origins{$self} = {};
$last_parse_error_count{$self} = 0;
return 1;
}
sub _load_file {
my ( $self, $zonefile, $origin ) = @_;
my $zone_contents;
if ( ref( $zonefile ) eq 'SCALAR' ) {
$zone_contents = $$zonefile;
} else {
my $inZONE;
if ( open( $inZONE, '<', $zonefile ) ) {
local $/;
$zone_contents = <$inZONE>;
close( $inZONE );
} else {
croak qq[DNS::ZoneParse Could not open input file: "$zonefile":$!];
}
}
if ( $self->_parse( $zonefile, $zone_contents, $origin ) ) { return 1; }
}
sub _parse {
# Support IsAlnum for unicode names.
use utf8;
my ( $self, $zonefile, $contents, $origin ) = @_;
$self->_initialize();
# Here's how we auto-detect the zonefile and origin. Note, the zonefile is
# only used to print out a comment in the file, so its okay if we're
# inaccurate. First, prefer what the user configures. Next, try to read a
# comment we would have written if we wrote the file out in the past.
# Finally, pick up any SOA or $ORIGIN statements present in the file.
if ( ref( $zonefile ) eq 'SCALAR' ) { $zonefile = ''; }
if ( !$origin || !$zonefile ) {
# I don't know why the ( dns)? capture is there, perhaps at one point
# this module wrote a different header comment? I'll leave it as to
# preserve whatever backwards compatability this affords us...
$contents =~ /^\s*;\s*Database file (\S+)( dns)? for (\S+) zone/im;
if ( !$origin && $3 ) { $origin = $3; }
if ( !$zonefile && $1 ) { $zonefile = $1; }
}
if ( $zonefile ) {
$zonefile = basename( $zonefile );
} else {
$zonefile = 'unknown';
}
if ( $origin ) {
# A trite way of insuring there is a trailing dot on the origin. It's
# really important you supply a trailing . in an origin when you mean
# it.
$origin =~ s/([^.])$/$1./;
} else {
$origin = '';
}
$dns_id{$self} = {
ZoneFile => $zonefile,
Origin => $origin,
};
my $records = $self->_clean_records( $contents );
# Everything valid in the name, except the '.' character.
my $valid_name_start_char = q/(?:[\p{IsAlnum}\@_\-*:+=!#$%^&`~,\[\]{}|?'\/]|/
. join( '|', map { "\\\\$_" } @ESCAPABLE_CHARACTERS ) . ')';
# The above, but adds the literal '.' character.
my $valid_name_char = qr/(?:$valid_name_start_char|[\.\\])/o;
my $valid_txt_char = qr/\S+/o;
my $valid_quoted_txt_char = qr/.+/o;
# Like the above, but adds whitespace (space and tabs) too.
my $valid_quoted_name_char = qr/(?:$valid_name_start_char|[. ;\t()\\])/o;
my $valid_name = qr/$valid_name_start_char$valid_name_char*/o;
my $valid_ip6 = qr/[\@a-zA-Z_\-\.0-9\*:]+/;
my $rr_type = qr/\b(?:NS|A|CNAME)\b/i;
#my $ttl_cls = qr/(?:($rr_ttl)\s)?(?:($rr_class)\s)?/o;
my $ttl_cls = qr/(?:\b((?:$rr_ttl)|(?:$rr_class))\s)?(?:\b((?:$rr_class)|(?:$rr_ttl))\s)?/o;
my $generate_range = qr{\d+\-\d+(?:/\d+)?};
my $last_good_line;
foreach ( @$records ) {
#TRACE( "parsing line <$_>" );
# It's faster to skip blank lines here than to remove them inside
# _clean_records.
next if /^\s*$/;
# The below is inside of an eval block to catch possible errors
# found inside _massage and propagate them up properly.
eval {
local $SIG{__DIE__} = 'DEFAULT';
if (
/^($valid_name)? \s+ # host
$ttl_cls # ttl & class
($rr_type) \s # record type
($valid_name) # record data
/ixo
)
{
my ( $name, $ttl, $class, $type, $host ) = ( $1, $2, $3, $4, $5 );
my $dns_thing =
uc $type eq 'NS' ? $dns_ns{$self}
: uc $type eq 'A' ? $dns_a{$self}
: $dns_cname{$self};
push @$dns_thing,
$self->_massage( {
name => $name,
class => $class,
host => $host,
ttl => $ttl,
} );
} elsif (
/^($valid_name)? \s+
$ttl_cls
AAAA \s
($valid_ip6)
/ixo
)
{
my ( $name, $ttl, $class, $host ) = ( $1, $2, $3, $4 );
push @{ $dns_a4{$self} },
$self->_massage( {
name => $name,
class => $class,
host => $host,
ttl => $ttl,
} );
} elsif (
/^($valid_name)? \s+
$ttl_cls
MX \s+
(\d+) \s+
($valid_name_char+)
/ixo
)
{
# host ttl class mx pri dest
my ( $name, $ttl, $class, $pri, $host ) = ( $1, $2, $3, $4, $5 );
push @{ $dns_mx{$self} },
$self->_massage( {
name => $name,
priority => $pri,
host => $host,
ttl => $ttl,
class => $class,
} );
} elsif (
/^($valid_name)? \s+
$ttl_cls
SRV \s+
(\d+) \s+
(\d+) \s+
(\d+) \s+
($valid_name)
/ixo
)
{
# host ttl class mx priority weight port dest
my ( $name, $ttl, $class, $pri, $weight, $port, $host ) = ( $1, $2, $3, $4, $5, $6, $7 );
push @{ $dns_srv{$self} },
$self->_massage( {
name => $name,
priority => $pri,
weight => $weight,
port => $port,
host => $host,
ttl => $ttl,
class => $class,
} );
} elsif (
/^($valid_name) \s+
$ttl_cls
SOA \s+
($valid_name) \s+
($valid_name) \s+
($rr_ttl) \s+
($rr_ttl) \s+
($rr_ttl) \s+
($rr_ttl) \s+
($rr_ttl)
/ixo
)
{
# SOA record
$dns_soa{$self} = $self->_massage( {
origin => $1,
ttl => $2,
class => $3,
primary => $4,
email => $5,
serial => $6,
refresh => $7,
retry => $8,
expire => $9,
minimumTTL => $10,
} );
if ( !$origin ) {
$origin = $1;
$dns_id{$self} = {
ZoneFile => $zonefile,
Origin => $origin,
};
}
} elsif (
/^($valid_name)? \s+
$ttl_cls
PTR \s+
($valid_name)
/ixo
)
{
# PTR
push @{ $dns_ptr{$self} },
$self->_massage( {
name => $1,
class => $3,
ttl => $2,
host => $4,
} );
} elsif (
/($valid_name)? \s+
$ttl_cls
TXT \s+
("$valid_quoted_txt_char*(?_massage( {
name => $1,
ttl => $2,
class => $3,
text => $4,
} );
} elsif (
/^\s*\$TTL \s+
($rr_ttl)
/ixo
) {
if ( !defined $dns_soa{$self} ) {
$dns_soa{$self}->{ttl} = $1;
}
$dns_last_ttl{$self} = $1;
} elsif (
/^($valid_name)? \s+
$ttl_cls
HINFO \s+
("$valid_quoted_txt_char*(?_massage( {
name => $1,
ttl => $2,
class => $3,
cpu => $4,
os => $5,
} );
} elsif (
/^($valid_name)? \s+
$ttl_cls
RP \s+
($valid_name_char+) \s+
($valid_name_char+)
/ixo
)
{
push @{ $dns_rp{$self} },
$self->_massage( {
name => $1,
ttl => $2,
class => $3,
mbox => $4,
text => $5,
} );
} elsif (
/^($valid_name)? \s+
$ttl_cls
LOC \s+
(-?[\d\.]+) \s*
([\d\.]*) \s*
([\d\.]*) \s+
([NS]) \s+
(-?[\d\.]+) \s*
([\d\.]*) \s*
([\d\.]*) \s+
([EW]) \s*
(-?[\d\.]*m?) \s*
([\d\.]*m?) \s*
([\d\.]*m?) \s*
([\d\.]*m?)
/ixo
)
{
push @{ $dns_loc{$self} },
$self->_massage( {
name => $1,
ttl => $2,
class => $3,
d1 => $4,
m1 => $5,
s1 => $6,
NorS => $7,
d2 => $8,
m2 => $9,
s2 => $10,
EorW => $11,
alt => $12,
siz => $13,
hp => $14,
vp => $15,
} );
} elsif ( /^\s*\$ORIGIN\s+($valid_name_char+)/io ) {
my $new_origin = $1;
# We could track each origins origin, all the way down, but what
# would that get us? Madness, surely.
if ( $new_origin !~ /\.$/ ) {
if ( $dns_last_origin{$self} =~ /^\./ ) {
$new_origin .= $dns_last_origin{$self};
} else {
$new_origin .= '.' . $dns_last_origin{$self};
}
}
$dns_last_origin{$self} = $new_origin;
$dns_found_origins{$self}->{ $new_origin } = 1;
} elsif ( /^ \s* \$GENERATE \s+
($generate_range) \s+ # range
($valid_name) \s+ # lhs
(?:($rr_ttl) \s+)? # ttl
(?:($rr_class) \s+)? # class
([a-z]+) \s+ # type
($valid_name) # rhs
/ixo
)
{
push @{ $dns_generate{$self} },
$self->_massage( {
range => $1,
lhs => $2,
ttl => $3,
class => $4,
type => $5,
rhs => $6,
} );
} else {
die "Unknown record type\n";
}
}; # End of eval block.
if ( $@ ) {
chomp $@;
$last_parse_error_count{$self}++;
if ( $unparseable_line_callback{$self} ) {
$unparseable_line_callback{$self}->( $self, $_, $@, $last_good_line );
} else {
carp "Unparseable line ($@)\n $_\n";
}
} else {
$last_good_line = $_;
}
}
return 1;
}
sub _clean_records {
my $self = shift;
my $zone = shift;
my $x = 0;
my $in_comment = 0;
my $in_quote = 0;
my $in_concat = 0;
my $last_char = '';
my $next_is_escaped = 0;
my @lines;
$zone =~ s/\r\n/\n/sg;
$zone =~ s{[ \t]+}{ }g; # Collapse whitespace, turn TABs to spaces.
# Trim comments, handle parentheses and some escape sequences.
while (1) {
my $c = substr( $zone, $x, 1 );
# If we're not in a comment then process parentheses, braces, comment
# tags, and quotes. If not, just look for the newline.
if ( !$in_comment ) {
if ( !$next_is_escaped ) {
if ( $c eq '"' ) {
$in_quote = !$in_quote;
} elsif ( $c eq '\\' ) {
$next_is_escaped = 1;
} elsif ( !$in_quote ) {
if ( $c eq ';' ) {
$in_comment = 1;
substr( $zone, $x, 1 ) = '';
$x--;
} elsif ( $c eq '(' ) {
substr( $zone, $x, 1 ) = ' ';
$in_concat++;
} elsif ( ( $in_concat ) && ( $c eq ')' ) ) {
substr( $zone, $x, 1 ) = ' ';
$in_concat--;
}
}
} else {
$next_is_escaped = 0;
}
} elsif ( $c ne "\n" ) {
substr( $zone, $x, 1 ) = '';
$x--;
}
if ( $c eq "\n" ) {
$in_comment = 0;
if ( $in_concat ) {
substr( $zone, $x, 1 ) = '';
$x--;
}
}
$x++;
if ( $x >= length( $zone ) ) { last; }
$last_char = $c;
}
return [ split( /\n/, $zone ) ];
}
sub _massage {
my ( $self, $record ) = @_;
foreach my $r ( keys %$record ) {
if ( !defined $record->{$r} ) {
$record->{$r} = '';
next;
}
if ( exists $possibly_quoted{$r} ) {
( $record->{$r} =~ s/^"// ) && ( $record->{$r} =~ s/"$// );
}
# We return email addresses just as they are in the file... for better
# or worse (mostly for backwards compatability reasons).
if ( $r ne 'email' && $r ne 'mbox' ) {
while ( $record->{$r} =~ m/\\/g ) {
my $pos = pos( $record->{$r} );
my $escape_char = substr( $record->{$r}, $pos, 1 );
if ( $escape_char =~ /\d/ ) {
$escape_char = substr( $record->{$r}, $pos, 3 );
# Max oct value that converts to 255 in dec.
if ( ( $escape_char =~ /^\d{3}$/ ) && ( $escape_char <= 377 ) ) {
substr( $record->{$r}, $pos - 1, 4 ) = chr( oct( $escape_char ) );
} else {
die "Invalid escape sequence\n";
}
} else {
# Not followed by a digit, so just remove the backslash.
# Like BIND does...
substr( $record->{$r}, $pos - 1, 2 ) = $escape_char;
}
pos( $record->{$r} ) = $pos;
}
}
}
if (
( ( $record->{'class'} =~ $rr_class ) && ( $record->{'ttl'} =~ $rr_class ) )
||
( ( $record->{'class'} =~ $rr_ttl ) && ( $record->{'ttl'} =~ $rr_ttl ) )
) {
die "Invalid ttl/class values!\n";
};
if ( ( $record->{'class'} =~ $rr_ttl ) || ( $record->{'ttl'} =~ $rr_class ) ) {
my $x = $record->{'class'};
$record->{'class'} = $record->{'ttl'};
$record->{'ttl'} = $x;
}
if ( $record->{'class'} ) {
$record->{'class'} = uc $record->{'class'};
$dns_last_class{$self} = $record->{'class'};
} else {
# This case should never happen, because we supply a default.
#if ( !defined $dns_last_class{$self} ) {
# die "No class defined!\n";
#}
$record->{'class'} = $dns_last_class{$self};
}
# This is silly, but we don't know what type of record we are massaging at
# this point. We can detect an SOA record because it's the only type that
# supplies this value, which is what we need to do here to properly set
# the owner.
if ( exists $record->{'minimumTTL'} ) {
$dns_last_name{$self} = $record->{'origin'};
# In the case of an SOA record, we fall back to the minimumTTL value
# when a TTL isn't otherwise specified. This is what BIND does.
if ( $record->{'ttl'} ) {
$record->{'ttl'} = $dns_last_ttl{$self} = uc( $record->{'ttl'} );
} else {
if ( $dns_last_ttl{$self} ) {
$record->{'ttl'} = $dns_last_ttl{$self};
} else {
$record->{'ttl'} = $dns_last_ttl{$self} = uc( $record->{'minimumTTL'} );
}
}
if ( $record->{'origin'} eq '@' ) {
# We encountered a @ SOA line without an origin directive above
# it, so we will try and guess the origin.
if ( !$dns_last_origin{$self} ) {
if ( !$dns_id{$self}->{'Origin'} ) {
die "Unknown origin\n";
}
$dns_last_origin{$self} = $dns_id{$self}->{'Origin'};
}
$record->{'ORIGIN'} = $dns_last_origin{$self};
} else {
my $new_origin = $record->{'origin'};
# Similar to above, it's origins all the way down. Don't bother
# tracking each separately, just collapse them all into the
# current origin.
if ( $new_origin =~ /\.$/ ) {
# If no one has set an $ORIGIN before, we need to use the SOA
# line to do it.
if ( !$dns_last_origin{$self} ) {
$dns_last_origin{$self} = $new_origin;
}
}
# Now we have a valid ORIGIN for this SOA, so assign it.
$record->{'ORIGIN'} = $dns_last_origin{$self};
}
# Alright, make sure we know we found this origin.
$dns_found_origins{$self}->{ $record->{'ORIGIN'} } = 1;
# Not an SOA record.
} else {
# The silliness continues: only $GENERATE directives have a lhs, and
# don't need a 'name'.
if ( !exists $record->{'lhs'} ) {
if ( $record->{'name'} ) {
$dns_last_name{$self} = $record->{'name'};
} else {
#TRACE( "Record has no name, using last name" );
if ( !$dns_last_name{$self} ) {
die "No current owner name\n";
}
$record->{'name'} = $dns_last_name{$self};
}
}
if ( !$dns_last_origin{$self} ) {
die "Unknown origin\n";
} else {
$record->{'ORIGIN'} = $dns_last_origin{$self};
}
# Nothing special about TTL parsing for non-SOA records.
if ( $record->{'ttl'} ) {
$record->{'ttl'} = $dns_last_ttl{$self} = uc( $record->{'ttl'} );
} else {
if ( !defined $dns_last_ttl{$self} ) {
die "No ttl defined!\n";
}
$record->{'ttl'} = $dns_last_ttl{$self};
}
}
#DUMP( "Record parsed", $record );
return $record;
}
sub _escape_chars {
my $self = shift;
my $clean_me = shift;
local $" = '|';
foreach my $k ( keys( %{$clean_me} ) ) {
$clean_me->{$k} =~ s/(@ESCAPABLE_CHARACTERS)/\\$1/g;
}
}
sub TRACE { 0 && print @_, $/ }
sub DUMP { 0 && require Data::Dumper && TRACE( shift, Data::Dumper::Dumper( @_ ) ) }
1;
__END__
=head1 NAME
DNS::ZoneParse - Parse and manipulate DNS Zone Files.
=head1 SYNOPSIS
use DNS::ZoneParse;
my $zonefile = DNS::ZoneParse->new("/path/to/dns/zonefile.db", $origin);
# Get a reference to the MX records
my $mx = $zonefile->mx;
# Change the first mailserver on the list
$mx->[0] = { host => 'mail.localhost.com',
priority => 10,
name => '@' };
# update the serial number
$zonefile->new_serial();
# write the new zone file to disk
my $newzone;
open($newzone, '>', '/path/to/dns/zonefile.db') or die "error";
print $newzone $zonefile->output();
close $newzone;
=head1 INSTALLATION
perl Makefile.PL
make
make test
make install
Win32 users substitute "make" with "nmake" or equivalent.
nmake is available at http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe
=head1 DESCRIPTION
This module will parse a Zone File and put all the Resource Records (RRs)
into an anonymous hash structure. Various record types are supported, see the
L section for details. It could be useful for maintaining DNS zones,
or for transferring DNS zones to other servers. If you want to generate an
XML-friendly version of your zone files, it is easy to use XML::Simple with
this module once you have parsed the zone file.
DNS::ZoneParse scans the DNS zone file - removes comments and seperates
the file into its constituent records. It then parses each record and
stores the records internally. See below for information on the accessor
methods.
=head2 METHODS
=over 4
=item new
This creates the DNS::ZoneParse object and loads the zone file.
Example:
my $zonefile = DNS::ZoneParse->new("/path/to/zonefile.db");
You can also initialise the object with the contents of a file:
my $zonefile = DNS::ZoneParse->new( \$zone_contents );
You can pass a second, optional parameter to the constructor to supply an
C<$origin> if none can be found in the zone file.
my $zonefile = DNS::ZoneParse->new( \$zone_contents, $origin );
You can pass a third, optional parameter to the constructor to supply a
callback which will be called whenever an unparsable line is encountered in
the zone file. See C for details on this parameter and
how errors are handled when parsing zone files.
If you plan to pass a on_unparseable_line callback but do not wish to specify
an C<$origin>, pass 'undef' as the C<$origin> parameter.
=item a(), cname(), srv(), mx(), ns(), ptr(), txt(), hinfo(), rp(), loc()
These methods return references to the resource records. For example:
my $mx = $zonefile->mx;
Returns the mx records in an array reference.
All records (except SOA) have the following properties: 'ttl', 'class',
'host', 'name', 'ORIGIN'.
MX records also have a 'priority' property.
SRV records also have 'priority', 'weight' and 'port' properties.
TXT records also have a 'text' property representing the record's 'txt-data'
descriptive text.
HINFO records also have 'cpu' and 'os' properties.
RP records also have 'mbox' and 'text' properties.
LOC records also have 'd1', 'm1', 's1', 'NorS', 'd2', 'm2', 's2', 'EorW',
'alt', 'siz', 'hp', and 'vp', as per RFC 1876.
If there are no records of a given type in the zone, the call will croak with
an error message about an invalid method. (This is not an ideal behavior, but
has been kept for backwards compatibility.)
The 'ORIGIN' property is the fully-qualified origin of the record. See
L for details on constructing a fully qualified domain name. Note: for
SOA records, the 'ORIGIN' will match the 'origin' property when the SOA record
is specified as fully qualified.
=item soa()
Returns a hash reference with the following properties:
'serial', 'origin', 'primary', 'refresh', 'retry', 'ttl', 'minimumTTL',
'email', 'expire', 'class', 'ORIGIN'.
The 'ORIGIN' property is returned separate from 'origin' property, though the
data may be the same. 'ORIGIN' represents the implicit origin for the record
while 'origin' represents the origin specified on the SOA line in the file.
If the 'origin' value is relative (that is, does not end with a '.'), the
actual zone for which the SOA line applies must be computed by concatenating
the 'origin' and 'ORIGIN' values. See L for details. If the 'origin'
value is absolute, no computation is necessary and 'origin' is the same as
'ORIGIN'.
=item generate()
Returns an array of hashes representing $GENERATE directives present in the
zone. Note, $GENERATE directives are BIND-specific additions. They are not
expanded by DNS::ZoneParse, but users are able to access and modify these
directives. The following properties are returned:
'range', 'lhs', 'ttl', 'class', 'type', 'rhs', 'ORIGIN'.
See the BIND documentation for details on the syntax and usage of the $GENERATE
directive.
=item dump
Returns a copy of the datastructute that stores all the resource records. This
might be useful if you want to quickly transform the data into another format,
such as XML.
=item fqname
Takes a single parameter, a hash reference containing a record.
Returns the fully qualified name of this record, with a trailing '.'. In most
cases this is as simple as concatenating the 'name' and 'ORIGIN' with a '.'
unless 'name' is '@', in which case the fqname is simply the 'ORIGIN'. For
SOA records, the same process is performed on the 'origin' instead of 'name'.
Please note, fqname will not expand the right hand side of a record (ie,
CNAME, SOA, MX, etc). The user must expand these values via the above method.
=item ttl_to_int
Takes a single parameter, a string representing a valid record TTL.
Returns an integer representing the number of seconds the TTL represents.
Note, this does not take into account any leap-years, leap-seconds, DST
changes, etc. It is simply the count of the number of seconds in the specified
period of time.
=item new_serial
C incriments the Zone serial number. It will generate a
date-based serial number. Or you can pass a positive number to add to the
current serial number.
Examples:
$zonefile->new_serial();
# generates a new serial number based on date:
# YYYYmmddHH format, incriments current serial
# by 1 if the new serial is still smaller
$zonefile->new_serial(50);
# adds 50 to the original serial number
=item output
C returns the new zone file output as a string. If you wish your
output formatted differently, you can pass the output of C to your
favourite templating module.
=item last_parse_error_count
Returns a count of the number of unparsable lines from the last time a
zone file was parsed. If no zone file has been parsed yet, returns 0.
If you want to be sure that a zone file was parsed completely and without
error, the return value of this method should be checked after the constructor
is called (or after a call to _parse).
=item on_unparseable_line
C is an accessor method for the callback used when an
unparseable line is encountered while parsing a zone file. If not set,
DNS::ZoneParse will C when an unparsable line is encountered, but will
continue to parse the file. Each time an unparsable line is encountered, an
internal counter is incrememnted. See C for details.
The callback is passed four parameters, a reference to the DNS::ZoneParse
object which is doing the parsing, the text of the line that is unable to be
parsed, the text of the reason the line could not be parsed, and the text of
the last successfully parsed line.
If you want to abort parsing when an unparsable line is found, call C
from within your callback and catch that die with an eval block around the
DNS::ZoneParse constructor (or call to _parse).
The method takes a single optional parameter, a code reference to the function
that will be called when an unparsable line is reached. Returns a reference to
the last callback. If passed an undefined value, a reference to the current
callback is returned. If passed any other value, undef is returned.
=back
=head2 EXAMPLES
This script will print the A records in a zone file, add a new A record for the
name "new" and then return the zone file.
use strict;
use DNS::ZoneParse;
my $zonefile = DNS::ZoneParse->new("/path/to/zonefile.db");
print "Current A Records\n";
my $a_records = $zonefile->a();
foreach my $record (@$a_records) {
print "$record->{name} resolves at $record->{host}\n";
}
push (@$a_records, { name => 'new', class => 'IN',
host => '127.0.0.1', ttl => '' });
$zonefile->new_serial();
my $newfile = $zonefile->output();
This script will convert a DNS Zone file to an XML file using XML::Simple.
use strict;
use DNS::ZoneParse;
use XML::Simple;
my $zonefile = DNS::ZoneParse->new("/path/to/zonefile.db");
my $new_xml = XMLout($zonefile->dump,
noattr => 1,
suppressempty => 1,
rootname => $zonefile->origin);
=head1 CHANGES
See F
=head1 API
The DNS::ZoneParse API may change in future versions. At present, the parsing
is not as strict as it should be and support for C<$ORIGIN> and C<$TTL> is
quite basic. It would also be nice to support the C
statement. Furthermore, parsing large zone files with thousands of records can
use lots of memory - some people have requested a callback interface.
=head1 BUGS
I can squash more bugs with your help. Please let me know if you spot something
that doesn't work as expected.
You can report bugs via the CPAN RT:
L
If possible, please provide a diff against F and
F that demonstrates the bug(s).
=head1 SEE ALSO
Other modules with similar functionality:
Net::DNS::ZoneParser, Net::DNS::ZoneFile, DNS::ZoneFile
=head1 AUTHOR
Simon Flack
=head1 MAINTENANCE
Maintainers: Mike Schilli (m@perlmeister.com), John Eaglesham (perl@8192.net).
Bug queue: http://rt.cpan.org/Public/Dist/Display.html?Name=DNS-ZoneParse
=head1 LICENSE
DNS::ZoneParse is free software which you can redistribute and/or modify under
the same terms as Perl itself.
=cut
PK q6[i Sys/Hostname/FQDN.pmnu W+A PK B[{ w Log/Syslog/Fast/PP.pmnu W+A PK B[^k & Log/Syslog/Fast/XS.pmnu W+A PK B[+5I I D* Log/Syslog/Fast/Simple.pmnu W+A PK B[x 9 Log/Syslog/Fast.pmnu W+A PK B[ 9 W auto/Sys/Hostname/FQDN/FQDN.sonu W+A PK B[l1 $ auto/Sys/Hostname/FQDN/.packlistnu W+A PK B[ &% auto/Log/Syslog/Fast/Fast.bsnu W+A PK B[Sc
r% auto/Log/Syslog/Fast/.packlistnu W+A PK B[
! { ' auto/Log/Syslog/Fast/Fast.sonu W+A PK B[#d d # auto/Log/Syslog/Constants/.packlistnu W+A PK B[UQVU U auto/DNS/ZoneParse/.packlistnu W+A PK T[bml l + Log/Syslog/Constants.pmnu W+A PK T[x ^ ^ DNS/ZoneParse.pmnu W+A PK |