2
0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 09:16:53 +00:00

93_DbLog: contrib 5.10.0

git-svn-id: https://svn.fhem.de/fhem/trunk@28649 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2024-03-12 22:22:33 +00:00
parent 5837aecd26
commit f8551e2403

View File

@ -8597,26 +8597,33 @@ sub DbLog_fhemwebFn {
my $name = "SVG_${d}_$newIdx"; my $name = "SVG_${d}_$newIdx";
my $img = FW_makeImage('time_graph@grey'); my $dstyle = qq{style='padding-left: 10px; padding-right: 10px; padding-top: 3px; padding-bottom: 3px; white-space:nowrap;'}; # TD-Style
my $title = "Create SVG plot from DbLog"; my $svgtitle = "Create SVG plot from DbLog";
my $svgimg = FW_makeImage('time_graph@grey');
if (AttrVal ('global', 'language', 'EN') eq 'DE') {
$title = "SVG-Diagramm aus DbLog erstellen";
}
my $dstyle = qq{style='padding-left: 10px; padding-right: 10px; padding-top: 3px; padding-bottom: 3px; white-space:nowrap;'}; # TD-Style
my $class = qq{<table width='100%'>}; my $forimg = FW_makeImage('time_note@grey');
my $fthicon = "<a href='https://forum.fhem.de/index.php?board=20.0' target='_blank'>$forimg</a>";
my $fthtitle = "Open DbLog Forum";
if (AttrVal ('global', 'language', 'EN') eq 'DE') {
$svgtitle = "SVG-Diagramm aus DbLog erstellen";
$fthtitle = "DbLog Forum öffnen";
}
my $class = qq{<table width='10%'>};
$class .= qq{<tr>}; $class .= qq{<tr>};
$class .= qq{<td align="left" title="$title" $dstyle> $img </td>}; $class .= qq{<td align="left" title="$svgtitle" $dstyle> $svgimg </td>};
$class .= qq{</tr>}; $class .= qq{</tr>};
$class .= qq{</table>}; $class .= qq{</table>};
$ret = qq{<table width='10%'>};
$ret .= qq{<tr>};
# $link , $txt , $td , $class , $doRet , $nonl # $link , $txt , $td , $class , $doRet , $nonl
$ret .= FW_pH ("cmd=define $name SVG $d:templateDB:HISTORY;set $name copyGplotFile&detail=$name", $ret .= FW_pH ("cmd=define $name SVG $d:templateDB:HISTORY;set $name copyGplotFile&detail=$name",
"<div class=\"dval\">$class</div>", "<div class=\"dval\">$class</div>", 1, "dval", 1);
0, $ret .= qq{<td align="left" title="$fthtitle" $dstyle> $fthicon </td>};
"dval", $ret .= qq{</tr>};
1); $ret .= qq{</table>};
return $ret; return $ret;
} }