diff --git a/fhem/FHEM/98_weblink.pm b/fhem/FHEM/98_weblink.pm index 9300d1267..5820072ae 100755 --- a/fhem/FHEM/98_weblink.pm +++ b/fhem/FHEM/98_weblink.pm @@ -38,7 +38,7 @@ weblink_Define($$) { my ($hash, $def) = @_; my ($type, $name, $wltype, $link) = split("[ \t]+", $def, 4); - my %thash = ( link=>1, fileplot=>1, dbplot=>1, image=>1, iframe=>1, htmlCode=>1 ); + my %thash = ( link=>1, fileplot=>1, dbplot=>1, image=>1, iframe=>1, htmlCode=>1, cmdList=>1 ); if(!$link || !$thash{$wltype}) { return "Usage: define weblink [" . @@ -138,6 +138,25 @@ weblink_FwFn($$$$) $ret = "" . weblink_FwDetail($d); + } elsif($wltype eq "cmdList") { + + my @lines = split(" ", $link); + my $row = 0; + my $ret = ""; + $ret .= ""; + $ret .= ""; + $ret .= "
"; + foreach my $line (@lines) { + my @args = split(":", $line, 3); + + $ret .= ""; + $ret .= ""; + $ret .= ""; + } + $ret .= "
\"$args[0]\" $args[1]

"; + + return $ret; + } elsif($wltype eq "fileplot" || $wltype eq "dbplot" ) { # plots navigation buttons @@ -419,7 +438,7 @@ weblink_WriteGplot($) Define
@@ -447,6 +467,7 @@ weblink_WriteGplot($) the current logfile to a weblink, it will always refer to the current file, even if its name changes regularly (and not the one you originally specified). +
  • For cmdList <argument> consist of a list of space separated icon:label:cmd triples.