| Server IP : 82.208.35.60 / Your IP : 216.73.216.168 Web Server : Apache/2.4.55 (FreeBSD) OpenSSL/1.1.1q-freebsd PHP/7.3.31 System : FreeBSD server7.d2m.cz 12.4-RELEASE-p9 FreeBSD 12.4-RELEASE-p9 GENERIC amd64 User : studiokobylisy_cz ( 1008) PHP Version : 7.3.31 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/ports/sysutils/magicrescue/files/ |
Upload File : |
--- magicsort.orig 2018-11-29 21:59:50 UTC
+++ magicsort
@@ -13,7 +13,7 @@ opendir DH, "." or die "opening $dir: $!
while (defined(my $file = readdir DH)) {
next unless -f $file;
- open FILE, "-|", "file", $file or die "Executing file: $!\n";
+ open(FILE, 'file '.$file.'|') or die "Executing file: $!\n";
my $idstring = <FILE>;
close FILE;
@@ -25,7 +25,7 @@ while (defined(my $file = readdir DH)) {
next;
}
my $dir = substr($idstring, length($file) + 2);
- mkdir $dir;
+ mkdir $dir,0755;
rename $file, "$dir/$file" or warn "Cannot move $file: $!\n";
}