diff options
Diffstat (limited to 'new.psgi')
-rwxr-xr-x | new.psgi | 17 |
1 files changed, 16 insertions, 1 deletions
@@ -1,4 +1,17 @@ #!/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; @@ -6,7 +19,6 @@ use Try::Tiny; plugin 'PODRenderer'; - app->hook( around_dispatch => sub { my ($next, $c) = @_; @@ -33,9 +45,12 @@ __DATA__ @@ index.html.ep % layout 'default'; % title 'Welcome'; +% use Bugzilla::Util qw(remote_ip); <p>Hello, <%= $user->name %> <<%= $user->email %>> </p> +<p>Your ip is <%= remote_ip() %> +</p> @@ layouts/default.html.ep <!DOCTYPE html> |