FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-07 12:58:13 +00:00
Code Issues Releases Wiki Activity

50_SSFile: contrib 0.8.1

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@24505 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2021-05-24 21:05:38 +00:00
parent a91e36d140
commit 264202f828
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fhem/contrib/DS_Starter/50_SSFile.pm
View File

@ -71,6 +71,7 @@ use POSIX qw(strftime);
use Time::HiRes qw(gettimeofday);
use HttpUtils;
use Encode;
use Encode::Guess;
use File::Find;
use File::Glob ':bsd_glob';
no if $] >= 5.017011, warnings => 'experimental::smartmatch';
@ -767,7 +768,12 @@ sub __fillUploadQueue {
# Log3 ($name, 3, "$name - all explored files for upload:\n".Dumper $found);
for my $sn (keys %{$found}) {
my $fname = encode ("utf8", (split "\/", $found->{$sn}{lfile})[-1]);
my $fname = (split "\/", $found->{$sn}{lfile})[-1];
my $enc = guess_encoding($fname, qw/utf8/);
if(!ref $enc ) {
$fname = encode ("utf8", (split "\/", $found->{$sn}{lfile})[-1]);
}
# my $fname = encode ("utf8", (split "\/", $found->{$sn}{lfile})[-1]);
my $mtime = $found->{$sn}{mtime} * 1000; # Angabe in Millisekunden
my $crtime = $found->{$sn}{crtime} * 1000; # Angabe in Millisekunden
my $dir = $remDir.$found->{$sn}{ldir}; # zusammengesetztes Zielverzeichnis (Struktur erhaltend - default)