mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-03-04 17:36:39 +00:00
856ce5a4fa
attribute, which is available from now on for all devices. git-svn-id: https://svn.fhem.de/fhem/trunk@3738 2b470e98-0d58-463d-a4d8-8e2adae1ed80
281 lines
8.7 KiB
Perl
Executable File
281 lines
8.7 KiB
Perl
Executable File
##############################################
|
|
# $Id$
|
|
package main;
|
|
|
|
use strict;
|
|
use warnings;
|
|
use vars qw($FW_subdir); # Sub-path in URL for extensions, e.g. 95_FLOORPLAN
|
|
use IO::File;
|
|
|
|
#####################################
|
|
sub
|
|
weblink_Initialize($)
|
|
{
|
|
my ($hash) = @_;
|
|
|
|
$hash->{DefFn} = "weblink_Define";
|
|
$hash->{AttrList} = "htmlattr";
|
|
$hash->{FW_summaryFn} = "weblink_FwFn";
|
|
$hash->{FW_detailFn} = "weblink_FwFn";
|
|
$hash->{FW_atPageEnd} = 1;
|
|
}
|
|
|
|
|
|
#####################################
|
|
sub
|
|
weblink_Define($$)
|
|
{
|
|
my ($hash, $def) = @_;
|
|
my ($name, $type, $wltype, $link) = split("[ \t]+", $def, 4);
|
|
my %thash = ( link=>1, image=>1, iframe=>1, htmlCode=>1,
|
|
cmdList=>1, readings=>1,
|
|
fileplot=>1, dbplot=>1);
|
|
|
|
if(!$link || !$thash{$wltype}) {
|
|
return "Usage: define <name> weblink [" .
|
|
join("|",sort keys %thash) . "] <arg>";
|
|
}
|
|
|
|
if($wltype eq "fileplot" || $wltype eq "dbplot") {
|
|
Log3 $name, 1, "Converting weblink $name ($wltype) to SVG";
|
|
my $newm = LoadModule("SVG");
|
|
return "Cannot load module SVG" if($newm eq "UNDEFINED");
|
|
$hash->{TYPE} = "SVG";
|
|
$hash->{DEF} = $link;
|
|
return CallFn($name, "DefFn", $hash, "$name $type $link");
|
|
}
|
|
|
|
$hash->{WLTYPE} = $wltype;
|
|
$hash->{LINK} = $link;
|
|
$hash->{STATE} = "initialized";
|
|
return undef;
|
|
}
|
|
|
|
#####################################
|
|
# FLOORPLAN compat
|
|
sub
|
|
FW_showWeblink($$$$)
|
|
{
|
|
my ($d,undef,undef,$buttons) = @_;
|
|
|
|
if($buttons !~ m/HASH/) {
|
|
my %h = (); $buttons = \%h;
|
|
}
|
|
FW_pO(weblink_FwFn(undef, $d, "", $buttons));
|
|
return $buttons;
|
|
}
|
|
|
|
|
|
##################
|
|
sub
|
|
weblink_FwDetail($@)
|
|
{
|
|
my ($d, $text, $nobr)= @_;
|
|
return "" if(AttrVal($d, "group", ""));
|
|
my $alias= AttrVal($d, "alias", $d);
|
|
|
|
my $ret = ($nobr ? "" : "<br>");
|
|
$ret .= "$text " if($text);
|
|
$ret .= FW_pHPlain("detail=$d", $alias) if(!$FW_subdir);
|
|
$ret .= "<br>";
|
|
return $ret;
|
|
}
|
|
|
|
sub
|
|
weblink_FwFn($$$$)
|
|
{
|
|
my ($FW_wname, $d, $room, $pageHash) = @_; # pageHash is set for summaryFn.
|
|
my $hash = $defs{$d};
|
|
my $link = $hash->{LINK};
|
|
my $wltype = $hash->{WLTYPE};
|
|
my $ret = "";
|
|
|
|
my $attr = AttrVal($d, "htmlattr", "");
|
|
if($wltype eq "htmlCode") {
|
|
$link = AnalyzePerlCommand(undef, $link) if($link =~ m/^{(.*)}$/);
|
|
$ret = $link;
|
|
|
|
} elsif($wltype eq "link") {
|
|
$ret = "<a href=\"$link\" $attr>$d</a>"; # no FW_pH, open extra browser
|
|
|
|
} elsif($wltype eq "image") {
|
|
$ret = "<img src=\"$link\" $attr><br>" .
|
|
weblink_FwDetail($d);
|
|
|
|
} elsif($wltype eq "iframe") {
|
|
$ret = "<iframe src=\"$link\" $attr>Iframes disabled</iframe>" .
|
|
weblink_FwDetail($d);
|
|
|
|
} elsif($wltype eq "cmdList") {
|
|
|
|
my @lines = split(" ", $link);
|
|
my $row = 1;
|
|
$ret = "<table>";
|
|
$ret .= "<tr><td><div class=\"devType\"><a href=\"/fhem?detail=$d\">".AttrVal($d, "alias", $d)."</a></div></td></tr>";
|
|
$ret .= "<tr><td><table class=\"block wide\">";
|
|
foreach my $line (@lines) {
|
|
my @args = split(":", $line, 3);
|
|
|
|
$ret .= "<tr class=\"".(($row++&1)?"odd":"even")."\">";
|
|
$ret .= "<td><a href=\"/fhem?cmd=$args[2]\"><div class=\col1\"><img src=\"/fhem/icons/$args[0]\" width=19 height=19 align=\"center\" alt=\"$args[0]\" title=\"$args[0]\"> $args[1]</div></a></td></td>";
|
|
$ret .= "</tr>";
|
|
}
|
|
$ret .= "</table></td></tr>";
|
|
$ret .= "</table><br>";
|
|
|
|
} elsif($wltype eq "readings") {
|
|
my @params = split(" ", $link);
|
|
|
|
my @devices;
|
|
my $mapping;
|
|
my $show_heading = 1;
|
|
my $show_state = 1;
|
|
my $show_time = 1;
|
|
|
|
while (@params) {
|
|
my $param = shift(@params);
|
|
|
|
if( $param eq '*noheading' ) {
|
|
$show_heading = 0;
|
|
}elsif( $param eq '*notime' ) {
|
|
$show_time = 0;
|
|
}
|
|
elsif( $param eq '*nostate' ) {
|
|
$show_state = 0;
|
|
}elsif( $param =~ m/^{/) {
|
|
$mapping = eval $param ." ". join( " ", @params );
|
|
last;
|
|
} else {
|
|
my @device = split(":", $param);
|
|
|
|
if( defined($defs{$device[0]}) ) {
|
|
push @devices, [@device];
|
|
} else {
|
|
foreach my $d (sort keys %defs) {
|
|
next if( IsIgnored($d) );
|
|
next if( $d !~ m/$device[0]/);
|
|
push @devices, [$d,$device[1]];
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
my $row = 1;
|
|
$ret .= "<table>";
|
|
$ret .= "<tr><td><div class=\"devType\"><a href=\"/fhem?detail=$d\">".AttrVal($d, "alias", $d)."</a></div></td></tr>" if( $show_heading );
|
|
$ret .= "<tr><td><table class=\"block wide\">";
|
|
foreach my $device (@devices) {
|
|
my $h = $defs{@{$device}[0]};
|
|
my $regex = @{$device}[1];
|
|
my $name = $h->{NAME};
|
|
next if( !$h );
|
|
foreach my $n (sort keys %{$h->{READINGS}}) {
|
|
next if( $n =~ m/^\./);
|
|
next if( $n eq "state" && !$show_state );
|
|
next if( defined($regex) && $n !~ m/$regex/);
|
|
my $val = $h->{READINGS}->{$n};
|
|
|
|
if(ref($val)) {
|
|
my ($v, $t) = ($val->{VAL}, $val->{TIME});
|
|
$v = FW_htmlEscape($v);
|
|
$t = "" if(!$t);
|
|
|
|
$ret .= sprintf("<tr class=\"%s\">", ($row&1)?"odd":"even");
|
|
$row++;
|
|
|
|
my $m = $n;
|
|
$m = $mapping->{$n} if( defined($mapping) && defined($mapping->{$n}) );
|
|
$m = $mapping->{$name.".".$n} if( defined($mapping) && defined($mapping->{$name.".".$n}) );
|
|
$m =~ s/\$NAME/$name/g;
|
|
$ret .= "<td><div class=\"dname\"><a href=\"/fhem?detail=$name\">$m</a></div></td>";;
|
|
$ret .= "<td><div informId=\"$name-$n\">$v</div></td>";
|
|
$ret .= "<td><div informId=\"$name-$n-ts\">$t</div></td>" if( $show_time );
|
|
}
|
|
}
|
|
}
|
|
$ret .= "</table></td></tr>";
|
|
$ret .= "</table>";
|
|
$ret .= "</br>";
|
|
|
|
}
|
|
|
|
return $ret;
|
|
}
|
|
|
|
1;
|
|
|
|
=pod
|
|
=begin html
|
|
|
|
<a name="weblink"></a>
|
|
<h3>weblink</h3>
|
|
<ul>
|
|
<a name="weblinkdefine"></a>
|
|
<b>Define</b>
|
|
<ul>
|
|
<code>define <name> weblink [link|image|iframe|htmlCode|cmdList|readings]
|
|
<argument></code>
|
|
<br><br>
|
|
This is a placeholder device used with FHEMWEB to be able to add user
|
|
defined links.
|
|
Examples:
|
|
<ul>
|
|
<code>define homepage weblink link http://www.fhem.de</code><br>
|
|
<code>define webcam_picture weblink image http://w.x.y.z/current.jpg</code><br>
|
|
<code>define interactive_webcam weblink iframe http://w.x.y.z/webcam.cgi</code><br>
|
|
<code>define hr weblink htmlCode <hr></code><br>
|
|
<code>define w_Frlink weblink htmlCode { WeatherAsHtml("w_Frankfurt") }</code><br>
|
|
<code>define systemCommands weblink cmdList pair:Pair:set+cul2+hmPairForSec+60 restart:Restart:shutdown+restart update:UpdateCheck:update+check</code><br>
|
|
<code>define wl_SystemStatus weblink readings sysstat *nostate *notime {{ 'load' => 'Systemauslastung', 'temperature' => 'Systemtemperatur in &deg;;C'}}</code><br>
|
|
<code>define wlHeizung weblink readings t1:temperature t2:temperature t3:temperature *notime {{ 't1.temperature' => 'Vorlauf', 't2.temperature' => 'R&uuml;;cklauf', 't3.temperature' => 'Zirkulation'}}</code>
|
|
</ul>
|
|
<br>
|
|
|
|
Notes:
|
|
<ul>
|
|
<li>For cmdList <argument> consist of a list of space separated icon:label:cmd triples.</li>
|
|
<li>For readings <argument> consist of one or more <device>[:regex] pairs,
|
|
zero or more of the modifiers *noheading, *notime and *nostate and as the last argument an optional {} expression that should return
|
|
a perl hash to map reading names to display names.
|
|
<ul>
|
|
<li><device><br>
|
|
the device(s) from which the readings should be taken</li>
|
|
<li>regex<br>
|
|
an optional regex to select the readings that should be displayed.</li>
|
|
<li>*noheading<br>don't display the table heading</li>
|
|
<li>*notime<br>don't display the reading timestamp</li>
|
|
<li>*nostate<br>don't include the state reading, other readings can be excluded with a regex of the form:<code>^((?!reading).)*$</code></li>
|
|
<li>{...}<br>
|
|
a perl expression that returns a hash that maps the reading name to the display name. keys can be either the name of the reading or <device>.<reading>. $NAME is replaced by the device name</li>
|
|
</li>
|
|
</ul>
|
|
</ul>
|
|
</ul>
|
|
|
|
<a name="weblinkset"></a>
|
|
<b>Set</b> <ul>N/A</ul><br>
|
|
|
|
<a name="weblinkget"></a>
|
|
<b>Get</b> <ul>N/A</ul><br>
|
|
|
|
<a name="weblinkattr"></a>
|
|
<b>Attributes</b>
|
|
<ul>
|
|
<a name="htmlattr"></a>
|
|
<li>htmlattr<br>
|
|
HTML attributes to be used for link, image and iframe type of links.
|
|
E.g.:<br>
|
|
<ul>
|
|
<code>
|
|
define yw weblink wl_im1 iframe http://weather.yahooapis.com/forecastrss?w=650272&u=c<br>
|
|
attr yw weblink htmlattr width="480" height="560"<br>
|
|
</code>
|
|
</ul></li>
|
|
</ul>
|
|
<br>
|
|
|
|
</ul>
|
|
|
|
=end html
|
|
=cut
|