[Rt-commit] r4777 - in rt/branches/3.7-EXPERIMENTAL: .

[ruz at bestpractical.com]

Author: ruz
Date: Mon Mar 20 11:24:57 2006
New Revision: 4777

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/html/Admin/Tools/Configuration.html

Log:
 r2120 at cubic-pc:  cubic | 2006-03-20 19:31:39 +0300
 * report system config options


Modified: rt/branches/3.7-EXPERIMENTAL/html/Admin/Tools/Configuration.html
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/html/Admin/Tools/Configuration.html	(original)
+++ rt/branches/3.7-EXPERIMENTAL/html/Admin/Tools/Configuration.html	Mon Mar 20 11:24:57 2006
@@ -70,14 +70,39 @@
 
 </pre>
 
+<h2><&|/l&>RT Config</&></h2>
+<table>
+% foreach my $key ( RT->Config->Options( Overridable => undef ) ) {
+% my $val = RT->Config->Get( $key );
+% next unless defined $val;
+<tr><td><% $key %></td>
+<td>
+% if ( $key =~ /Password(?!Length)/i ) { 
+<em>Password not printed</em>
+% } else {
+% unless ( ref $val ) {
+<% $val %>
+% } elsif ( ref $val eq 'ARRAY' ) {
+<% join ', ', @$val %>
+% } elsif ( ref $val eq 'HASH' ) {
+<% join ', ', %$val %>
+% } else {
+<% ref $val %>
+% }
+% }
+</td>
+</tr>
+% }
+</table>
+
 <h2><&|/l&>RT Variables</&></h2>
 <table>
 %{
 %no strict qw/refs/;
 
 %foreach my $key (sort keys %{*RT::}) {
-% next unless (${'RT::'.$key} );
-% next if (ref ${'RT::'.$key} );
+% next unless ${'RT::'.$key};
+% next if ref ${'RT::'.$key};
 <tr><td>RT::<%$key%></td>
 <td>
 % if ($key =~ /Password(?!Length)/i) {