More template fixes

* Only add writable entries to the output templates
* Fix syntax for sending MQTT values

Author: Gagi2k

webfrontend/htmlauth/index.cgi

@@ -136,14 +136,17 @@ if ($R::saveformdata2) {
 
         my $count = scalar(@datenpunkte);
 
-        # Generate a temporary arroy for all virtual inputs
         for ($i = 1; $i < $count; $i++) {
             my $id = sprintf "%03d", $datenpunkte[$i][0];
             my $device = $datenpunkte[$i][1];
             my $name = encode('UTF-8', $datenpunkte[$i][1]." ".$datenpunkte[$i][2]);
+            my $input_output = $datenpunkte[$i][4];
             if ($id == '000') {
                 next;
             }
+            if (!($input_output =~ /Out/)) {
+                next;
+            }
 
             foreach $item (@devices) {
                 if ($item eq $device) {
@@ -173,11 +176,16 @@ if ($R::saveformdata2) {
         # Generate a temporary arroy for all virtual inputs
         for ($i = 1; $i < $count; $i++) {
             my $id = sprintf "%03d", $datenpunkte[$i][0];
+            my $device = $datenpunkte[$i][1];
             my $name = encode('UTF-8', $datenpunkte[$i][1]." ".$datenpunkte[$i][2]);
+            my $input_output = $datenpunkte[$i][4];
 
             if ($id == '000') {
                 next;
             }
+            if (!($input_output =~ /In/)) {
+                next;
+            }
 
             foreach $item (@devices) {
                 if ($item eq $device) {
@@ -216,15 +224,20 @@ if ($R::saveformdata2) {
             my $device = $datenpunkte[$i][1];
             my $name = encode('UTF-8', $datenpunkte[$i][1]." ".$datenpunkte[$i][2]);
             my $topic = encode('UTF-8', "wolfism8_".getMQTTFriendly($datenpunkte[$i][1])."_".getMQTTFriendly($datenpunkte[$i][2]));
+            my $input_output = $datenpunkte[$i][4];
             if ($id == '000') {
                 next;
             }
+            if (!($input_output =~ /Out/)) {
+                next;
+            }
 
             foreach $item (@devices) {
                 if ($item eq $device) {
                     my $linenr = $VIhttp->VirtualInHttpCmd (
                         Title => "$topic",
-                        Comment => "$name"
+                        Comment => "$name",
+                        Check => " "
                     );
                 }
             }
@@ -248,21 +261,26 @@ if ($R::saveformdata2) {
         # Generate a temporary arroy for all virtual inputs
         for ($i = 1; $i < $count; $i++) {
             my $id = sprintf "%03d", $datenpunkte[$i][0];
+            my $device = $datenpunkte[$i][1];
             my $name = encode('UTF-8', $datenpunkte[$i][1]." ".$datenpunkte[$i][2]);
             my $topic = encode('UTF-8', "wolfism8/".getMQTTFriendly($datenpunkte[$i][1])."/".getMQTTFriendly($datenpunkte[$i][2]));
             my $topic_name = $topic;
             $topic_name =~ s/\//_/g;
+            my $input_output = $datenpunkte[$i][4];
 
             if ($id == '000') {
                 next;
             }
+            if (!($input_output =~ /In/)) {
+                next;
+            }
 
             foreach $item (@devices) {
                 if ($item eq $device) {
                     my $linenr = $VO->VirtualOutCmd (
                         Title => "$topic_name",
                         Comment => "$name",
-                        CmdOn => "retain $topic \v",
+                        CmdOn => "retain $topic <v>",
                         Analog => 1,
                     );
                 }