1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
package SCGI;
use strict;
use warnings;
our $VERSION = 0.6;
use SCGI::Request;
use Carp;
=head1 NAME
SCGI - for implementing an SCGI interface for an application server
=head1 SYNOPISIS
use SCGI;
use IO::Socket;
my $socket = IO::Socket::INET->new(Listen => 5, ReuseAddr => 1, LocalPort => 8080)
or die "cannot bind to port 8080: $!";
my $scgi = SCGI->new($socket, blocking => 1);
while (my $request = $scgi->accept) {
$request->read_env;
read $request->connection, my $body, $request->env->{CONTENT_LENGTH};
#
print $request->connection "Content-Type: text/plain\n\nHello!\n";
}
=head1 DESCRIPTION
=head2 public methods
=over
=item new
Takes a socket followed by a set of options (key value pairs) and returns a new SCGI listener. Currently the only supported option is blocking, to indicate that the socket blocks and that the library should not treat it accordingly. By default blocking is false. (NOTE: blocking is now a named rather than positional parameter. Using as a positional parameter will produce a warning in this version and will throw an exception in the next version).
=cut
sub new {
my ($class, $socket) = (shift, shift);
croak "key without value passed to SCGI->new"
if @_ % 2;
my %options = @_;
for my $option (keys %options) {
croak "unknown option $option" unless grep $_ eq $option, qw(blocking);
}
bless {socket => $socket, blocking => $options{blocking} ? 1 : 0}, $class;
}
=item accept
Accepts a connection from the socket and returns an C<L<SCGI::Request>> for it.
=cut
sub accept {
my ($this) = @_;
my $connection = $this->socket->accept or return;
$connection->blocking(0) unless $this->blocking;
SCGI::Request->_new($connection, $this->blocking);
}
=item socket
Returns the socket that was passed to the constructor.
=cut
sub socket {
my ($this) = @_;
$this->{socket};
}
=item blocking
Returns true if it was indicated that the socket should be blocking when the SCGI object was created.
=cut
sub blocking {
my ($this) = @_;
$this->{blocking};
}
1;
__END__
=back
=head1 KNOWN ISSUES
The SCGI Apache2 module had a bug (for me at least), which resulted in segmentation faults. This appeared after version 1.2 (the version in Debian Sarge) and was fixed in 1.10.
The SCGI Apache2 module has a bug where certain headers can be repeated. This is still present in version 1.10. A patch has been accepted and this issue should be resolved in the next release. This modulenow issues a warning on a repeated header, rather than throwing an exception as in the previous version.
=head1 AUTHOR
Thomas Yandell L<mailto:tom+scgi@vipercode.com>
=head1 COPYRIGHT
Copyright 2005, 2006 Viper Code Limited. All rights reserved.
=head1 LICENSE
This file is part of SCGI (perl SCGI library).
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
=cut
|
