Added name field and admin indication to bug tracker

This commit is contained in:
Yorhel 2012-08-28 19:13:59 +02:00
parent 874e1825ec
commit fa28f26d69
3 changed files with 40 additions and 14 deletions

View file

@ -96,6 +96,7 @@ TUWF::set(
mail_from => 'Yorhels Bug Tracker <projects@yorhel.nl>',
# this is a fairly static site, allow some aggressive caching
pre_request_handler => sub { $_[0]->resHeader('Cache-Control', 's-max-age=86400, max-age=3600'); 1; },
cookie_defaults => { domain => 'dev.yorhel.nl', path => '/' },
);
TUWF::run();
@ -245,7 +246,7 @@ sub bug_post {
my($s, $p) = @_;
return $s->resNotFound if $s->reqMethod() ne 'POST';
my $is = _bug_init($s, $p);
my($f, $l) = $is->handleForm(sub { "http://dev.yorhel.nl/$p/bug/".shift });
my($f, $l) = $is->handleForm(sub { "/$p/bug/".shift });
if($f->{_err}) {
$s->htmlHeader(title => 'Error creating message', page => $p, sec => 'bug');
@ -279,8 +280,6 @@ sub bug_post {
});
$done->recv;
}
$s->resRedirect("/$p/bug/$l->{issue}", 'post');
}