Escape output

diff --git a/cluster-shell/run.cgi b/cluster-shell/run.cgi
index 2eddd91..51236a7 100755 (executable)
--- a/cluster-shell/run.cgi
+++ b/cluster-shell/run.cgi
@@ -109,7 +109,7 @@ foreach $s (@run) {
        else {
                # Done - show output
                print "<b>",&text('run_success', $d),"</b>\n";
-               print "<ul><pre>$rv->[1]</pre></ul><p>\n";
+               print "<ul><pre>".&html_escape($rv->[1])."</pre></ul><p>\n";
                }
        $p++;
        }