<%init> require Module::Versions::Report; my $title = loc('System Configuration'); unless ($session{'CurrentUser'}->HasRight( Object=> $RT::System, Right => 'SuperUser')) { Abort(loc('This feature is only available to system administrators')); } <& /Admin/Elements/Header, Title => $title &> <& /Admin/Elements/ToolTabs, current_tab => 'Admin/Tools/Configuration.html', current_subtab => 'Admin/Tools/Configuration.html', Title => $title &>

<&|/l&>Loaded perl modules

% my $report =  Module::Versions::Report::report();
% my @report = grep { /v\d/ } split("\n",$report);
<%join('
', @report)|n%>

<&|/l&>RT Variables

%{ %no strict qw/refs/; %foreach my $key (sort keys %{*RT::}) { % next unless (${'RT::'.$key} ); % next if (ref ${'RT::'.$key} ); % } %}
RT::<%$key%> % if ($key =~ /Password/i) { Password not printed % } else { <%${'RT::'.$key} %> % }

<&|/l&>Perl configuration

% require Config;
<%Config::myconfig()%>