From c82d349f864e6bd9f96fd1156903bc1f7193a203 Mon Sep 17 00:00:00 2001 From: cvs2git Date: Mon, 27 Dec 2010 00:04:45 +0000 Subject: This commit was manufactured by cvs2svn to create tag 'TORRUS_1_0_9'. --- rt/share/html/Admin/Tools/Configuration.html | 242 --------------------------- 1 file changed, 242 deletions(-) delete mode 100644 rt/share/html/Admin/Tools/Configuration.html (limited to 'rt/share/html/Admin/Tools/Configuration.html') diff --git a/rt/share/html/Admin/Tools/Configuration.html b/rt/share/html/Admin/Tools/Configuration.html deleted file mode 100644 index 22c846aca..000000000 --- a/rt/share/html/Admin/Tools/Configuration.html +++ /dev/null @@ -1,242 +0,0 @@ -%# BEGIN BPS TAGGED BLOCK {{{ -%# -%# COPYRIGHT: -%# -%# This software is Copyright (c) 1996-2009 Best Practical Solutions, LLC -%# -%# -%# (Except where explicitly superseded by other copyright notices) -%# -%# -%# LICENSE: -%# -%# This work is made available to you under the terms of Version 2 of -%# the GNU General Public License. A copy of that license should have -%# been provided with this software, but in any event can be snarfed -%# from www.gnu.org. -%# -%# This work is distributed in the hope that it will be useful, but -%# WITHOUT ANY WARRANTY; without even the implied warranty of -%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -%# General Public License for more details. -%# -%# You should have received a copy of the GNU General Public License -%# along with this program; if not, write to the Free Software -%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA -%# 02110-1301 or visit their web page on the internet at -%# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html. -%# -%# -%# CONTRIBUTION SUBMISSION POLICY: -%# -%# (The following paragraph is not intended to limit the rights granted -%# to you to modify and distribute this software under the terms of -%# the GNU General Public License and is only of importance to you if -%# you choose to contribute your changes and enhancements to the -%# community by submitting them to Best Practical Solutions, LLC.) -%# -%# By intentionally submitting any modifications, corrections or -%# derivatives to this work, or any other work intended for use with -%# Request Tracker, to Best Practical Solutions, LLC, you confirm that -%# you are the copyright holder for those contributions and you grant -%# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable, -%# royalty-free, perpetual, license to use, copy, create derivative -%# works based on those contributions, and sublicense and distribute -%# those contributions and any derivatives thereof. -%# -%# END BPS TAGGED BLOCK }}} -<%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 &> - -<&|/Widgets/TitleBox, title => loc("RT Configuration") &> - - - - - - -<%PERL> -my $index_conf; -foreach my $key ( RT->Config->Options( Overridable => undef, Sorted => 0 ) ) { - my $val = RT->Config->Get( $key ); - next unless defined $val; - - my $meta = RT->Config->Meta( $key ); - my $description = ''; - if ( $meta->{'Source'}{'Extension'} && $meta->{'Source'}{'SiteConfig'} ) { - $description = loc("[_1] site config", $meta->{'Source'}{'Extension'}); - } - elsif ( $meta->{'Source'}{'Extension'} ) { - $description = loc("[_1] core config", $meta->{'Source'}{'Extension'}); - } - elsif ( $meta->{'Source'}{'SiteConfig'} ) { - $description = loc("site config"); - } - else { - $description = loc("core config"); - } - $index_conf++; - - - - - - -% } -
<&|/l&>Option<&|/l&>Value<&|/l&>Source
<% $key %> -% if ( $key =~ /Password(?!Length)/i ) { -Password not printed\ -% } elsif ( !ref $val ) { -<% "$val" %>\ -% } elsif ( ref $val eq 'ARRAY' ) { -<% join ', ', @$val %>\ -% } elsif ( ref $val eq 'HASH' ) { -<% join ', ', %$val %>\ -% } else { -<% ref $val %>\ -% } - -% if ( $description =~ /^.*site config$/ ) { -<% $description %> -% } else { -<% $description %> -% } -
- - - - - -
-<&|/Widgets/TitleBox, title=> loc("RT core variables") &> - - - - - -<%PERL> -{ no strict qw/refs/; -my %config_opt = map { $_ => 1 } RT->Config->Options( Overridable => undef ); -my $index_var; -foreach my $key ( sort keys %{*RT::} ) { - next if !${'RT::'.$key} || ref ${'RT::'.$key} || $config_opt{ $key }; - $index_var++; - - - - - -% } -% } -
<&|/l&>Variable<&|/l&>Value
RT::<% $key %> -% if ( $key =~ /Password(?!Length)/i ) { -Password not printed -% } else { -<% ${'RT::'.$key} %> -% } -
- - -<&|/Widgets/TitleBox, title => loc("RT Size") &> - - - - - -<%PERL> -my ($index_size, $user_count, $privileged_count); -for my $type (qw/Tickets Queues Transactions Groups PrivilegedUsers UnprivilegedUsers/) { - my $count; - my $class = 'RT::' . $type; - $class =~ s/Privileged|Unprivileged//; - my $collection = $class->new($RT::SystemUser); - $collection->UnLimit; - if ($type =~ /PrivilegedUsers/) { - $user_count = $collection->CountAll; - $collection->LimitToPrivileged; - $count = $privileged_count = $collection->CountAll; - } elsif ($type =~ /UnprivilegedUsers/) { - $count = $user_count - $privileged_count; - } else { - $count = $collection->CountAll; - } - $index_size++; - - - - - -% } -
<&|/l&>Object<&|/l&>Size
<% $type %><% $count %>
- -		 - -<&|/Widgets/TitleBox, title => loc("Mason template search order") &> -
    -% foreach my $path ( map { $_->[1] } $m->interp->comp_root_array ) { -
  1. <% $path %>
    2. -% } -
- - -<&|/Widgets/TitleBox, title => loc("Perl library search order") &> -
    -% foreach my $inc (@INC) { -
  1. <% $inc %>
    2. -% } -
- - -
- -<&|/Widgets/TitleBox, title => loc("Loaded perl modules")&> - - - - - - - -<%perl> -my $i = 0; -my $report = Module::Versions::Report::report(); -my @report = grep /v\d/, split("\n",$report); -shift @report; # throw away the perl version -my ($ver, $source, $distfile); -foreach my $item (@report) { -if ($item =~ /^\s*(.*?)\s*v(\S+);/) { - $item = $1; - $ver = $2; - $distfile = $item.".pm"; - $distfile =~ s|::|/|g; -} - - - - - - -% } -
<&|/l&>Module<&|/l&>Version<&|/l&>Source
<% $item %> - <%$ver%> - - <% $INC{$distfile} %> -
- - -<&|/Widgets/TitleBox, title => loc("Perl configuration") &> -% require Config; -
-<% Config::myconfig() %>
-
- -- cgit v1.2.1