1
0
mirror of https://gitlab.com/depesz/explain.depesz.com.git synced 2025-02-21 19:48:37 +02:00
Hubert depesz Lubaczewski f185e5c746 Add /info page
This is only for users logged in, with granted "admin" privileges
(is_admin column in users table in database, by default false for
everybody, has to be manually changed in database).

Info page shows loaded modules, perl version and paths to used perl
interpreter and top level of explain.depesz.com application.
2014-10-31 22:03:11 +01:00

24 lines
472 B
Plaintext
Executable File

% layout 'default';
% my $title = 'System information';
% title $title;
<h1><%= $title =%></h1>
<ul>
<li>Perl version: <%= $perl->{'version'} %></li>
<li>Perl binary: <%= $perl->{'binary'} %></li>
<li>App home: <%= app()->home() %>
<li>Loaded modules:
<ul>
% for my $item ( @{ $modules } ) {
<li><%= $item->{'module'} %>
% if ( $item->{'version'} ) {
version <%= $item->{'version'} %>
% }
</li>
% }
</ul>
</li>
</ul>