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

Users almost done

Browse Source 
Functionality is there, I'm just waiting for Metys to help me with styling
This commit is contained in:
Hubert depesz Lubaczewski
2013-10-29 14:35:04 +01:00
parent 9ba0cc07cc
commit b381985e43
7 changed files with 257 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

76
lib/Explain/Controller.pm
View File

@ -14,6 +14,24 @@ sub logout {
$self->redirect_to( 'new-explain' );
}
sub user_history {
my $self = shift;
$self->redirect_to( 'history' ) unless $self->session->{'user'};
my @args = ( $self->session->{'user'} );
if (
( $self->param('direction') ) &&
( $self->param('direction') =~ m{\A(?:before|after)\z} ) &&
( $self->param('key') )
) {
push @args, $self->param('direction') eq 'before' ? 'DESC' : 'ASC';
push @args, $self->param('key');
}
my $data = $self->database->get_user_history( @args );
$self->stash->{'plans'} = $data;
return $self->render();
}
sub user {
my $self = shift;
@ -39,6 +57,64 @@ sub user {
$self->stash->{'message'} = 'Changing the password failed.';
}
sub plan_change {
my $self = shift;
unless ( $self->session->{'user'} ) {
$self->app->log->error( 'User tried to access plan change without being logged!' );
$self->redirect_to( 'new-explain' );
}
$self->redirect_to( 'new-explain' ) unless $self->req->param('return');
my $plan = $self->database->get_plan_data( $self->param('id') );
if (
( ! defined $plan->{'added_by'} ) ||
( $plan->{'added_by'} ne $self->session->{'user'} )
) {
$self->app->log->error( 'User tried to access plan change for plan [' . $plan->{'id'} . '] of another user: ' . $self->session->{'user'});
$self->redirect_to( 'logout' );
}
# All looks fine. Current plan data are in $plan.
if (
( $self->req->param('delete') ) &&
( $self->req->param('delete') eq 'yes' )
) {
$self->database->delete_plan( $plan->{'id'}, $plan->{'delete_key'} );
return $self->redirect_to( $self->req->param('return') );
}
my %changes = ();
if ( $plan->{'title'} ne ( $self->req->param('title') // '' ) ) {
$changes{'title'} = ( $self->req->param('title') // '' );
}
if (
( $plan->{'is_public'} ) &&
( ! $self->req->param('is_public') )
) {
$changes{ 'is_public' } = 0;
} elsif (
( $plan->{'is_public'} ) &&
( ! $self->req->param('is_public') )
) {
$changes{ 'is_public' } = 1;
}
if (
( ! $plan->{'is_anonymized'}) &&
( $self->req->param('is_anonymized') )
) {
my $explain = Pg::Explain->new( source => $plan->{'plan'} );
$explain->anonymize();
$changes{'plan'} = $explain->as_text();
$changes{ 'is_anonymized' } = 1;
}
return $self->redirect_to( $self->req->param('return') ) if 0 == scalar keys %changes;
$self->database->update_plan( $plan->{'id'}, \%changes );
return $self->redirect_to( $self->req->param('return') );
}
sub login {
my $self = shift;