loncom/LondTransaction.pm - diff

Return to LondTransaction.pm CVS log

Up to [LON-CAPA] / loncom

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;