Changeset 23281 for lang/perl/MENTA/trunk/bin

Timestamp:

11/12/08 11:04:28 (5 years ago)

Author:

tokuhirom

Message:

r31833@gp: tokuhirom | 2008-11-12 10:48:43 +0900
CGI らしく処理をする。

Files:

• lang/perl/MENTA/trunk/bin/cgi-server.pl (modified) (2 diffs)

lang/perl/MENTA/trunk/bin/cgi-server.pl

@@ -2 +2 @@
 use strict;
 use warnings;
-use lib 'vender/lib';
+use lib 'vender/lib', 'lib';
 require HTTP::Server::Simple::CGI;
 use POSIX;
+use MENTA::BindSTDOUT;
 
 {
     package MENTA::Server;
     use base qw/HTTP::Server::Simple::CGI/;
+    use HTTP::Response;
     sub handle_request {
         my $pid = fork();
@@ -15 +17 @@
         } elsif ($pid == 0) {
             system 'bin/menta.pl';
-            do 'out/index.cgi';
-            die $@ if $@;
+            my $out = MENTA::BindSTDOUT->bind(sub {
+                do 'out/index.cgi';
+                die $@ if $@;
+            });
+            my $res = HTTP::Response->parse("HTTP/1.0 200 OK\n$out");
+            if (my $status = $res->header('Status')) {
+                $res->code($status);
+                $res->message(HTTP::Status::status_message($status));
+            }
+            print $res->as_string;
             exit;
         } elsif (defined $pid) {