mirror of
https://github.com/fhem/fhem-mirror.git
synced 2024-06-17 05:40:11 +00:00
1c77fffc09
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@23597 2b470e98-0d58-463d-a4d8-8e2adae1ed80
317 lines
8.3 KiB
Perl
317 lines
8.3 KiB
Perl
##############################################
|
|
# $Id$
|
|
package main;
|
|
|
|
use strict;
|
|
use warnings;
|
|
use vars qw($FW_subdir); # Sub-path in URL for extensions, e.g. 95_FLOORPLAN
|
|
use vars qw($FW_ME); # webname (default is fhem), used by 97_GROUP/weblink
|
|
use vars qw($FW_CSRF); # CSRF Token or empty
|
|
use IO::File;
|
|
|
|
#####################################
|
|
sub
|
|
weblink_Initialize($)
|
|
{
|
|
my ($hash) = @_;
|
|
|
|
$hash->{DefFn} = "weblink_Define";
|
|
$hash->{AttrList} =
|
|
"disable:0,1 disabledForIntervals htmlattr nodetaillink:1,0";
|
|
$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 = (
|
|
associatedWith=>1,
|
|
cmdList=>1,
|
|
dbplot=>1,
|
|
fileplot=>1,
|
|
htmlCode=>1,
|
|
iframe=>1,
|
|
image=>1,
|
|
link=>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", "") || AttrVal($d, "nodetaillink", ""));
|
|
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 = "";
|
|
|
|
return "" if(IsDisabled($d));
|
|
my $attr = AttrVal($d, "htmlattr", "");
|
|
if($wltype eq "htmlCode") {
|
|
$link = AnalyzePerlCommand(undef, $link) if($link =~ m/^{(.*)}$/s);
|
|
$ret = $link;
|
|
|
|
} elsif($wltype eq "link") {
|
|
my $alias = AttrVal($d, "alias", $d);
|
|
$ret = "<a href=\"$link\" $attr>$alias</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='$FW_ME?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='$FW_ME?cmd=$args[2]$FW_CSRF'><div class='col1'>".
|
|
"<img src='$FW_ME/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 "associatedWith") {
|
|
my $js = "$FW_ME/pgm2/zwave_neighborlist.js";
|
|
return
|
|
"<div id='ZWDongleNr'><a id='zw_snm' href='#'>Show neighbor map</a></div>".
|
|
"<div id='ZWDongleNrSVG'></div>".
|
|
"<script type='text/javascript' src='$js'></script>".
|
|
'<script type="text/javascript">'.<<"JSEND"
|
|
\$(document).ready(function() {
|
|
\$("div#ZWDongleNr a#zw_snm")
|
|
.click(function(e){
|
|
e.preventDefault();
|
|
zw_nl('webdev_AWData("$d")');
|
|
});
|
|
});
|
|
</script>
|
|
JSEND
|
|
}
|
|
|
|
return $ret;
|
|
}
|
|
|
|
sub
|
|
webdev_AWData($)
|
|
{
|
|
my ($me) = @_;
|
|
|
|
my (%h, @ds);
|
|
my ($fo, $foCount, $level) = ("", 0, 0);
|
|
my @l = split(" ", $defs{$me}{LINK});
|
|
|
|
@ds = devspec2array($l[0]);
|
|
for(;;) {
|
|
$level++;
|
|
my %new;
|
|
foreach my $d (@ds) {
|
|
next if($h{$d} || !$defs{$d} || $defs{$d}{TEMPORARY});
|
|
my @paw = getPawList($d);
|
|
map { $new{$_}=1 if(!$h{$_}) } @paw;
|
|
my $a = AttrVal($d,"alias","");
|
|
my $r = AttrVal($d,"room","");
|
|
$h{$d}{title} =
|
|
($a ? "Alias:$a ":"").
|
|
($r ? "room:$r ":"").
|
|
("type:".$defs{$d}{TYPE});
|
|
$h{$d}{neighbors} = \@paw;
|
|
$h{$d}{class} = ($level == 1 ? "zwDongle" : "zwBox");
|
|
$h{$d}{txt} = $d;
|
|
$h{$d}{neighbors} = \@paw;
|
|
|
|
$fo = $d if(!$fo);
|
|
if($level == 1 && $foCount < int(@paw)) {
|
|
$foCount = int(@paw);
|
|
$fo = $d;
|
|
}
|
|
}
|
|
last if($l[1] && $l[1] <= $level);
|
|
@ds = keys %new;
|
|
last if(!@ds);
|
|
}
|
|
|
|
my @ret;
|
|
my @dp = split(" ", AttrVal($me, "htmlattr", ""));
|
|
my %dp = @dp;
|
|
for my $k (keys %h) {
|
|
my $n = $h{$k}{neighbors};
|
|
push @ret, '"'.$k.'":{'.
|
|
'"class":"'.$h{$k}{class}.' col_link col_oddrow",'.
|
|
'"txt":"'.$h{$k}{txt}.'",'.
|
|
'"title":"'.$h{$k}{title}.'",'.
|
|
'"pos":['.($dp{$k} ? $dp{$k} : '').'],'.
|
|
'"neighbors":['. (@{$n} ? ('"'.join('","',@{$n}).'"'):'').']}';
|
|
}
|
|
|
|
my $r = '{"firstObj":"'.$fo.'",'.
|
|
'"el":{'.join(",",@ret).'},'.
|
|
'"skipArrow":true,'.
|
|
'"saveFn":"{webdev_AWaddPos(\''.$me.'\',\'{1}\',\'{2}\')}" }';
|
|
return $r;
|
|
}
|
|
|
|
sub
|
|
webdev_AWaddPos($$$)
|
|
{
|
|
my ($me, $d, $pos) = @_;
|
|
my @dp = split(" ", AttrVal($me, "htmlattr", ""));
|
|
my %dp = @dp;
|
|
$dp{$d} = $pos;
|
|
CommandAttr(undef,"$me htmlattr ".join(" ",map {"$_ $dp{$_}"} sort keys %dp));
|
|
}
|
|
|
|
1;
|
|
|
|
=pod
|
|
=item helper
|
|
=item summary define a HTTP link for the FHEMWEB frontend
|
|
=item summary_DE HTTP Link fuer das FHEMWEB Frontend
|
|
=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|associatedWidth]
|
|
<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://fhem.de<br>
|
|
define webcam_picture weblink image http://w.x.y.z/current.jpg<br>
|
|
define interactive_webcam weblink iframe http://w.x.y.z/webcam.cgi<br>
|
|
define hr weblink htmlCode <hr><br>
|
|
define w_Frlink weblink htmlCode { WeatherAsHtml("w_Frankfurt") }<br>
|
|
define systemCommands weblink cmdList
|
|
pair:Pair:set+cul2+hmPairForSec+60
|
|
restart:Restart:shutdown+restart
|
|
update:UpdateCheck:update+check
|
|
define aw weblink associatedWith rgr_Residents 3
|
|
</code>
|
|
</ul>
|
|
<br>
|
|
|
|
Notes:
|
|
<ul>
|
|
<li>For cmdList <argument> consists of a list of space separated
|
|
icon:label:cmd triples.</li>
|
|
|
|
<li>the associatedWidth mode takes a devspec and an optional depth as
|
|
arguments, and follows the devices along the "probably associated with"
|
|
links seen on the detail page for depth iterations. The so collected data
|
|
can be displayed as an SVG graph.</li>
|
|
|
|
</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 iframe http://weather.yahooapis.com/forecastrss?w=650272&u=c<br>
|
|
attr yw htmlattr width="480" height="560"<br>
|
|
</code>
|
|
</ul></li>
|
|
|
|
<a name="nodetaillink"></a>
|
|
<li>nodetaillink<br>
|
|
Show no detail link for the types image and iframe.
|
|
</li>
|
|
|
|
<li><a href="#disable">disable</a></li>
|
|
<li><a href="#disabledForIntervals">disabledForIntervals</a></li>
|
|
</ul>
|
|
|
|
<br>
|
|
|
|
</ul>
|
|
|
|
=end html
|
|
=cut
|