LP#1729610: return new OpenSRF status if backlog queue fills up

[opensrf-equinox.git] / src / perl / lib / OpenSRF / DomainObject / oilsResponse.pm

diff --git a/src/perl/lib/OpenSRF/DomainObject/oilsResponse.pm b/src/perl/lib/OpenSRF/DomainObject/oilsResponse.pm
index 874a4ae..80fc7d2 100644 (file)
--- a/src/perl/lib/OpenSRF/DomainObject/oilsResponse.pm
+++ b/src/perl/lib/OpenSRF/DomainObject/oilsResponse.pm
@@ -12,6 +12,7 @@ BEGIN {
                                        STATUS_BADREQUEST STATUS_UNAUTHORIZED STATUS_FORBIDDEN
                                        STATUS_NOTFOUND STATUS_NOTALLOWED STATUS_TIMEOUT
                                        STATUS_INTERNALSERVERERROR STATUS_NOTIMPLEMENTED
+                                       STATUS_SERVICEUNAVAILABLE
                                        STATUS_VERSIONNOTSUPPORTED STATUS_REDIRECTED 
                                        STATUS_EXPFAILED STATUS_COMPLETE STATUS_PARTIAL
                                        STATUS_NOCONTENT/;
@@ -21,6 +22,7 @@ BEGIN {
                                        STATUS_BADREQUEST STATUS_UNAUTHORIZED STATUS_FORBIDDEN
                                        STATUS_NOTFOUND STATUS_NOTALLOWED STATUS_TIMEOUT
                                        STATUS_INTERNALSERVERERROR STATUS_NOTIMPLEMENTED
+                                       STATUS_SERVICEUNAVAILABLE
                                        STATUS_VERSIONNOTSUPPORTED STATUS_REDIRECTED 
                                        STATUS_EXPFAILED STATUS_COMPLETE STATUS_PARTIAL
                                        STATUS_NOCONTENT/ ],
@@ -72,6 +74,7 @@ sub STATUS_EXPFAILED          { return 417 }
 
 sub STATUS_INTERNALSERVERERROR { return 500 }
 sub STATUS_NOTIMPLEMENTED                      { return 501 }
+sub STATUS_SERVICEUNAVAILABLE  { return 503 }
 sub STATUS_VERSIONNOTSUPPORTED { return 505 }
 
 my $log = 'OpenSRF::Utils::Logger';