FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-13 23:36:37 +00:00
Code Issues Releases Wiki Activity

50_SSFile.pm: contrib Version 0.5.0

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

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

@ -697,7 +697,8 @@ sub __fillUploadQueue {
reqtype => "POST",
header => "Content-Type: multipart/form-data, boundary=$bound",
lclFile => $lcf,
postdata => $dat
postdata => $dat,
remFile => $dir."/".$fname
};
if(AttrVal($name, "noAsyncFillQueue", 0)) {
@ -1799,7 +1800,7 @@ sub _parseUpload {
my $paref = shift;
my $hash = $paref->{hash};
my $jdata = $paref->{jdata};
my $href = $paref->{href}; # Hash Referenz für Ergebnisreadings
my $href = $paref->{href}; # Hash Referenz für Ergebnisreadings
my $param = $paref->{param};
my $head = $param->{httpheader};
@ -1817,13 +1818,14 @@ sub _parseUpload {
$href->{Progress} = $jdata->{data}{progress};
$href->{RemoteFile} = encode("utf8", $file);
my $obj = $data{$type}{$name}{sendqueue}{entries}{$idx}{lclFile}; # 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
if($skip eq "false") {
$data{$type}{$name}{uploaded}{"$obj"} = { done => 1, ts => time }; # Status und Zeit des Objekt-Upload speichern
Log3 ($name, 4, qq{$name - Object "$obj" uploaded});
$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});
} else {
Log3 ($name, 3, qq{$name - Object "$obj" already exists -> upload skipped});
Log3 ($name, 3, qq{$name - Object "$remobj" already exists -> upload skipped});
}
return;
@ -1985,15 +1987,17 @@ sub listUploadsDone {
$out .= "<table class=\"block wide internals\">";
$out .= "<tbody>";
$out .= "<tr class=\"odd\">";
$out .= "<td> <b>Object</b> </td><td> <b>upload Date & Time</b> </td><td> <b>State</b> </td></tr>";
$out .= "<td> <b>local Object</b> </td><td> <b>remote Object</b> </td><td> <b>upload Date & Time</b> </td></tr>";
$out .= "<tr>";
$out .= "<td> </td><td> </td><td> </td></tr>";
$out .= "<td> </td><td> </td><td> </td></tr>";
my $i = 0;
for my $idx (sort keys %{$data{$type}{$name}{uploaded}}) {
my $ds = $data{$type}{$name}{uploaded}{"$idx"}{done};
next if(!$ds);
my $ts = $data{$type}{$name}{uploaded}{"$idx"}{ts};
my $ro = $data{$type}{$name}{uploaded}{"$idx"}{remobj};
$ds = "success";
$ts = FmtDateTime($ts);
@ -2007,8 +2011,8 @@ sub listUploadsDone {
$i++;
$out .= "<td style=\"vertical-align:top\"> $idx </td>";
$out .= "<td style=\"vertical-align:top\"> $ro </td>";
$out .= "<td style=\"vertical-align:top\"> $ts </td>";
$out .= "<td style=\"vertical-align:top\"> $ds </td>";
$out .= "</tr>";
}