/usr/share/perl5/Email/Outlook/Message/AddressInfo.pm is in libemail-outlook-message-perl 0.917-1.
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 | package Email::Outlook::Message::AddressInfo;
=head1 NAME
Email::Outlook::Message::AddressInfo - Handle addres data in .msg files
=head1 DESCRIPTION
This is an internal module of Email::Outlook::Message. It is a subclass of
Email::Outlook::Message::Base.
=head1 METHODS
=over 8
=item B<address()>
=item B<address_type()>
=item B<display_address()>
=item B<name()>
=item B<smtp_address()>
=back
=head1 AUTHOR
Matijs van Zuijlen, C<matijs@matijs.net>
=head1 COPYRIGHT AND LICENSE
Copyright 2002--2014 by Matijs van Zuijlen
This module is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
use strict;
use warnings;
use Carp;
use base 'Email::Outlook::Message::Base';
our $MAP_ADDRESSITEM_FILE = {
'3001' => "NAME", # Real name
'3002' => "TYPE", # Address type
'403D' => "TYPE2", # Address type TODO: Not used
'3003' => "ADDRESS", # Address
'403E' => "ADDRESS2", # Address TODO: Not used
'39FE' => "SMTPADDRESS", # SMTP Address variant
};
sub _property_map {
return $MAP_ADDRESSITEM_FILE;
}
# DIR Entries: There should be none.
sub _process_subdirectory {
my ($self, $pps) = @_;
$self->_warn_about_unknown_directory($pps);
return;
}
sub name { my $self = shift; return $self->property('NAME') }
sub address_type { my $self = shift; return $self->property('TYPE') }
sub address { my $self = shift; return $self->property('ADDRESS') }
sub smtp_address { my $self = shift; return $self->property('SMTPADDRESS') }
sub display_address {
my $self = shift;
my $addresstext = $self->name . " <";
if (defined ($self->smtp_address)) {
$addresstext .= $self->smtp_address;
} elsif ($self->address_type eq "SMTP") {
$addresstext .= $self->address;
}
$addresstext .= ">";
return $addresstext;
}
sub _property_stream_header_length { return 8; }
1;
|