weblink beachtet webname nicht

[stromer-12]

Hallo,

ich habe gerade festgestellt, das weblink den webnamen nicht beachtet und star nach "/fhem?" arbeitet.

Gruß

[stromer-12]

Betrifft cmdList

[stromer-12]

ich habe mal eine Anpassung gemacht.

Code Auswählen Erweitern

--- 98_weblink.pm       2016-08-20 23:32:00.000000000 +0200
+++ /opt/fhem/FHEM/98_weblink.pm        2017-01-18 16:21:51.684459296 +0100
@@ -86,9 +86,10 @@
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 $hash    = $defs{$d};
+  my $link    = $hash->{LINK};
+  my $wltype  = $hash->{WLTYPE};
+  my $webname = AttrVal($FW_wname, "webname", "fhem");
   my $ret = "";

   return "" if(IsDisabled($d));
@@ -114,15 +115,15 @@
     my @lines = split(" ", $link);
     my $row = 1;
     $ret = "<table>";
-    $ret .= "<tr><td><div class='devType'><a href='/fhem?detail=$d'>"
+    $ret .= "<tr><td><div class='devType'><a href='/".$webname."?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' ".
+      $ret .= "<td><a href='/".$webname."?cmd=$args[2]'><div class='col1'>".
+                "<img src='/".$webname."/icons/$args[0]' width='19' height='19' ".
                 "align='center' alt='$args[0]' title='$args[0]'>".
                 "$args[1]</div></a></td></td>";
       $ret .= "</tr>";


[rudolfkoenig]

Danke, habs gefixt. Habe leider deinen Patch zu spaet gesehen, deswegen ist meine Variante ein bisschen anders ausgefallen.