Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code

50_SSFile.pm: contrib Version 0.6.0

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@23064 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2020-10-31 20:46:24 +00:00
parent 8dbbac3faa
commit cb5822dbcc
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -753,6 +753,9 @@ sub __fillUploadQueueFinish {
readingsSingleUpdate($hash, "state", "Upload queue fill finished", 1); readingsSingleUpdate($hash, "state", "Upload queue fill finished", 1);
my $ql = ReadingsVal($name, "QueueLength", 0); # zusätzlichen Event wenn Queue Aufbau fertig
CommandTrigger(undef, "$name QueueLength: $ql");
if($opt ne "prepareUpload") { if($opt ne "prepareUpload") {
getApiSites ($name); # Queue starten getApiSites ($name); # Queue starten
} }
@ -1859,14 +1862,20 @@ sub _parseUpload {
my $lclobj = $data{$type}{$name}{sendqueue}{entries}{$idx}{lclFile}; # lokales File-Objekt des aktuellen Index my $lclobj = $data{$type}{$name}{sendqueue}{entries}{$idx}{lclFile}; # lokales File-Objekt des aktuellen Index
my $remobj = $data{$type}{$name}{sendqueue}{entries}{$idx}{remFile}; # File-Objekt im Zielverezichnis my $remobj = $data{$type}{$name}{sendqueue}{entries}{$idx}{remFile}; # File-Objekt im Zielverezichnis
my $trtxt;
if($skip eq "false") { if($skip eq "false") {
$data{$type}{$name}{uploaded}{"$lclobj"} = { remobj => $remobj, done => 1, ts => time }; # Status und Zeit des Objekt-Upload speichern $data{$type}{$name}{uploaded}{"$lclobj"} = { remobj => $remobj, done => 1, ts => time }; # Status und Zeit des Objekt-Upload speichern
Log3 ($name, 4, qq{$name - Object "$lclobj" uploaded}); Log3 ($name, 4, qq{$name - Object "$lclobj" uploaded});
} else { $trtxt = qq{Upload: local File "$lclobj" to remote File "$remobj"};
}
else {
Log3 ($name, 3, qq{$name - Object "$remobj" already exists -> upload skipped}); Log3 ($name, 3, qq{$name - Object "$remobj" already exists -> upload skipped});
$trtxt = qq{Upload: skipped upload local File "$lclobj"};
} }
CommandTrigger(undef, "$name $trtxt");
return; return;
} }