Commit b8c189a6 authored by Leigh B Stoller's avatar Leigh B Stoller

Add ALREADEXISTS error code.

parent ea26f869
...@@ -21,7 +21,7 @@ use vars qw(@ISA @EXPORT); ...@@ -21,7 +21,7 @@ use vars qw(@ISA @EXPORT);
GENIRESPONSE_RPCERROR GENIRESPONSE_UNAVAILABLE GENIRESPONSE_RPCERROR GENIRESPONSE_UNAVAILABLE
GENIRESPONSE_SEARCHFAILED GENIRESPONSE_UNSUPPORTED GENIRESPONSE_SEARCHFAILED GENIRESPONSE_UNSUPPORTED
GENIRESPONSE_BUSY GENIRESPONSE_EXPIRED GENIRESPONSE_INPROGRESS GENIRESPONSE_BUSY GENIRESPONSE_EXPIRED GENIRESPONSE_INPROGRESS
GENIRESPONSE GENIRESPONSE_STRING GENIRESPONSE_ALREADYEXISTS GENIRESPONSE_STRING
XMLRPC_PARSE_ERROR XMLRPC_SERVER_ERROR XMLRPC_APPLICATION_ERROR XMLRPC_PARSE_ERROR XMLRPC_SERVER_ERROR XMLRPC_APPLICATION_ERROR
XMLRPC_SYSTEM_ERROR XMLRPC_TRANSPORT_ERROR); XMLRPC_SYSTEM_ERROR XMLRPC_TRANSPORT_ERROR);
...@@ -48,6 +48,7 @@ sub GENIRESPONSE_UNSUPPORTED() {13; } ...@@ -48,6 +48,7 @@ sub GENIRESPONSE_UNSUPPORTED() {13; }
sub GENIRESPONSE_BUSY() {14; } sub GENIRESPONSE_BUSY() {14; }
sub GENIRESPONSE_EXPIRED() {15; } sub GENIRESPONSE_EXPIRED() {15; }
sub GENIRESPONSE_INPROGRESS() {16; } sub GENIRESPONSE_INPROGRESS() {16; }
sub GENIRESPONSE_ALREADYEXISTS() {17; }
sub GENIRESPONSE() { return $current_response; } sub GENIRESPONSE() { return $current_response; }
my @GENIRESPONSE_STRINGS = my @GENIRESPONSE_STRINGS =
...@@ -69,6 +70,7 @@ my @GENIRESPONSE_STRINGS = ...@@ -69,6 +70,7 @@ my @GENIRESPONSE_STRINGS =
"Busy", "Busy",
"Expired", "Expired",
"In Progress", "In Progress",
"Already Exists",
); );
sub GENIRESPONSE_STRING($) sub GENIRESPONSE_STRING($)
{ {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment