/usr/lib/perl5/Net/DNS/Mailbox.pm is in libnet-dns-perl 0.68-1.2build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 | package Net::DNS::Mailbox;
use base qw(Net::DNS::DomainName);
#
# $Id: Mailbox.pm 970 2011-12-13 10:51:06Z willem $
#
use vars qw($VERSION);
$VERSION = (qw$LastChangedRevision: 970 $)[1];
=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/\\\./\\046/g; # disguise escaped .
s/\\\@/\\064/g; # disguise escaped @
my ( $mbox, @host ) = split /\@/; # split on @ if present
$mbox ||= '';
$mbox =~ s/\./\\046/g if @host; # escape dots
bless __PACKAGE__->SUPER::new( join '.', $mbox, @host ), $class;
}
=head2 address
$address = $mailbox->address;
Returns a character string corresponding to the RFC822 form of
mailbox address of the domain as described in RFC1035 section 8.
The string consists of printable characters from the 7-bit ASCII
repertoire.
=cut
sub address {
my @label = shift->label;
local $_ = shift(@label) || return '<>';
s/\\\./\./g; # unescape dots
s/\@/\\@/g; # escape @
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
Copyright (c)2009,2010 Dick Franks.
All rights reserved.
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
|