Gecko [ georgetownmover.com ]

Linux sagir-us1.hostever.us 5.14.0-570.51.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Oct 8 09:41:34 EDT 2025 x86_64
LiteSpeed
Server IP : 104.247.108.91 & Your IP : 216.73.216.105
Domains : 74 Domain
User : georgeto

Name	Size	Permission	Date
AuthenticationResults	[ DIR ]	drwxr-xr-x	2025-02-25 04:07
DKIM	[ DIR ]	drwxr-xr-x	2025-02-25 04:07
Field	[ DIR ]	drwxr-xr-x	2025-02-25 04:07
Mailer	[ DIR ]	drwxr-xr-x	2025-02-25 04:07
SPF	[ DIR ]	drwxr-xr-x	2025-02-25 04:07
SpamAssassin	[ DIR ]	drwxr-xr-x	2025-02-25 04:07
Address.pm	6.84 KB	-rw-r--r--	2019-05-21 14:26
Address.pod	4.07 KB	-rw-r--r--	2019-05-21 14:26
AuthenticationResults.pm	1.67 KB	-rw-r--r--	2021-01-12 22:10
Cap.pm	6.42 KB	-rw-r--r--	2019-05-21 14:26
Cap.pod	3.78 KB	-rw-r--r--	2019-05-21 14:26
DKIM.pm	3.83 KB	-rw-r--r--	2020-09-07 05:49
Field.pm	4.94 KB	-rw-r--r--	2019-05-21 14:26
Field.pod	4.91 KB	-rw-r--r--	2019-05-21 14:26
Filter.pm	1.44 KB	-rw-r--r--	2019-05-21 14:26
Filter.pod	2.82 KB	-rw-r--r--	2019-05-21 14:26
Header.pm	13.82 KB	-rw-r--r--	2019-05-21 14:26
Header.pod	7.76 KB	-rw-r--r--	2019-05-21 14:26
Internet.pm	11.98 KB	-rw-r--r--	2019-05-21 14:26
Internet.pod	10.24 KB	-rw-r--r--	2019-05-21 14:26
Mailer.pm	4.94 KB	-rw-r--r--	2019-05-21 14:26
Mailer.pod	4.1 KB	-rw-r--r--	2019-05-21 14:26
SPF.pm	2.31 KB	-rw-r--r--	2022-02-16 08:24
Send.pm	1.35 KB	-rw-r--r--	2019-05-21 14:26
Send.pod	3.17 KB	-rw-r--r--	2019-05-21 14:26
SpamAssassin.pm	69.57 KB	-r--r--r--	2021-04-09 08:28
Util.pm	3.36 KB	-rw-r--r--	2019-05-21 14:26
Util.pod	3.09 KB	-rw-r--r--	2019-05-21 14:26

Rename

# Copyrights 1995-2019 by [Mark Overmeer <markov@cpan.org>].
#  For other contributors see ChangeLog.
# See the manual pages for details on the licensing terms.
# Pod stripped from pm file by OODoc 2.02.
# This code is part of the bundle MailTools.  Meta-POD processed with
# OODoc into POD and HTML manual-pages.  See README.md for Copyright.
# Licensed under the same terms as Perl itself.

package Mail::Send;
use vars '$VERSION';
$VERSION = '2.21';

use strict;

use Mail::Mailer ();

sub Version { our $VERSION }

#------------------

sub new(@)
{   my ($class, %attr) = @_;
    my $self = bless {}, $class;

while(my($key, $value) = each %attr)
    {	$key = lc $key;
        $self->$key($value);
    }

$self;
}

#---------------

sub set($@)
{   my ($self, $hdr, @values) = @_;
    $self->{$hdr} = [ @values ] if @values;
    @{$self->{$hdr} || []};	# return new (or original) values
}

sub add($@)
{   my ($self, $hdr, @values) = @_;
    push @{$self->{$hdr}}, @values;
}

sub delete($)
{   my($self, $hdr) = @_;
    delete $self->{$hdr};
}

sub to		{ my $self=shift; $self->set('To', @_); }
sub cc		{ my $self=shift; $self->set('Cc', @_); }
sub bcc		{ my $self=shift; $self->set('Bcc', @_); }
sub subject	{ my $self=shift; $self->set('Subject', join (' ', @_)); }

#---------------

sub open(@)
{   my $self = shift;
    Mail::Mailer->new(@_)->open($self);
}