new.psgi


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60

#!/usr/bin/env perl
use 5.10.1;
use strict;
use warnings;

use File::Basename qw(basename dirname);
use File::Spec::Functions qw(catdir rel2abs);

BEGIN {
    require lib;
    my $dir = rel2abs( dirname(__FILE__) );
    lib->import( $dir, catdir( $dir, 'lib' ), catdir( $dir, qw(local lib perl5) ) );
}

use Mojolicious::Lite;
use Bugzilla::Constants;
use Bugzilla::CGI::Mojo;
use Try::Tiny;

plugin 'PODRenderer';

app->hook(
    around_dispatch => sub {
        my ($next, $c) = @_;
        try {
            local %{ Bugzilla->request_cache } = ();
            Bugzilla->usage_mode(USAGE_MODE_MOJO);
            Bugzilla->cgi( Bugzilla::CGI::Mojo->new(controller => $c) );
            $next->();
        } catch {
            die $_ unless /\bModPerl::Util::exit\b/;
        };
    }
);

get '/' => sub {
    my $c = shift;
    my $user = Bugzilla->login(LOGIN_OPTIONAL);
    $c->render( template => 'index', user => $user );
};

app->start;
__DATA__

@@ index.html.ep
% layout 'default';
% title 'Welcome';
% use Bugzilla::Util qw(remote_ip);

<p>Hello, <%= $user->name %> &lt;<%= $user->email %>&gt;
</p>
<p>Your ip is <%= remote_ip() %>
</p>

@@ layouts/default.html.ep
<!DOCTYPE html>
<html>
  <head><title><%= title %></title></head>
  <body><%= content %></body>
</html>