| Server IP : 103.119.228.120 / Your IP : 13.58.40.171 Web Server : Apache System : Linux v8.techscape8.com 3.10.0-1160.119.1.el7.tuxcare.els2.x86_64 #1 SMP Mon Jul 15 12:09:18 UTC 2024 x86_64 User : nobody ( 99) PHP Version : 5.6.40 Disable Function : shell_exec,symlink,system,exec,proc_get_status,proc_nice,proc_terminate,define_syslog_variables,syslog,openlog,closelog,escapeshellcmd,passthru,ocinum cols,ini_alter,leak,listen,chgrp,apache_note,apache_setenv,debugger_on,debugger_off,ftp_exec,dl,dll,myshellexec,proc_open,socket_bind,proc_close,escapeshellarg,parse_ini_filepopen,fpassthru,exec,passthru,escapeshellarg,escapeshellcmd,proc_close,proc_open,ini_alter,popen,show_source,proc_nice,proc_terminate,proc_get_status,proc_close,pfsockopen,leak,apache_child_terminate,posix_kill,posix_mkfifo,posix_setpgid,posix_setsid,posix_setuid,dl,symlink,shell_exec,system,dl,passthru,escapeshellarg,escapeshellcmd,myshellexec,c99_buff_prepare,c99_sess_put,fpassthru,getdisfunc,fx29exec,fx29exec2,is_windows,disp_freespace,fx29sh_getupdate,fx29_buff_prepare,fx29_sess_put,fx29shexit,fx29fsearch,fx29ftpbrutecheck,fx29sh_tools,fx29sh_about,milw0rm,imagez,sh_name,myshellexec,checkproxyhost,dosyayicek,c99_buff_prepare,c99_sess_put,c99getsource,c99sh_getupdate,c99fsearch,c99shexit,view_perms,posix_getpwuid,posix_getgrgid,posix_kill,parse_perms,parsesort,view_perms_color,set_encoder_input,ls_setcheckboxall,ls_reverse_all,rsg_read,rsg_glob,selfURL,dispsecinfo,unix2DosTime,addFile,system,get_users,view_size,DirFiles,DirFilesWide,DirPrintHTMLHeaders,GetFilesTotal,GetTitles,GetTimeTotal,GetMatchesCount,GetFileMatchesCount,GetResultFiles,fs_copy_dir,fs_copy_obj,fs_move_dir,fs_move_obj,fs_rmdir,SearchText,getmicrotime MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/perl5/URI/file/ |
Upload File : |
package URI::file::Mac;
require URI::file::Base;
@ISA=qw(URI::file::Base);
use strict;
use URI::Escape qw(uri_unescape);
sub _file_extract_path
{
my $class = shift;
my $path = shift;
my @pre;
if ($path =~ s/^(:+)//) {
if (length($1) == 1) {
@pre = (".") unless length($path);
} else {
@pre = ("..") x (length($1) - 1);
}
} else { #absolute
$pre[0] = "";
}
my $isdir = ($path =~ s/:$//);
$path =~ s,([%/;]), URI::Escape::escape_char($1),eg;
my @path = split(/:/, $path, -1);
for (@path) {
if ($_ eq "." || $_ eq "..") {
$_ = "%2E" x length($_);
}
$_ = ".." unless length($_);
}
push (@path,"") if $isdir;
(join("/", @pre, @path), 1);
}
sub file
{
my $class = shift;
my $uri = shift;
my @path;
my $auth = $uri->authority;
if (defined $auth) {
if (lc($auth) ne "localhost" && $auth ne "") {
my $u_auth = uri_unescape($auth);
if (!$class->_file_is_localhost($u_auth)) {
# some other host (use it as volume name)
@path = ("", $auth);
# XXX or just return to make it illegal;
}
}
}
my @ps = split("/", $uri->path, -1);
shift @ps if @path;
push(@path, @ps);
my $pre = "";
if (!@path) {
return; # empty path; XXX return ":" instead?
} elsif ($path[0] eq "") {
# absolute
shift(@path);
if (@path == 1) {
return if $path[0] eq ""; # not root directory
push(@path, ""); # volume only, effectively append ":"
}
@ps = @path;
@path = ();
my $part;
for (@ps) { #fix up "." and "..", including interior, in relatives
next if $_ eq ".";
$part = $_ eq ".." ? "" : $_;
push(@path,$part);
}
if ($ps[-1] eq "..") { #if this happens, we need another :
push(@path,"");
}
} else {
$pre = ":";
@ps = @path;
@path = ();
my $part;
for (@ps) { #fix up "." and "..", including interior, in relatives
next if $_ eq ".";
$part = $_ eq ".." ? "" : $_;
push(@path,$part);
}
if ($ps[-1] eq "..") { #if this happens, we need another :
push(@path,"");
}
}
return unless $pre || @path;
for (@path) {
s/;.*//; # get rid of parameters
#return unless length; # XXX
$_ = uri_unescape($_);
return if /\0/;
return if /:/; # Should we?
}
$pre . join(":", @path);
}
sub dir
{
my $class = shift;
my $path = $class->file(@_);
return unless defined $path;
$path .= ":" unless $path =~ /:$/;
$path;
}
1;