Commit f7a1c595 authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

Add some new error codes for mapper errors.

parent d790ec29
#!/usr/bin/perl -w
#
# Copyright (c) 2008-2013 University of Utah and the Flux Group.
# Copyright (c) 2008-2014 University of Utah and the Flux Group.
#
# {{{GENIPUBLIC-LICENSE
#
......@@ -46,6 +46,8 @@ use vars qw(@ISA @EXPORT);
GENIRESPONSE_BUSY GENIRESPONSE_EXPIRED GENIRESPONSE_INPROGRESS
GENIRESPONSE_ALREADYEXISTS GENIRESPONSE_STRING
GENIRESPONSE_NOT_IMPLEMENTED
GENIRESPONSE_VLAN_UNAVAILABLE GENIRESPONSE_INSUFFICIENT_BANDWIDTH
GENIRESPONSE_INSUFFICIENT_NODES
XMLRPC_PARSE_ERROR XMLRPC_SERVER_ERROR XMLRPC_APPLICATION_ERROR
XMLRPC_SYSTEM_ERROR XMLRPC_TRANSPORT_ERROR);
......@@ -73,6 +75,9 @@ sub GENIRESPONSE_BUSY() {14; }
sub GENIRESPONSE_EXPIRED() {15; }
sub GENIRESPONSE_INPROGRESS() {16; }
sub GENIRESPONSE_ALREADYEXISTS() {17; }
sub GENIRESPONSE_VLAN_UNAVAILABLE(){24; }
sub GENIRESPONSE_INSUFFICIENT_BANDWIDTH(){25; }
sub GENIRESPONSE_INSUFFICIENT_NODES(){26; }
sub GENIRESPONSE_NOT_IMPLEMENTED(){100; }
sub GENIRESPONSE() { return $current_response; }
......
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