Advanced Search

Plack maps multiple pages

/ Published in: Perl
Save to your folder(s)
Maps multiple apps with mount and URLMap

Expand | Embed | Plain Text

Copy this code and paste it in your HTML 
  1. #!/usr/bin/perl --
  2. #~ plack-debug-mounted.pl
  3. #~ 2013-10-17-02:59:26
  4. #~ 
  5. ## perltidy -olq  -csc -csci=10 -cscl="sub : BEGIN END if " -otr -opr -ce -nibc -i=4 -pt=0   "-nsak=*"
  6. #!/usr/bin/perl --
  7. use CGI();
  8. use Data::Dump qw/ dd pp /;
  9. use Path::Tiny qw/ path /;
  10. use Plack::Builder;
  11. use Plack::Runner;
  12.  
  13. my $selfsourceapp = sub {
  14.     return [
  15.         '200',
  16.         [ 'Content-Type' => 'text/plain', ],
  17.         [ path( __FILE__ )->slurp_raw ],
  18.     ];
  19. };
  20. my $dumperapp = sub {
  21.     my $q = CGI->new( $_[0] );
  22.     return [
  23.         '200', [
  24.             'Content-Type'   => 'text/html',
  25.             'Content-Length' => '2',
  26.         ], [
  27.             $q->start_html( -title => 'dumpenv.psgi' ),
  28.             $q->h1( $_[0]->{SCRIPT_NAME} ),
  29.             $q->Dump, $q->end_html,
  30.         ],
  31.     ];
  32. };
  33.  
  34. my $indexapp = sub {
  35.     return [
  36.         '200',
  37.         [ 'Content-Type' => 'text/html', ],
  38.         [
  39.             q{<doctype html>
  40. <html lang="en-US" charset="UTF-8">
  41. <title> Plack perlology </title>
  42. <body>
  43. <p> A Plack::Middleware::Debug free zone
  44. <br> <a href="/"> this </a>
  45. <br> <a href="/dumpenv"> dupenv </a>
  46. <br> <a href="/selfsrc"> selfsrc </a>
  47. <p> Get <c>Plack::Middleware::Debug</c> <b> ed </b>
  48. <br> <a href="/debugged/"> /debugged/ this </a>
  49. <br> <a href="/debugged/dumpenv"> /debugged/dupenv </a>
  50. <br> <a href="/debugged/selfsrc"> /debugged/selfsrc </a>
  51. <p> Come get some
  52. <br> <a href="/debugged/debug_toolbar/toolbar.min.css">
  53. /debugged/debug_toolbar/toolbar.min.css
  54. </a>
  55. <br> <a href="/debugged/debug_toolbar/toolbar.min.js">
  56. /debugged/debug_toolbar/toolbar.min.js
  57. </a>
  58. <p> Cant get this
  59. <br> <a href="/debug_toolbar/toolbar.min.css">
  60. /debug_toolbar/toolbar.min.css
  61. </a>
  62. <br> <a href="/toolbar.min.css">
  63. /toolbar.min.css
  64. </a>
  65.  
  66. </body><!-- before this Plack::Middleware::Debug inserts, viewsource!! -->
  67. }
  68.         ],
  69.     ];
  70. };
  71.  
  72. my $finalapp = builder {
  73.     mount '/debugged' => builder {
  74.         enable 'Debug', panels => [
  75.             qw/
  76.               Timer
  77.               Response
  78.               Environment
  79.               Session
  80.               Parameters
  81.               /
  82.         ];
  83.         mount "/dumpenv" => $dumperapp;
  84.         mount "/selfsrc" => $selfsourceapp;
  85.         mount "/"        => $indexapp;
  86.     };
  87.  
  88.     mount "/dumpenv" => $dumperapp;
  89.     mount "/selfsrc" => $selfsourceapp;
  90.     mount "/"        => $indexapp;
  91. };
  92.  
  93. my $runner = Plack::Runner->new;
  94. $runner->parse_options( qw' --host 127.0.0.1 --port 80 ' );
  95. $runner->run( $finalapp );

URL: https://stackoverflow.com/questions/19178044/using-plack-app-with-a-reverse-proxy-plackmiddlewaredebug?answertab=active#tab-top

Report this snippet


Comments

RSS Icon Subscribe to comments

You need to login to post a comment.