walking.or.kr:80

Linux gcloud-seoul-ac4c28f9ef4b3e1b6ecaa706e0113ee7 3.10.0-1160.114.2.el7.x86_64 #1 SMP Wed Mar 20 15:54:52 UTC 2024 x86_64
Apache/2.4.6 (CentOS) OpenSSL/1.0.2k-fips PHP/7.4.33
10.25.199.2

File Name : Mailbox.pm

package Net::DNS::Mailbox;
use base qw(Net::DNS::DomainName);

#
# $Id: Mailbox.pm 1096 2012-12-28 13:35:15Z willem $
#
use vars qw($VERSION);
$VERSION = (qw$LastChangedRevision: 1096 $)[1]; # Unchanged since 1055

=head1 NAME

Net::DNS::Mailbox - DNS mailbox representation

=head1 SYNOPSIS

use Net::DNS::Mailbox;

$mailbox = new Net::DNS::Mailbox('user@example.com');
    $address = $mailbox->address;

=head1 DESCRIPTION

The Net::DNS::Mailbox module implements a subclass of DNS domain name
objects representing the DNS coded form of RFC822 mailbox address.

=cut

use strict;
use Carp;

=head1 METHODS

=head2 new

$mailbox = new Net::DNS::Mailbox('John.Doe@example.com');
    $mailbox = new Net::DNS::Mailbox('John Doe <j.doe@example.com>');

Creates a mailbox object which represents the DNS domain encoded form
of the mail address specified by the character string argument.

The argument string consists of printable characters from the 7-bit
ASCII repertoire.

=cut

sub new {
	my $class = shift;
	local $_ = shift;
	confess 'undefined mail address' unless defined $_;

s/^.*<//g;						# strip excess on left
	s/>.*$//g;						# strip excess on right

s/\\\@/\\064/g;						# disguise escaped @
	s/^(".*)\@(.*")/$1\\064$2/g;				# disguise quoted @

my ( $mbox, @host ) = split /\@/;			# split on @ if present
	for ( $mbox ||= '' ) {
		s/\\\s/\\032/g;					# disguise escaped white space
		s/^(".*)\s+(.*")/$1\\032$2/g;			# disguise quoted white space
		s/^"(.*)"/$1/;					# strip quotes
		s/\\\./\\046/g;					# disguise escaped dot
		s/\./\\046/g if @host;				# escape dots in local part
	}

bless __PACKAGE__->SUPER::new( join '.', $mbox, @host ), $class;
}

=head2 address

$address = $mailbox->address;

Returns a character string containing the RFC822 mailbox address
corresponding to the encoded domain name representation described
in RFC1035 section 8.

=cut

sub address {
	my @label = shift->label;
	local $_ = shift(@label) || return '<>';
	s/\\\./\./g;						# unescape dots
	s/\\032/ /g;						# unescape space
	s/^(.+)$/"$1"/ if /[ ",@\[\\\]]/;			# quote local part
	return join '@', $_, join( '.', @label ) || ();
}

########################################

=head1 DOMAIN NAME COMPRESSION AND CANONICALISATION

The Net::DNS::Mailbox1035 and Net::DNS::Mailbox2535 subclass
packages implement RFC1035 domain name compression and RFC2535
canonicalisation.

=cut

package Net::DNS::Mailbox1035;
use base qw(Net::DNS::DomainName1035);

sub new { &Net::DNS::Mailbox::new; }

sub address { &Net::DNS::Mailbox::address; }

package Net::DNS::Mailbox2535;
use base qw(Net::DNS::DomainName2535);

sub new { &Net::DNS::Mailbox::new; }

sub address { &Net::DNS::Mailbox::address; }

1;
__END__

########################################

=head1 COPYRIGHT

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

=head1 SEE ALSO

L<perl>, L<Net::DNS>, L<Net::DNS::DomainName>, RFC822, RFC1035, RFC5322

=cut

System Information
*ReClick For Close
File : BlackDragon /bbs/upfile/notice/202307230555476_1.php

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2018-07-25 03:11:00
..	dir	-	root/root	0755	2018-07-25 03:11:15
RR	dir	-	root/root	0755	2018-07-25 03:11:00
Resolver	dir	-	root/root	0755	2018-07-25 03:11:00
Domain.pm	text/plain	8.43 KB	root/root	0644	2012-12-28 01:35:30
DomainName.pm	text/plain	6.87 KB	root/root	0644	2012-12-28 01:35:30
FAQ.pod	text/plain	1.09 KB	root/root	0644	2012-12-28 01:22:41
Header.pm	text/plain	9.76 KB	root/root	0644	2016-11-05 03:31:09
Mailbox.pm	text/plain	2.99 KB	root/root	0644	2012-12-28 01:35:30
Packet.pm	text/plain	20.53 KB	root/root	0644	2016-11-05 03:31:09
Parameters.pm	text/plain	8.04 KB	root/root	0644	2012-12-28 01:22:41
Question.pm	text/plain	7.39 KB	root/root	0644	2012-12-28 01:22:41
RR.pm	text/plain	21.42 KB	root/root	0644	2012-12-28 01:22:41
Resolver.pm	text/plain	20.67 KB	root/root	0644	2012-12-28 01:22:41
Text.pm	text/plain	6.2 KB	root/root	0644	2012-12-28 01:22:41
Update.pm	text/plain	5.54 KB	root/root	0644	2012-12-28 01:35:30
ZoneFile.pm	text/plain	12.57 KB	root/root	0644	2012-12-28 01:22:41