From: miker Date: Mon, 25 Jul 2005 14:44:50 +0000 (+0000) Subject: adding new ContinueStatus message X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=1b94183fa20c5763cdb4b000eee959c05c9103fe;p=opensrf%2Fbjwebb.git adding new ContinueStatus message git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@424 9efc2488-bf62-4759-914b-345cdb29e865 --- diff --git a/src/perlmods/OpenSRF/DomainObject/oilsResponse.pm b/src/perlmods/OpenSRF/DomainObject/oilsResponse.pm index dc5d857..3d95c6e 100644 --- a/src/perlmods/OpenSRF/DomainObject/oilsResponse.pm +++ b/src/perlmods/OpenSRF/DomainObject/oilsResponse.pm @@ -162,6 +162,42 @@ B $status = 'Connection Successful'; $statusCode = STATUS_OK; + + + +package OpenSRF::DomainObject::oilsContinueStatus; +use OpenSRF::DomainObject::oilsResponse qw/:status/; +use base 'OpenSRF::DomainObject::oilsStatus'; +use vars qw/$status $statusCode/; + +=head1 NAME + +OpenSRF::DomainObject::oilsContinueStatus + +=head1 SYNOPSIS + +use OpenSRF::DomainObject::oilsResponse; + +... + +# something happens. + +$client->status( new OpenSRF::DomainObject::oilsContinueStatus ); + +=head1 ABSTRACT + +Implements the STATUS_CONTINUE message, informing the client that it should +continue to wait for a response to it's request. + +=head1 SEE ALSO + +B + +=cut + +$status = 'Please hold. Creating response...'; +$statusCode = STATUS_CONTINUE; + 1;