From: Stefan Schantl <stefan.schantl@ipfire.org>
Date: Thu, 20 May 2021 17:46:59 +0000 (+0200)
Subject: mdstat.cgi: Print mdstat status in pure perl
X-Git-Tag: v2.25-core158~33^2~10^2~9
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=17ee1f135f67b91fe0d57189a2f2b57186e4c81e;p=ipfire-2.x.git

mdstat.cgi: Print mdstat status in pure perl

Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>
---

diff --git a/html/cgi-bin/mdstat.cgi b/html/cgi-bin/mdstat.cgi
index d476e074d6..9ee2b15a1a 100644
--- a/html/cgi-bin/mdstat.cgi
+++ b/html/cgi-bin/mdstat.cgi
@@ -42,7 +42,13 @@ my %mainsettings = ();
 &Header::openbox('100%', 'left',"MD Raid State");
 
 print '<textarea rows="25" cols="80" readonly="readonly">';
-print `cat "/proc/mdstat"`;
+
+# Grab mdstat status.
+open(MDSTAT, "/proc/mdstat");
+my @mdstat = <MDSTAT>;
+close(MDSTAT);
+print "@mdstat";
+
 print '</textarea>';
 
 &Header::closebox();