add ** to capture unlimited path parts

[catagits/Web-Simple.git] / lib / Web / Simple / Application.pm

diff --git a/lib/Web/Simple/Application.pm b/lib/Web/Simple/Application.pm
index e3f8f7b..ef22143 100644 (file)
--- a/lib/Web/Simple/Application.pm
+++ b/lib/Web/Simple/Application.pm
@@ -86,7 +86,7 @@ sub _run_dispatch_for {
   }
   return [
     500, [ 'Content-type', 'text/plain' ],
-    'The management apologises but we have no idea how to handle that'
+    [ 'The management apologises but we have no idea how to handle that' ]
   ];
 }
 
@@ -105,13 +105,28 @@ sub run_if_script {
   $self->run(@_);
 }
 
-sub run {
+sub _run_cgi {
   my $self = shift;
-  unless ($ENV{GATEWAY_INTERFACE}) {
-    die "mst is an idiot and didn't fix non-CGI yet";
-  }
   require Web::Simple::HackedPlack;
   Plack::Server::CGI->run(sub { $self->handle_request(@_) });
 }
 
+sub run {
+  my $self = shift;
+  if ($ENV{GATEWAY_INTERFACE}) {
+    $self->_run_cgi;
+  }
+  my $path = shift(@ARGV);
+
+  require HTTP::Request::AsCGI;
+  require HTTP::Request::Common;
+  local *GET = \&HTTP::Request::Common::GET;
+
+  my $request = GET($path);
+  my $c = HTTP::Request::AsCGI->new($request)->setup;
+  $self->_run_cgi;
+  $c->restore;
+  print $c->response->as_string;
+}
+
 1;