[Rt-commit] rt branch, 4.2/report-os-details, created. rt-4.0.6-446-g7534d84

[Thomas Sibley]

The branch, 4.2/report-os-details has been created
        at  7534d84af3b2962a45cd3ad8041ea8e98ad34014 (commit)

- Log -----------------------------------------------------------------
commit 7534d84af3b2962a45cd3ad8041ea8e98ad34014
Author: Thomas Sibley <trs at bestpractical.com>
Date:   Thu Aug 9 12:44:54 2012 -0700

    Report basic operating system information on System Configuration
    
    Three often useful pieces of info to know when debugging.

diff --git a/share/html/Admin/Tools/Configuration.html b/share/html/Admin/Tools/Configuration.html
index ed7d465..bf0b3a7 100644
--- a/share/html/Admin/Tools/Configuration.html
+++ b/share/html/Admin/Tools/Configuration.html
@@ -256,6 +256,25 @@ if ($item =~ /^\s*(.*?)\s*v(\S+);/) {
 </pre>
 </&>
 
+<&|/Widgets/TitleBox, title => loc("Operating System") &>
+<table border="0" cellspacing="0" cellpadding="5" width="100%" class="collection">
+<%perl>
+my %os = (
+    "Distribution"   => 'lsb_release --all',
+    "uname -a"       => 'uname -a',
+    "SELinux status" => 'getenforce',
+);
+my $row = 0;
+</%perl>
+% while (my ($name, $cmd) = each %os) {
+<tr class="collection-as-table <% $row++ % 2 ? "oddline" : "evenline" %>">
+<td class="collection-as-table"><% $name %></td>
+<td class="collection-as-table" style="white-space: pre; font-family: monospace"><% `$cmd </dev/null 2>/dev/null` || '' %></td>
+</tr>
+% }
+</table>
+</&>
+
 <%INIT>
 use Data::Dumper;
 local $Data::Dumper::Terse = 1;

-----------------------------------------------------------------------