samba: Correctly escape status output

Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>

diff --git a/html/cgi-bin/samba.cgi b/html/cgi-bin/samba.cgi
index 634f6adb5f04d5a62ec725e17fc88414824740ca..981d5dcbea88eb3fc1be5f7ea166caf99562bf10 100644 (file)
--- a/html/cgi-bin/samba.cgi
+++ b/html/cgi-bin/samba.cgi
@@ -42,7 +42,7 @@ my @Logs = qx(ls /var/log/samba/);
 my $Log =$Lang::tr{'no log selected'};
 
 my $Status = qx(/usr/local/bin/sambactrl smbstatus);
-$Status=~s/\n/<br \/>/g;
+$Status = &Header::cleanhtml($Status);
 
 my $userentry = "";
 my @user = ();