version 1.3, 2003/05/13 01:01:49
|
version 1.5, 2003/06/11 02:04:35
|
Line 100 sub new {
|
Line 100 sub new {
|
active => 0, |
active => 0, |
deferred => 0}; |
deferred => 0}; |
bless($self, $class); |
bless($self, $class); |
|
return $self; |
} |
} |
=pod |
=pod |
|
|
Line 177 sub SetDeferred {
|
Line 178 sub SetDeferred {
|
my $File = shift; |
my $File = shift; |
|
|
$self->{deferred} = 1; |
$self->{deferred} = 1; |
$self->{DeferrredFile} = $File; |
$self->{DeferredFile} = $File; |
} |
} |
|
|
=pod |
=pod |
Line 208 sub SetClient {
|
Line 209 sub SetClient {
|
|
|
=pod |
=pod |
|
|
=item WroteSome |
|
|
|
Called to indicate that some bytes were writtne to lond. |
|
The request is trimmed by the number of bytes written. |
|
If no bytes are left, nonzero is returned, else 0. |
|
|
|
Parameters: |
|
|
|
=over 3 |
|
|
|
=item Count |
|
|
|
Number of bytes written |
|
|
|
=back |
|
|
|
=cut |
|
sub WroteSome { |
|
my $self = shift; |
|
my $Count = shift; |
|
|
|
substr($self->{request}, length($self->{request}), $Count); |
|
|
|
return (length($self->{request]) == 0); |
|
|
|
=pod |
|
|
|
=head2 Selectors |
=head2 Selectors |
|
|
|
|
Line 325 sub getRequest {
|
Line 299 sub getRequest {
|
} |
} |
|
|
|
|
|
1; |