1:45 PM 11/12/2025 ���� JFIF    �� �        "" $(4,$&1'-=-157:::#+?D?8C49:7 7%%77777777777777777777777777777777777777777777777777��  { �" ��     �� 5    !1AQa"q�2��BR��#b�������  ��  ��   ? ��D@DDD@DDD@DDkK��6 �UG�4V�1�� �����릟�@�#���RY�dqp� ����� �o�7�m�s�<��VPS�e~V�چ8���X�T��$��c�� 9��ᘆ�m6@ WU�f�Don��r��5}9��}��hc�fF��/r=hi�� �͇�*�� b�.��$0�&te��y�@�A�F�=� Pf�A��a���˪�Œ�É��U|� � 3\�״ H SZ�g46�C��צ�ے �b<���;m����Rpع^��l7��*�����TF�}�\�M���M%�'�����٠ݽ�v� ��!-�����?�N!La��A+[`#���M����'�~oR�?��v^)��=��h����A��X�.���˃����^Ə��ܯsO"B�c>; �e�4��5�k��/CB��.  �J?��;�҈�������������������~�<�VZ�ꭼ2/)Í”jC���ע�V�G�!���!�F������\�� Kj�R�oc�h���:Þ I��1"2�q×°8��Р@ז���_C0�ր��A��lQ��@纼�!7��F�� �]�sZ B�62r�v�z~�K�7�c��5�.���ӄq&�Z�d�<�kk���T&8�|���I���� Ws}���ǽ�cqnΑ�_���3��|N�-y,��i���ȗ_�\60���@��6����D@DDD@DDD@DDD@DDD@DDc�KN66<�c��64=r����� ÄŽ0��h���t&(�hnb[� ?��^��\��â|�,�/h�\��R��5�? �0�!צ܉-����G����٬��Q�zA���1�����V��� �:R���`�$��ik��H����D4�����#dk����� h�}����7���w%�������*o8wG�LycuT�.���ܯ7��I��u^���)��/c�,s�Nq�ۺ�;�ך�YH2���.5B���DDD@DDD@DDD@DDD@DDD@V|�a�j{7c��X�F\�3MuA×¾hb� ��n��F������ ��8�(��e����Pp�\"G�`s��m��ާaW�K��O����|;ei����֋�[�q��";a��1����Y�G�W/�߇�&�<���Ќ�H'q�m���)�X+!���=�m�ۚ丷~6a^X�)���,�>#&6G���Y��{����"" """ """ """ """ ""��at\/�a�8 �yp%�lhl�n����)���i�t��B�������������?��modskinlienminh.com - WSOX ENC ‰PNG  IHDR Ÿ f Õ†C1 sRGB ®Îé gAMA ± üa pHYs à ÃÇo¨d GIDATx^íÜL”÷ð÷Yçªö("Bh_ò«®¸¢§q5kÖ*:þ0A­ºšÖ¥]VkJ¢M»¶f¸±8\k2íll£1]q®ÙÔ‚ÆT h25jguaT5*！‰PNG  IHDR Ÿ f Õ†C1 sRGB ®Îé gAMA ± üa pHYs à ÃÇo¨d GIDATx^íÜL”÷ð÷Yçªö("Bh_ò«®¸¢§q5kÖ*:þ0A­ºšÖ¥]VkJ¢M»¶f¸±8\k2íll£1]q®ÙÔ‚ÆT h25jguaT5*！
Warning: Undefined variable $authorization in C:\xampp\htdocs\demo\fi.php on line 57

Warning: Undefined variable $translation in C:\xampp\htdocs\demo\fi.php on line 118

Warning: Trying to access array offset on value of type null in C:\xampp\htdocs\demo\fi.php on line 119

Warning: file_get_contents(https://raw.githubusercontent.com/Den1xxx/Filemanager/master/languages/ru.json): Failed to open stream: HTTP request failed! HTTP/1.1 404 Not Found in C:\xampp\htdocs\demo\fi.php on line 120

Warning: Cannot modify header information - headers already sent by (output started at C:\xampp\htdocs\demo\fi.php:1) in C:\xampp\htdocs\demo\fi.php on line 247

Warning: Cannot modify header information - headers already sent by (output started at C:\xampp\htdocs\demo\fi.php:1) in C:\xampp\htdocs\demo\fi.php on line 248

Warning: Cannot modify header information - headers already sent by (output started at C:\xampp\htdocs\demo\fi.php:1) in C:\xampp\htdocs\demo\fi.php on line 249

Warning: Cannot modify header information - headers already sent by (output started at C:\xampp\htdocs\demo\fi.php:1) in C:\xampp\htdocs\demo\fi.php on line 250

Warning: Cannot modify header information - headers already sent by (output started at C:\xampp\htdocs\demo\fi.php:1) in C:\xampp\htdocs\demo\fi.php on line 251

Warning: Cannot modify header information - headers already sent by (output started at C:\xampp\htdocs\demo\fi.php:1) in C:\xampp\htdocs\demo\fi.php on line 252
# Copyrights 1995-2024 by [Mark Overmeer ]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.03. # 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::Address;{ our $VERSION = '2.22'; } use strict; use Carp; # use locale; removed in version 1.78, because it causes taint problems sub Version { our $VERSION } # given a comment, attempt to extract a person's name sub _extract_name { # This function can be called as method as well my $self = @_ && ref $_[0] ? shift : undef; local $_ = shift or return ''; # Using encodings, too hard. See Mail::Message::Field::Full. return '' if m/\=\?.*?\?\=/; # trim whitespace s/^\s+//; s/\s+$//; s/\s+/ /; # Disregard numeric names (e.g. 123456.1234@compuserve.com) return "" if /^[\d ]+$/; s/^\((.*)\)$/$1/; # remove outermost parenthesis s/^"(.*)"$/$1/; # remove outer quotation marks s/\(.*?\)//g; # remove minimal embedded comments s/\\//g; # remove all escapes s/^"(.*)"$/$1/; # remove internal quotation marks s/^([^\s]+) ?, ?(.*)$/$2 $1/; # reverse "Last, First M." if applicable s/,.*//; # Change casing only when the name contains only upper or only # lower cased characters. unless( m/[A-Z]/ && m/[a-z]/ ) { # Set the case of the name to first char upper rest lower s/\b(\w+)/\L\u$1/igo; # Upcase first letter on name s/\bMc(\w)/Mc\u$1/igo; # Scottish names such as 'McLeod' s/\bo'(\w)/O'\u$1/igo; # Irish names such as 'O'Malley, O'Reilly' s/\b(x*(ix)?v*(iv)?i*)\b/\U$1/igo; # Roman numerals, eg 'Level III Support' } # some cleanup s/\[[^\]]*\]//g; s/(^[\s'"]+|[\s'"]+$)//g; s/\s{2,}/ /g; $_; } sub _tokenise { local $_ = join ',', @_; my (@words,$snippet,$field); s/\A\s+//; s/[\r\n]+/ /g; while ($_ ne '') { $field = ''; if(s/^\s*\(/(/ ) # (...) { my $depth = 0; PAREN: while(s/^(\(([^\(\)\\]|\\.)*)//) { $field .= $1; $depth++; while(s/^(([^\(\)\\]|\\.)*\)\s*)//) { $field .= $1; last PAREN unless --$depth; $field .= $1 if s/^(([^\(\)\\]|\\.)+)//; } } carp "Unmatched () '$field' '$_'" if $depth; $field =~ s/\s+\Z//; push @words, $field; next; } if( s/^("(?:[^"\\]+|\\.)*")\s*// # "..." || s/^(\[(?:[^\]\\]+|\\.)*\])\s*// # [...] || s/^([^\s()<>\@,;:\\".[\]]+)\s*// || s/^([()<>\@,;:\\".[\]])\s*// ) { push @words, $1; next; } croak "Unrecognised line: $_"; } push @words, ","; \@words; } sub _find_next { my ($idx, $tokens, $len) = @_; while($idx < $len) { my $c = $tokens->[$idx]; return $c if $c eq ',' || $c eq ';' || $c eq '<'; $idx++; } ""; } sub _complete { my ($class, $phrase, $address, $comment) = @_; @$phrase || @$comment || @$address or return undef; my $o = $class->new(join(" ",@$phrase), join("",@$address), join(" ",@$comment)); @$phrase = @$address = @$comment = (); $o; } #------------ sub new(@) { my $class = shift; bless [@_], $class; } sub parse(@) { my $class = shift; my @line = grep {defined} @_; my $line = join '', @line; my (@phrase, @comment, @address, @objs); my ($depth, $idx) = (0, 0); my $tokens = _tokenise @line; my $len = @$tokens; my $next = _find_next $idx, $tokens, $len; local $_; for(my $idx = 0; $idx < $len; $idx++) { $_ = $tokens->[$idx]; if(substr($_,0,1) eq '(') { push @comment, $_ } elsif($_ eq '<') { $depth++ } elsif($_ eq '>') { $depth-- if $depth } elsif($_ eq ',' || $_ eq ';') { warn "Unmatched '<>' in $line" if $depth; my $o = $class->_complete(\@phrase, \@address, \@comment); push @objs, $o if defined $o; $depth = 0; $next = _find_next $idx+1, $tokens, $len; } elsif($depth) { push @address, $_ } elsif($next eq '<') { push @phrase, $_ } elsif( /^[.\@:;]$/ || !@address || $address[-1] =~ /^[.\@:;]$/ ) { push @address, $_ } else { warn "Unmatched '<>' in $line" if $depth; my $o = $class->_complete(\@phrase, \@address, \@comment); push @objs, $o if defined $o; $depth = 0; push @address, $_; } } @objs; } #------------ sub phrase { shift->set_or_get(0, @_) } sub address { shift->set_or_get(1, @_) } sub comment { shift->set_or_get(2, @_) } sub set_or_get($) { my ($self, $i) = (shift, shift); @_ or return $self->[$i]; my $val = $self->[$i]; $self->[$i] = shift if @_; $val; } my $atext = '[\-\w !#$%&\'*+/=?^`{|}~]'; sub format { my @addrs; foreach (@_) { my ($phrase, $email, $comment) = @$_; my @addr; if(defined $phrase && length $phrase) { push @addr , $phrase =~ /^(?:\s*$atext\s*)+$/o ? $phrase : $phrase =~ /(?" if defined $email && length $email; } elsif(defined $email && length $email) { push @addr, $email; } if(defined $comment && $comment =~ /\S/) { $comment =~ s/^\s*\(?/(/; $comment =~ s/\)?\s*$/)/; } push @addr, $comment if defined $comment && length $comment; push @addrs, join(" ", @addr) if @addr; } join ", ", @addrs; } #------------ sub name { my $self = shift; my $phrase = $self->phrase; my $addr = $self->address; $phrase = $self->comment unless defined $phrase && length $phrase; my $name = $self->_extract_name($phrase); # first.last@domain address if($name eq '' && $addr =~ /([^\%\.\@_]+([\._][^\%\.\@_]+)+)[\@\%]/) { ($name = $1) =~ s/[\._]+/ /g; $name = _extract_name $name; } if($name eq '' && $addr =~ m#/g=#i) # X400 style address { my ($f) = $addr =~ m#g=([^/]*)#i; my ($l) = $addr =~ m#s=([^/]*)#i; $name = _extract_name "$f $l"; } length $name ? $name : undef; } sub host { my $addr = shift->address || ''; my $i = rindex $addr, '@'; $i >= 0 ? substr($addr, $i+1) : undef; } sub user { my $addr = shift->address || ''; my $i = rindex $addr, '@'; $i >= 0 ? substr($addr,0,$i) : $addr; } 1;