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

Added title for plan

Browse Source 
Nathan Thom requested ability to add title to plan.

It wasn't very complicated, so it's added :)
This commit is contained in:
Hubert depesz Lubaczewski
2011-06-28 15:25:14 +02:00
parent 986148627e
commit a5fc1f2544
5 changed files with 216 additions and 68 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
lib/Explain/Controller.pm
View File

@ -17,7 +17,7 @@ sub index {
return $self->render unless $plan;
# request entity too large
return $self->render( message => 'Your plan is too long.', status => 413 )
return $self->render( message => 'Your plan is too long.', status => 413 )
if 10_000_000 < length $plan;
# public
@ -26,6 +26,11 @@ sub index {
# anonymization
my $is_anon = $self->req->param( 'is_anon' ) ? 1 : 0;
# plan title
my $title = $self->req->param( 'title' );
$title = '' unless defined $title;
$title = '' if 'Optional title' eq $title;
# try
eval {
@ -54,10 +59,12 @@ sub index {
eval {
# send mail
$self->send_mail( {
subject => q|Can't create explain from...|,
msg => $plan
} );
$self->send_mail(
{
subject => q|Can't create explain from...|,
msg => $plan
}
);
};
# leave...
@ -65,7 +72,7 @@ sub index {
}
# save to database
my $id = $self->database->save_with_random_name( $plan, $is_public, $is_anon, );
my $id = $self->database->save_with_random_name( $title, $plan, $is_public, $is_anon, );
# redirect to /show/:id
return $self->redirect_to( 'show', id => $id );
@ -75,14 +82,13 @@ sub show {
my $self = shift;
# value of "/:id" param
my $id = defined $self->stash->{ id }
? $self->stash->{ id } : '';
my $id = defined $self->stash->{ id } ? $self->stash->{ id } : '';
# missing or invalid
return $self->redirect_to( 'new-explain' ) unless $id =~ m{\A[a-zA-Z0-9]+\z};
# get plan source from database
my $plan = $self->database->get_plan( $id );
my ( $plan, $title ) = $self->database->get_plan( $id );
# not found in database
return $self->redirect_to( 'new-explain', status => 404 ) unless $plan;
@ -105,8 +111,9 @@ sub show {
return $self->redirect_to( 'new-explain' );
}
# put explain to stash
# put explain and title to stash
$self->stash->{ explain } = $explain;
$self->stash->{ title } = $title;
# render will be called automatically
return;
@ -138,19 +145,18 @@ sub contact {
unless Email::Valid->address( $self->req->param( 'email' ) || '' );
# send
$self->send_mail( {
msg => sprintf(
"\nMessage from: %s <%s>" .
"\nPosted from: %s with %s" .
"\n****************************************\n\n" .
"%s",
$self->req->param( 'name' ) || '',
$self->req->param( 'email' ),
$self->tx->remote_address,
$self->req->headers->user_agent,
$self->req->param( 'message' )
)
} );
$self->send_mail(
{
msg => sprintf(
"\nMessage from: %s <%s>" . "\nPosted from: %s with %s" . "\n****************************************\n\n" . "%s",
$self->req->param( 'name' ) || '',
$self->req->param( 'email' ),
$self->tx->remote_address,
$self->req->headers->user_agent,
$self->req->param( 'message' )
)
}
);
# mail sent message
$self->flash( message => 'Mail sent' );
@ -160,6 +166,7 @@ sub contact {
}
sub help {
# direct to template
return ( shift )->render;
}