Changeset 11766

Timestamp:

05/17/08 19:11:29 (5 years ago)

Author:

yappo

Message:

fcgi broken

Location:

lang/perl/HTTP-Engine/trunk

Files:

• examples/lighty/test_fastcgi.pl (modified) (2 diffs)
• lib/HTTP/Engine/Interface/FCGI.pm (modified) (2 diffs)

lang/perl/HTTP-Engine/trunk/examples/lighty/test_fastcgi.pl

@@ -2 +2 @@
 use strict;
 use warnings;
-warn "OKGE";
+use FindBin '$Bin';
 use HTTP::Engine;
 use Data::Dumper;
@@ -10 +10 @@
         module => 'FCGI',
         args   => {
-            request_handler => sub {
-                    my $c = shift;
+#            listen => $FindBin::Bin . 'test.socket',
+        },
+        request_handler => sub {
+            my $c = shift;
 
-                    $c->res->content_type('text/html');
+            $c->res->content_type('text/html');
 
-                    $c->res->body( render_body( Dumper($c->req) ) );
-              }
-        },
+            $c->res->body( render_body( Dumper($c->req) ) );
+         }
     },
 )->run;

lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Interface/FCGI.pm

@@ -49 +49 @@
 has listen => (
     is  => 'ro',
-    isa => 'Int',
+    isa => 'Str',
 );
 
@@ -137 +137 @@
 }
 
+
+use HTTP::Engine::ResponseWriter;
+HTTP::Engine::ResponseWriter->meta->add_method( write => sub {
+    my($self, $buffer) = @_;
+
+    unless ( $self->{_prepared_write} ) {
+        $self->prepare_write;
+        $self->{_prepared_write} = 1;
+    }
+
+    # XXX: We can't use Engine's write() method because syswrite
+    # appears to return bogus values instead of the number of bytes
+    # written: http://www.fastcgi.com/om_archive/mail-archive/0128.html
+
+    # FastCGI does not stream data properly if using 'print $handle',
+    # but a syswrite appears to work properly.
+    *STDOUT->syswrite($buffer);
+});
+
 1;
 __END__