Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains :
Cant Read [ /etc/named.conf ]
User : michaelgreg
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
var /
log /
perl-5.20.2 /
cpan /
Win32 /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
CodePage.t
609
B
-r--r--r--
2014-12-27 11:48
CreateFile.t
480
B
-r--r--r--
2014-12-27 11:48
ExpandEnvironmentStrings.t
115
B
-r--r--r--
2014-12-27 11:48
GetCurrentThreadId.t
949
B
-r--r--r--
2014-12-27 11:48
GetFileVersion.t
455
B
-r--r--r--
2014-12-27 11:48
GetFolderPath.t
192
B
-r--r--r--
2014-12-27 11:48
GetFullPathName.t
992
B
-r--r--r--
2014-12-27 11:48
GetLongPathName.t
852
B
-r--r--r--
2014-12-27 11:48
GetOSName.t
7.67
KB
-r--r--r--
2014-12-27 11:48
GetOSVersion.t
183
B
-r--r--r--
2014-12-27 11:48
GetShortPathName.t
331
B
-r--r--r--
2014-12-27 11:48
GuidGen.t
290
B
-r--r--r--
2014-12-27 11:48
Names.t
1.84
KB
-r--r--r--
2014-12-27 11:48
Unicode.t
2.53
KB
-r--r--r--
2014-12-27 11:48
Save
Rename
use strict; use Test; use Win32; my @paths = qw( / // . .. c: c:/ c:./ c:/. c:/.. c:./.. //./ //. //.. //./.. ); push @paths, map { my $x = $_; $x =~ s,/,\\,g; $x } @paths; push @paths, qw( ../\ c:.\\../\ c:/\..// c://.\/./\ \\.\\../\ //\..// //.\/./\ ); my $drive = $ENV{SYSTEMDRIVE}; if ($drive) { for (@paths) { s/^c:/$drive/; } } my %expect; @expect{@paths} = map { my $x = $_; $x =~ s,(.[/\\])[/\\]+,$1,g; $x =~ s,^(\w):,\U$1:,; $x } @paths; plan tests => scalar(@paths); my $i = 1; for (@paths) { my $got = Win32::GetLongPathName($_); print "# '$_' => expect '$expect{$_}' => got '$got'\n"; print "not " unless $expect{$_} eq $got; print "ok $i\n"; ++$i; }