webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-09 18:45:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

mdstat.cgi: Print mdstat status in pure perl

Browse Source 
Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>
This commit is contained in:
Stefan Schantl
2021-05-20 19:46:59 +02:00
committed by Michael Tremer
parent 2ccb63bce8
commit 17ee1f135f
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
html/cgi-bin/mdstat.cgi
View File

@@ -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();