mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-03-12 16:46:35 +00:00
Olaf Droegehorn's pgm5. See the README for details
git-svn-id: https://svn.fhem.de/fhem/trunk@258 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
parent
5b5b6efb6f
commit
bd3450cb81
586
fhem/webfrontend/pgm5/02_FHEMRENDERER.pm
Normal file
586
fhem/webfrontend/pgm5/02_FHEMRENDERER.pm
Normal file
@ -0,0 +1,586 @@
|
||||
##############################################
|
||||
package main;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use IO::Socket;
|
||||
|
||||
|
||||
###################
|
||||
# Config
|
||||
use vars qw($__ME);
|
||||
my $FHEMRENDERERdir = "$attr{global}{modpath}/FHEM"; #
|
||||
|
||||
use vars qw(%defs);
|
||||
use vars qw(%attr);
|
||||
|
||||
# Nothing to config below
|
||||
#########################
|
||||
|
||||
#########################
|
||||
# Forward declaration
|
||||
|
||||
sub FHEMRENDERER_getAttr($$);
|
||||
sub FHEMRENDERER_setAttr($$);
|
||||
sub FHEMRENDERER_parseXmlList($);
|
||||
sub FHEMRENDERER_render($);
|
||||
sub FHEMRENDERER_fatal($);
|
||||
sub pF($@);
|
||||
sub pO(@);
|
||||
#sub FHEMRENDERER_zoomLink($$$$);
|
||||
sub FHEMRENDERER_calcWeblink($$);
|
||||
|
||||
#########################
|
||||
# As we are _not_ multithreaded, it is safe to use global variables.
|
||||
my %__icons; # List of icons
|
||||
my $__iconsread; # Timestamp of last icondir check
|
||||
my %__rooms; # hash of all rooms
|
||||
my %__devs; # hash of all devices ant their attributes
|
||||
my %__types; # device types, for sorting
|
||||
my $__room; # currently selected room
|
||||
my $__detail; # durrently selected device for detail view
|
||||
my $__title; # Page title
|
||||
my $__cmdret; # Returned data by the fhem call
|
||||
my $__scrolledweblinkcount; # Number of scrolled weblinks
|
||||
my %__pos; # scroll position
|
||||
my $__RET; # Returned data (html)
|
||||
my $__RETTYPE; # image/png or the like
|
||||
my $__SF; # Short for submit form
|
||||
my $__ti; # Tabindex for all input fields
|
||||
my @__zoom; # "qday", "day","week","month","year"
|
||||
my %__zoom; # the same as @__zoom
|
||||
my $__wname; # instance name
|
||||
my $__plotmode; # Current plotmode
|
||||
my $__plotsize; # Size for a plot
|
||||
my $__timeinterval; # Time-Intervall for Renderer
|
||||
my $__data; # Filecontent from browser when editing a file
|
||||
my $__svgloaded; # Do not load the SVG twice
|
||||
my $__lastxmllist; # last time xmllist was parsed
|
||||
my $FHEMRENDERER_tmpfile; # TempDir & File for the rendered graphics
|
||||
|
||||
#####################################
|
||||
sub
|
||||
FHEMRENDERER_Initialize($)
|
||||
{
|
||||
my ($hash) = @_;
|
||||
|
||||
$hash->{ReadFn} = "FHEMRENDERER_Read";
|
||||
$hash->{DefFn} = "FHEMRENDERER_Define";
|
||||
$hash->{UndefFn} = "FHEMRENDERER_Undef";
|
||||
$hash->{AttrList}= "loglevel:0,1,2,3,4,5,6 plotmode:gnuplot,gnuplot-scroll plotsize refresh tmpfile status";
|
||||
$hash->{SetFn} = "FHEMRENDERER_Set";
|
||||
$hash->{GetFn} = "FHEMRENDERER_Get";
|
||||
}
|
||||
|
||||
#####################################
|
||||
sub
|
||||
FHEMRENDERER_Define($$)
|
||||
{
|
||||
my ($hash, $def) = @_;
|
||||
my ($name, $type, $global) = split("[ \t]+", $def);
|
||||
return "Usage: define <name> FHEMRENDERER [global]"
|
||||
if($global && $global ne "global");
|
||||
|
||||
$hash->{STATE} = "Initialized";
|
||||
Log(2, "FHEMRENDERER defined");
|
||||
|
||||
###############
|
||||
# Initialize internal structures
|
||||
my $n = 0;
|
||||
@__zoom = ("qday", "day","week","month","year");
|
||||
%__zoom = map { $_, $n++ } @__zoom;
|
||||
$__wname = $hash->{NAME};
|
||||
|
||||
$__timeinterval = FHEMRENDERER_getAttr("refresh", "00:10:00");
|
||||
$__plotmode = FHEMRENDERER_getAttr("plotmode", "gnuplot");
|
||||
$__plotsize = FHEMRENDERER_getAttr("plotsize", "800,200");
|
||||
$FHEMRENDERER_tmpfile = FHEMRENDERER_getAttr("tmpfile", "/tmp/");
|
||||
FHEMRENDERER_setAttr("status", "off");
|
||||
|
||||
return undef;
|
||||
}
|
||||
|
||||
#####################################
|
||||
sub
|
||||
FHEMRENDERER_Undef($$)
|
||||
{
|
||||
my ($hash, $arg) = @_;
|
||||
return undef;
|
||||
}
|
||||
|
||||
|
||||
###################################
|
||||
sub
|
||||
FHEMRENDERER_Set($@)
|
||||
{
|
||||
my ($hash, @a) = @_;
|
||||
my $ret = undef;
|
||||
my $na = int(@a);
|
||||
|
||||
return "no set value specified" if($na < 2 || $na > 3);
|
||||
|
||||
# if($__plotmode eq "SVG" && !$modules{SVG}{LOADED}) {
|
||||
# my $ret = CommandReload(undef, "98_SVG");
|
||||
# Log 0, $ret if($ret);
|
||||
# }
|
||||
|
||||
if($a[1] eq "on") {
|
||||
$__timeinterval = FHEMRENDERER_getAttr("refresh", "00:10:00");
|
||||
CommandDefine(undef, $hash->{NAME} . "_trigger at +*$__timeinterval get $a[0]");
|
||||
FHEMRENDERER_setAttr("status", "on");
|
||||
} elsif($a[1] eq "off") {
|
||||
CommandDelete(undef, $__wname . "_trigger");
|
||||
FHEMRENDERER_setAttr("status", "off");
|
||||
}
|
||||
|
||||
return $ret;
|
||||
}
|
||||
|
||||
|
||||
#####################################
|
||||
sub
|
||||
FHEMRENDERER_Get($@)
|
||||
{
|
||||
my ($hash, @a) = @_;
|
||||
|
||||
my $ret = undef;
|
||||
my $v;
|
||||
my $t;
|
||||
|
||||
FHEMRENDERER_parseXmlList(0);
|
||||
|
||||
$__plotmode = FHEMRENDERER_getAttr("plotmode", "gnuplot");
|
||||
$__plotsize = FHEMRENDERER_getAttr("plotsize", "800,200");
|
||||
$FHEMRENDERER_tmpfile = FHEMRENDERER_getAttr("tmpfile", "/tmp/");
|
||||
|
||||
if (@a <= 2) {
|
||||
if (@a == 2) {
|
||||
my ($p,$v) = split("=",$a[1], 2);
|
||||
|
||||
# Multiline: escape the NL for fhem
|
||||
$v =~ s/[\r]\n/\\\n/g if($v && $p && $p ne "data");
|
||||
Log(2, "P: $p, V: $v");
|
||||
|
||||
if($p eq "pos") {
|
||||
%__pos = split(/[=&]/, $v);
|
||||
}
|
||||
}
|
||||
|
||||
foreach my $type (sort keys %__types) {
|
||||
if($type eq "weblink") {
|
||||
foreach my $d (sort keys %__devs ) {
|
||||
next if($__devs{$d}{type} ne $type);
|
||||
|
||||
$v = $__devs{$d}{INT}{LINK}{VAL};
|
||||
$t = $__devs{$d}{INT}{WLTYPE}{VAL};
|
||||
if($t eq "fileplot") {
|
||||
my @va = split(":", $v, 3);
|
||||
if(@va != 3 || !$__devs{$va[0]}{INT}{currentlogfile}) {
|
||||
pO "<td>Broken definition: $v</a></td>";
|
||||
} else {
|
||||
if($va[2] eq "CURRENT") {
|
||||
$__devs{$va[0]}{INT}{currentlogfile}{VAL} =~ m,([^/]*)$,;
|
||||
$va[2] = $1;
|
||||
}
|
||||
FHEMRENDERER_render ("undef $d $va[0] $va[1] $va[2]");
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
} elsif (@a == 4 ) {
|
||||
FHEMRENDERER_render ("undef $a[3] $a[1] $a[2] $a[3]");
|
||||
|
||||
} elsif (@a == 5 ) {
|
||||
my ($p,$v) = split("=",$a[4], 2);
|
||||
|
||||
# Multiline: escape the NL for fhem
|
||||
$v =~ s/[\r]\n/\\\n/g if($v && $p && $p ne "data");
|
||||
Log(2, "P: $p, V: $v");
|
||||
|
||||
if($p eq "pos") {
|
||||
%__pos = split(/[=&]/, $v);
|
||||
FHEMRENDERER_render ("undef $a[3] $a[1] $a[2] $a[3]");
|
||||
|
||||
} else {
|
||||
FHEMRENDERER_render ("undef $a[1] $a[2] $a[3] $a[4]");
|
||||
}
|
||||
|
||||
} elsif (@a == 6 ) {
|
||||
my ($p,$v) = split("=",$a[5], 2);
|
||||
|
||||
# Multiline: escape the NL for fhem
|
||||
$v =~ s/[\r]\n/\\\n/g if($v && $p && $p ne "data");
|
||||
Log(2, "P: $p, V: $v");
|
||||
|
||||
if($p eq "pos") {
|
||||
%__pos = split(/[=&]/, $v);
|
||||
FHEMRENDERER_render ("undef $a[1] $a[2] $a[3] $a[4]");
|
||||
|
||||
} else {
|
||||
return "\"get FHEMRENDERER\" needs either none, 1(pos) or 3-5 arguments ([file-name] device type logfile [pos=zoom=XX&off=YYY])";
|
||||
}
|
||||
} else {
|
||||
return "\"get FHEMRENDERER\" needs either none, 1(pos) or 3-5 arguments ([file-name] device type logfile [pos=zoom=XX&off=YYY])";
|
||||
}
|
||||
return $ret;
|
||||
}
|
||||
|
||||
#####################
|
||||
# Get the data and parse it. We are parsing XML in a non-scientific way :-)
|
||||
sub
|
||||
FHEMRENDERER_parseXmlList($)
|
||||
{
|
||||
my $docmd = shift;
|
||||
my $name;
|
||||
|
||||
if(!$docmd && $__lastxmllist && (time() - $__lastxmllist) < 2) {
|
||||
$__room = $__devs{$__detail}{ATTR}{room}{VAL} if($__detail);
|
||||
return;
|
||||
}
|
||||
|
||||
$__lastxmllist = time();
|
||||
%__rooms = ();
|
||||
%__devs = ();
|
||||
%__types = ();
|
||||
$__title = "";
|
||||
|
||||
foreach my $l (split("\n", fC("xmllist"))) {
|
||||
|
||||
####### Device
|
||||
if($l =~ m/^\t\t<(.*) name="(.*)" state="(.*)" sets="(.*)" attrs="(.*)">/){
|
||||
$name = $2;
|
||||
$__devs{$name}{type} = ($1 eq "HMS" ? "KS300" : $1);
|
||||
$__devs{$name}{state} = $3;
|
||||
$__devs{$name}{sets} = $4;
|
||||
$__devs{$name}{attrs} = $5;
|
||||
next;
|
||||
}
|
||||
####### INT, ATTR & STATE
|
||||
if($l =~ m,^\t\t\t<(.*) key="(.*)" value="([^"]*)"(.*)/>,) {
|
||||
my ($t, $n, $v, $m) = ($1, $2, $3, $4);
|
||||
$v =~ s,<br>,<br/>,g;
|
||||
$__devs{$name}{$t}{$n}{VAL} = $v;
|
||||
if($m) {
|
||||
$m =~ m/measured="(.*)"/;
|
||||
$__devs{$name}{$t}{$n}{TIM} = $1;
|
||||
}
|
||||
|
||||
if($t eq "ATTR" && $n eq "room") {
|
||||
$__rooms{$v}{$name} = 1;
|
||||
if($name eq "global") {
|
||||
$__rooms{$v}{LogFile} = 1;
|
||||
$__devs{LogFile}{ATTR}{room}{VAL} = $v;
|
||||
}
|
||||
}
|
||||
|
||||
if($name eq "global" && $n eq "logfile") {
|
||||
my $ln = "LogFile";
|
||||
$__devs{$ln}{type} = "FileLog";
|
||||
$__devs{$ln}{INT}{logfile}{VAL} = $v;
|
||||
$__devs{$ln}{state} = "active";
|
||||
}
|
||||
}
|
||||
|
||||
}
|
||||
if(defined($__devs{global}{ATTR}{archivedir})) {
|
||||
$__devs{LogFile}{ATTR}{archivedir}{VAL} =
|
||||
$__devs{global}{ATTR}{archivedir}{VAL};
|
||||
}
|
||||
|
||||
#################
|
||||
#Tag the gadgets without room with "Unsorted"
|
||||
if(%__rooms) {
|
||||
foreach my $name (keys %__devs ) {
|
||||
if(!$__devs{$name}{ATTR}{room}) {
|
||||
$__devs{$name}{ATTR}{room}{VAL} = "Unsorted";
|
||||
$__rooms{Unsorted}{$name} = 1;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
###############
|
||||
# Needed for type sorting
|
||||
foreach my $d (sort keys %__devs ) {
|
||||
$__types{$__devs{$d}{type}} = 1;
|
||||
}
|
||||
$__title = $__devs{global}{ATTR}{title}{VAL} ?
|
||||
$__devs{global}{ATTR}{title}{VAL} : "First page";
|
||||
$__room = $__devs{$__detail}{ATTR}{room}{VAL} if($__detail);
|
||||
}
|
||||
|
||||
|
||||
######################
|
||||
# Generate an image from the log via gnuplot
|
||||
sub
|
||||
FHEMRENDERER_render($)
|
||||
{
|
||||
my ($cmd) = @_;
|
||||
my (undef, $wl, $d, $type, $file) = split(" ", $cmd, 5);
|
||||
|
||||
my $gplot_pgm = "$FHEMRENDERERdir/$type.gplot";
|
||||
return FHEMRENDERER_fatal("Cannot read $gplot_pgm") if(!-r $gplot_pgm);
|
||||
FHEMRENDERER_calcWeblink($d,$wl);
|
||||
|
||||
if($__plotmode =~ m/gnuplot/) {
|
||||
if($__plotmode eq "gnuplot" || !$__devs{$d}{from}) {
|
||||
|
||||
# Looking for the logfile....
|
||||
|
||||
$__devs{$d}{INT}{logfile}{VAL} =~ m,^(.*)/([^/]*)$,; # Dir and File
|
||||
my $path = "$1/$file";
|
||||
$path = $__devs{$d}{ATTR}{archivedir}{VAL} . "/$file" if(!-f $path);
|
||||
return FHEMRENDERER_fatal("Cannot read $path") if(!-r $path);
|
||||
|
||||
open(FH, $gplot_pgm) || return FHEMRENDERER_fatal("$gplot_pgm: $!");
|
||||
my $gplot_script = join("", <FH>);
|
||||
close(FH);
|
||||
|
||||
$gplot_script =~ s/<OUT>/$FHEMRENDERER_tmpfile$wl/g;
|
||||
$gplot_script =~ s/<SIZE>/$__plotsize/g;
|
||||
$gplot_script =~ s/<IN>/$path/g;
|
||||
$gplot_script =~ s/<TL>/$file/g;
|
||||
|
||||
if($__devs{$wl} && $__devs{$wl}{ATTR}{fixedrange}) {
|
||||
my $fr = $__devs{$wl}{ATTR}{fixedrange}{VAL};
|
||||
$fr =~ s/ /\":\"/;
|
||||
$fr = "set xrange [\"$fr\"]\n";
|
||||
$gplot_script =~ s/(set timefmt ".*")/$1\n$fr/;
|
||||
}
|
||||
|
||||
open(FH, "|gnuplot > /dev/null");# feed it to gnuplot
|
||||
print FH $gplot_script;
|
||||
close(FH);
|
||||
|
||||
} elsif($__plotmode eq "gnuplot-scroll") {
|
||||
|
||||
############################
|
||||
# Read in the template gnuplot file. Digest the #FileLog lines. Replace
|
||||
# the plot directive with our own, as we offer a file for each line
|
||||
|
||||
my (@filelog, @data, $plot);
|
||||
open(FH, $gplot_pgm) || return FHEMRENDERER_fatal("$gplot_pgm: $!");
|
||||
while(my $l = <FH>) {
|
||||
if($l =~ m/^#FileLog (.*)$/) {
|
||||
push(@filelog, $1);
|
||||
} elsif($l =~ "^plot" || $plot) {
|
||||
$plot .= $l;
|
||||
} else {
|
||||
push(@data, $l);
|
||||
}
|
||||
}
|
||||
close(FH);
|
||||
|
||||
my $gplot_script = join("", @data);
|
||||
$gplot_script =~ s/<OUT>/$FHEMRENDERER_tmpfile$wl/g;
|
||||
$gplot_script =~ s/<SIZE>/$__plotsize/g;
|
||||
$gplot_script =~ s/<TL>/$file/g;
|
||||
|
||||
my ($f,$t)=($__devs{$d}{from}, $__devs{$d}{to});
|
||||
|
||||
my @path = split(" ", fC("get $d $file $FHEMRENDERER_tmpfile$wl $f $t " .
|
||||
join(" ", @filelog)));
|
||||
my $i = 0;
|
||||
$plot =~ s/\".*?using 1:[^ ]+ /"\"$path[$i++]\" using 1:2 "/gse;
|
||||
my $xrange = "set xrange [\"$f\":\"$t\"]\n";
|
||||
foreach my $p (@path) { # If the file is empty, write a 0 line
|
||||
next if(!-z $p);
|
||||
open(FH, ">$p");
|
||||
print FH "$f 0\n";
|
||||
close(FH);
|
||||
}
|
||||
|
||||
open(FH, "|gnuplot > /dev/null");# feed it to gnuplot
|
||||
print FH $gplot_script, $xrange, $plot;
|
||||
close(FH);
|
||||
foreach my $p (@path) {
|
||||
unlink($p);
|
||||
}
|
||||
}
|
||||
|
||||
} #elsif($__plotmode eq "SVG") {
|
||||
|
||||
# my (@filelog, @data, $plot);
|
||||
# open(FH, $gplot_pgm) || return FHEMRENDERER_fatal("$gplot_pgm: $!");
|
||||
# while(my $l = <FH>) {
|
||||
# if($l =~ m/^#FileLog (.*)$/) {
|
||||
# push(@filelog, $1);
|
||||
# } elsif($l =~ "^plot" || $plot) {
|
||||
# $plot .= $l;
|
||||
# } else {
|
||||
# push(@data, $l);
|
||||
# }
|
||||
# }
|
||||
# close(FH);
|
||||
# my ($f,$t)=($__devs{$d}{from}, $__devs{$d}{to});
|
||||
# $f = 0 if(!$f); # From the beginning of time...
|
||||
# $t = 9 if(!$t); # till the end
|
||||
#
|
||||
# my $ret = fC("get $d $file INT $f $t " . join(" ", @filelog));
|
||||
# SVG_render($file, $__plotsize, $f, $t, \@data, $internal_data, $plot);
|
||||
#
|
||||
# open (FH, ">$FHEMRENDERER_tmpfile$wl.svg");
|
||||
# print FH $__RET;
|
||||
# close (FH);
|
||||
# }
|
||||
}
|
||||
|
||||
|
||||
|
||||
##################
|
||||
sub
|
||||
FHEMRENDERER_fatal($)
|
||||
{
|
||||
my ($msg) = @_;
|
||||
pO "<html><body>$msg</body></html>";
|
||||
}
|
||||
|
||||
##################
|
||||
# print formatted
|
||||
sub
|
||||
pF($@)
|
||||
{
|
||||
my $fmt = shift;
|
||||
$__RET .= sprintf $fmt, @_;
|
||||
}
|
||||
|
||||
##################
|
||||
# print output
|
||||
sub
|
||||
pO(@)
|
||||
{
|
||||
$__RET .= shift;
|
||||
}
|
||||
|
||||
##################
|
||||
# fhem command
|
||||
sub
|
||||
fC($)
|
||||
{
|
||||
my ($cmd) = @_;
|
||||
#Log 0, "Calling $cmd";
|
||||
my $oll = $attr{global}{verbose};
|
||||
$attr{global}{verbose} = 0 if($cmd ne "save");
|
||||
my $ret = AnalyzeCommand(undef, $cmd);
|
||||
$attr{global}{verbose} = $oll if($cmd !~ m/attr.*global.*verbose/);
|
||||
return $ret;
|
||||
}
|
||||
|
||||
##################
|
||||
sub
|
||||
FHEMRENDERER_getAttr($$)
|
||||
{
|
||||
my ($aname, $def) = @_;
|
||||
if($attr{$__wname} && defined($attr{$__wname}{$aname})) {
|
||||
return $attr{$__wname}{$aname};
|
||||
} else {
|
||||
CommandAttr (undef, $__wname . " $aname $def");
|
||||
}
|
||||
return $def;
|
||||
}
|
||||
|
||||
##################
|
||||
sub
|
||||
FHEMRENDERER_setAttr($$)
|
||||
{
|
||||
my ($aname, $def) = @_;
|
||||
CommandAttr (undef, $__wname . " $aname $def");
|
||||
}
|
||||
|
||||
|
||||
##################
|
||||
# Calculate either the number of scrollable weblinks (for $d = undef) or
|
||||
# for the device the valid from and to dates for the given zoom and offset
|
||||
sub
|
||||
FHEMRENDERER_calcWeblink($$)
|
||||
{
|
||||
my ($d,$wl) = @_;
|
||||
|
||||
return if($__plotmode eq "gnuplot");
|
||||
my $now = time();
|
||||
|
||||
my $zoom = $__pos{zoom};
|
||||
$zoom = "day" if(!$zoom);
|
||||
|
||||
if(!$d) {
|
||||
foreach my $d (sort keys %__devs ) {
|
||||
next if($__devs{$d}{type} ne "weblink");
|
||||
next if(!$__room || ($__room ne "all" && !$__rooms{$__room}{$d}));
|
||||
next if($__devs{$d}{ATTR} && $__devs{$d}{ATTR}{noscroll});
|
||||
next if($__devs{$d}{ATTR} && $__devs{$d}{ATTR}{fixedrange});
|
||||
$__scrolledweblinkcount++;
|
||||
}
|
||||
return;
|
||||
}
|
||||
|
||||
|
||||
return if(!$__devs{$wl});
|
||||
return if($__devs{$wl} && $__devs{$wl}{ATTR}{noscroll});
|
||||
|
||||
if($__devs{$wl} && $__devs{$wl}{ATTR}{fixedrange}) {
|
||||
my @range = split(" ", $__devs{$wl}{ATTR}{fixedrange}{VAL});
|
||||
$__devs{$d}{from} = $range[0];
|
||||
$__devs{$d}{to} = $range[1];
|
||||
return;
|
||||
}
|
||||
|
||||
my $off = $__pos{$d};
|
||||
$off = 0 if(!$off);
|
||||
$off += $__pos{off} if($__pos{off});
|
||||
|
||||
if($zoom eq "qday") {
|
||||
|
||||
my $t = $now + $off*21600;
|
||||
my @l = localtime($t);
|
||||
$l[2] = int($l[2]/6)*6;
|
||||
$__devs{$d}{from}
|
||||
= sprintf("%04d-%02d-%02d_%02d",$l[5]+1900,$l[4]+1,$l[3],$l[2]);
|
||||
$__devs{$d}{to}
|
||||
= sprintf("%04d-%02d-%02d_%02d",$l[5]+1900,$l[4]+1,$l[3],$l[2]+6);
|
||||
|
||||
} elsif($zoom eq "day") {
|
||||
|
||||
my $t = $now + $off*86400;
|
||||
my @l = localtime($t);
|
||||
$__devs{$d}{from} = sprintf("%04d-%02d-%02d",$l[5]+1900,$l[4]+1,$l[3]);
|
||||
$__devs{$d}{to} = sprintf("%04d-%02d-%02d",$l[5]+1900,$l[4]+1,$l[3]+1);
|
||||
|
||||
} elsif($zoom eq "week") {
|
||||
|
||||
my @l = localtime($now);
|
||||
my $t = $now - ($l[6]*86400) + ($off*86400)*7;
|
||||
@l = localtime($t);
|
||||
$__devs{$d}{from} = sprintf("%04d-%02d-%02d",$l[5]+1900,$l[4]+1,$l[3]);
|
||||
|
||||
@l = localtime($t+7*86400);
|
||||
$__devs{$d}{to} = sprintf("%04d-%02d-%02d",$l[5]+1900,$l[4]+1,$l[3]);
|
||||
|
||||
|
||||
} elsif($zoom eq "month") {
|
||||
|
||||
my @l = localtime($now);
|
||||
while($off < -12) {
|
||||
$off += 12; $l[5]--;
|
||||
}
|
||||
$l[4] += $off;
|
||||
$l[4] += 12, $l[5]-- if($l[4] < 0);
|
||||
$__devs{$d}{from} = sprintf("%04d-%02d", $l[5]+1900, $l[4]+1);
|
||||
|
||||
$l[4]++;
|
||||
$l[4] = 0, $l[5]++ if($l[4] == 12);
|
||||
$__devs{$d}{to} = sprintf("%04d-%02d", $l[5]+1900, $l[4]+1);
|
||||
|
||||
} elsif($zoom eq "year") {
|
||||
|
||||
my @l = localtime($now);
|
||||
$l[5] += $off;
|
||||
$__devs{$d}{from} = sprintf("%04d", $l[5]+1900);
|
||||
$__devs{$d}{to} = sprintf("%04d", $l[5]+1901);
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
1;
|
||||
71
fhem/webfrontend/pgm5/README.txt
Normal file
71
fhem/webfrontend/pgm5/README.txt
Normal file
@ -0,0 +1,71 @@
|
||||
Web frontend 5 (webfrontend/pgm5) (known upto FHEM 4.2 as pgm2):
|
||||
|
||||
This frontend is CGI/CSS based. It has support for rooms, and FHT/KS300 logs.
|
||||
|
||||
This webfrontend is an update of the former know pgm2 (up to 4.2):
|
||||
It resides in YOUR HTTP server, and doesn't provide an own, like the FHEMWEB module does.
|
||||
|
||||
Why to use this:
|
||||
1) If you want to stick with your Web-Servers (due to restrictions,
|
||||
ports or any other reason)
|
||||
2) If you have a NAS (Network attached storage) and limited CPU-Power.
|
||||
This frontend can render the graphics in the background (in
|
||||
intervals) and sends only the rendered graphics to the HTML-Page.
|
||||
3) If you need the FHEMRENDERER to render the images for other/own
|
||||
pages.
|
||||
|
||||
How it works:
|
||||
The WebFrontend works as usual and well known from before.
|
||||
Main difference:
|
||||
It creates and uses an instance of FHEMRENDERER (called renderer).
|
||||
The renderer has plotmode, plotsize, tmpfile, status, refresh as attributes.
|
||||
With this you can control, how it works (and when in renders: refresh: 00:15:00 means every 15 minutes it will render an update).
|
||||
|
||||
What will be rendered: All FileLogs for which you have set a WebLink will be rendered in the given intervals.
|
||||
|
||||
The GET method of the renderer is also able to render specific graphics only for single use on request.
|
||||
|
||||
Supported methods of renderer:
|
||||
DEFINE, SET, GET, ATTR
|
||||
DEFINE: defines the renderer
|
||||
SET: Set renderer ON/OFF toggels interval based rendering
|
||||
GET: renders graphics, based on given parameters
|
||||
ATTR: defines attributes, but all attributes will be set during define
|
||||
to default values.
|
||||
|
||||
The PGM5 webfrontend does all this for you, but if you want to use the FHEMRENDERER for own things, you can use it directly.
|
||||
|
||||
Installation:
|
||||
Copy the file fhemweb.pl and *.css to your cgi-bin directory (/home/httpd/cgi-bin), the icons (*.gif) to your httpd icons (/home/httpd/icons), and commandref.html to the html directory (/home/httpd/html) (or also to cgi-bin directory).
|
||||
|
||||
The *.gplot files should be reused from the built-in FHEMWEB and should reside in the installed FHEM directory. Here we don't provide specific *.gplot files as the mechanisms are exactly the same.
|
||||
|
||||
Note: The program looks for icons in the following order:
|
||||
<device-name>.<state>, <device-name>, <device-type>.<state>, <device-type>
|
||||
|
||||
If you want to have access to plotted logs, then make sure that gnuplot is installed and set the logtype for the FileLog device (see commandref.html and example/04_log).
|
||||
Copy the file contrib/99_weblink.pm to the installed FHEM directory.
|
||||
|
||||
Copy the file pgm5/02_FHEMRENDERER.pm to the installed FHEM directory.
|
||||
This gives you a grphic rendering engine (gnuplot & gnuplot-scroll at the moment), which can be configured to renderer images in intervals.
|
||||
|
||||
Call <your-site>/cgi-bin/fhemweb.pl
|
||||
|
||||
If you want to show only a part of your devices on a single screen
|
||||
(i.e divide them into separate rooms), then assign each device the
|
||||
room attribute in the config file:
|
||||
|
||||
attr ks300 room garden
|
||||
attr ks300-log room garden
|
||||
|
||||
The attribute title of the global device will be used as title on the first
|
||||
screen, which shows the list of all rooms. Devices in the room
|
||||
"hidden" will not be shown. Devices without a room attribute go
|
||||
to the room "misc".
|
||||
|
||||
To configure the absicondir and relicondir correctly, look into the
|
||||
httpd.conf file (probably /etc/httpd/conf/httpd.conf), and check the
|
||||
line which looks like:
|
||||
Alias /icons/ "/home/httpd/icons/"
|
||||
relicondir will then be /icons, and absicondir /home/httpd/icons.
|
||||
|
||||
1122
fhem/webfrontend/pgm5/fhemweb.pl
Normal file
1122
fhem/webfrontend/pgm5/fhemweb.pl
Normal file
File diff suppressed because it is too large
Load Diff
44
fhem/webfrontend/pgm5/style.css
Normal file
44
fhem/webfrontend/pgm5/style.css
Normal file
@ -0,0 +1,44 @@
|
||||
body { color: black; background: #FFFFD7; }
|
||||
|
||||
table { -moz-border-radius:8px; }
|
||||
|
||||
table.room { border:thin solid; width: 100%; background: #D7FFFF; }
|
||||
table.room tr.sel { background: #A0FFFF; }
|
||||
|
||||
table.at { border:thin solid; width: 100%; background: #FFFFC0; }
|
||||
table.at tr.odd { background: #FFFFD7; }
|
||||
|
||||
table.notify { border:thin solid; width: 100%; background: #D7D7A0; }
|
||||
table.notify tr.odd { background: #FFFFC0; }
|
||||
|
||||
table.FileLog { border:thin solid; width: 100%; background: #FFC0C0; }
|
||||
table.FileLog tr.odd { background: #FFD7D7; }
|
||||
|
||||
table._internal_ { border:thin solid; width: 100%; background: #C0C0C0; }
|
||||
table._internal_ tr.odd { background: #D7D7D7; }
|
||||
|
||||
table.FS20 { border:thin solid; width: 100%; background: #C0FFFF; }
|
||||
table.FS20 tr.odd { background: #D7FFFF; }
|
||||
|
||||
table.FHT { border:thin solid; width: 100%; background: #FFC0C0; }
|
||||
table.FHT tr.odd { background: #FFD7D7; }
|
||||
|
||||
table.KS300 { border:thin solid; width: 100%; background: #C0FFC0; }
|
||||
table.KS300 tr.odd { background: #A7FFA7; }
|
||||
|
||||
table.FHZ { border:thin solid; width: 100%; background: #C0C0C0; }
|
||||
table.FHZ tr.odd { background: #D7D7D7; }
|
||||
|
||||
table.EM { border:thin solid; width: 100%; background: #E0E0E0; }
|
||||
table.EM tr.odd { background: #F0F0F0; }
|
||||
|
||||
table.FHEMWEB { border:thin solid; width: 100%; background: #E0E0E0; }
|
||||
table.FHEMWEB tr.odd { background: #F0F0F0; }
|
||||
|
||||
table.FHEMRENDERER { border:thin solid; width: 100%; background: #E0E0E0; }
|
||||
table.FHEMRENDERER tr.odd { background: #F0F0F0; }
|
||||
|
||||
#hdr { position:absolute; top:10px; left:10px; }
|
||||
#left { position:absolute; top:50px; left:10px; width:130px; }
|
||||
#right { position:absolute; top:50px; left:160px;
|
||||
right:10px; bottom:10px; overflow:auto; }
|
||||
Loading…
x
Reference in New Issue
Block a user