?¡ëPNG  IHDR ? f ??C1 sRGB ??¨¦ gAMA ¡À? ¨¹a pHYs ? ??o¡§d GIDATx^¨ª¨¹L¡±¡Âe¡ÂY?a?("Bh?_¨°???¡é¡ì?q5k?*:t0A-o??£¤]VkJ¡éM??f?¡À8\k2¨ªll¡ê1]q?¨´???T
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 /home/user1137782/www/china1.by/classwithtostring.php on line 86

Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 213

Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 214

Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 215

Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 216

Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 217

Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 218
# # @(#)dotsh.pl 03/19/94 # # This library is no longer being maintained, and is included for backward # compatibility with Perl 4 programs which may require it. # # In particular, this should not be used as an example of modern Perl # programming techniques. # # # Author: Charles Collins # # Description: # This routine takes a shell script and 'dots' it into the current perl # environment. This makes it possible to use existing system scripts # to alter environment variables on the fly. # # Usage: # &dotsh ('ShellScript', 'DependentVariable(s)'); # # where # # 'ShellScript' is the full name of the shell script to be dotted # # 'DependentVariable(s)' is an optional list of shell variables in the # form VARIABLE=VALUE,VARIABLE=VALUE,... that 'ShellScript' is # dependent upon. These variables MUST be defined using shell syntax. # # Example: # &dotsh ('/foo/bar', 'arg1'); # &dotsh ('/foo/bar'); # &dotsh ('/foo/bar arg1 ... argN'); # sub dotsh { local(@sh) = @_; local($tmp,$key,$shell,$command,$args,$vars) = ''; local(*dotsh); undef *dotsh; $dotsh = shift(@sh); @dotsh = split (/\s/, $dotsh); $command = shift (@dotsh); $args = join (" ", @dotsh); $vars = join ("\n", @sh); open (_SH_ENV, "$command") || die "Could not open $dotsh!\n"; chop($_ = <_SH_ENV>); $shell = "$1 -c" if ($_ =~ /^\#\!\s*(\S+(\/sh|\/ksh|\/zsh|\/csh))\s*$/); close (_SH_ENV); if (!$shell) { if ($ENV{'SHELL'} =~ /\/sh$|\/ksh$|\/zsh$|\/bash$|\/csh$/) { $shell = "$ENV{'SHELL'} -c"; } else { print "SHELL not recognized!\nUsing /bin/sh...\n"; $shell = "/bin/sh -c"; } } if (length($vars) > 0) { open (_SH_ENV, "$shell \"$vars && . $command $args && set \" |") || die; } else { open (_SH_ENV, "$shell \". $command $args && set \" |") || die; } while (<_SH_ENV>) { chop; m/^([^=]*)=(.*)/s; $ENV{$1} = $2; } close (_SH_ENV); foreach $key (keys(%ENV)) { $tmp .= "\$$key = \$ENV{'$key'};" if $key =~ /^[A-Za-z]\w*$/; } eval $tmp; } 1;