Add a check for missing credential.

e11d79be · Leigh B Stoller · db6263f2 · e11d79be
Commit e11d79be authored May 21, 2015 by Leigh B Stoller
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 1 deletion

protogeni/lib/GeniCMV2.pm.in protogeni/lib/GeniCMV2.pm.in +4 -1

No files found.
--- a/protogeni/lib/GeniCMV2.pm.in
+++ b/protogeni/lib/GeniCMV2.pm.in
@@ -375,7 +375,10 @@ sub DiscoverResources($)
    if (! (defined($credentials))) {
 	return GeniResponse->MalformedArgsResponse("Missing arguments");
    }
-    my ($credential,$speaksfor,@morecreds) = GeniStd::CheckCredentials($credentials);
+    my ($credential,$speaksfor,@morecreds) =
+	GeniStd::CheckCredentials($credentials);
+    return GeniResponse->MalformedArgsResponse("Missing arguments")
+	if (!defined($credential));
    return $credential
 	if (GeniResponse::IsResponse($credential));