db/explain.depesz.com
1
0
Fork 0
mirror of https://gitlab.com/depesz/explain.depesz.com.git synced 2025-07-05 00:58:52 +02:00
Code Activity

Add /info page

Browse Source 
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.
This commit is contained in:
Hubert depesz Lubaczewski
2014-10-31 22:03:11 +01:00
parent 930f22b1c6
commit f185e5c746
5 changed files with 57 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
lib/Explain/Controller.pm
View File

@ -7,10 +7,12 @@ use English -no_match_vars;
use Pg::Explain;
use Encode;
use Email::Valid;
use Config;
sub logout {
my $self = shift;
delete $self->session->{ 'user' };
delete $self->session->{ 'admin' };
$self->redirect_to( 'new-explain' );
}
@ -149,9 +151,10 @@ sub login {
return;
}
if ( $self->database->user_login( $username, $password ) ) {
if ( my $user = $self->database->user_login( $username, $password ) ) {
$self->flash( 'message' => 'User logged in.' );
$self->session( 'user' => $username );
$self->session( 'admin' => $user->{ 'admin' } );
$self->redirect_to( 'new-explain' );
}
$self->stash->{ 'message' } = 'Bad username or password.';
@ -357,6 +360,30 @@ sub contact {
$self->redirect_to( 'contact' );
}
sub info {
my $self = shift;
$self->redirect_to( 'new-explain' ) unless $self->session->{ 'user' };
$self->redirect_to( 'new-explain' ) unless $self->session->{ 'admin' };
my @versions = ();
for my $module ( sort keys %INC ) {
next if $module =~ m{^\.?/};
$module =~ s/\.pm$//;
$module =~ s#/#::#g;
push @versions, {
'module' => $module,
'version' => $module->VERSION,
};
}
$self->stash( 'modules' => \@versions );
$self->stash( 'perl' => {
'version' => $PERL_VERSION,
'binary' => $Config{'perlpath'} . $Config{'_exe'},
}
);
}
sub help {
# direct to template