Commit b50874c4 authored by Srikanth Chikkulapelly's avatar Srikanth Chikkulapelly
Browse files

a script to generate admin credentials.

parent ba73e37b
#!/usr/bin/perl -w
# Copyright (c) 2008-2009 University of Utah and the Flux Group.
# All rights reserved.
use strict;
use lib '@prefix@/lib';
use GeniCredential;
use GeniCertificate;
use GeniAuthority;
use GeniHRN;
use GeniResponse;
use GeniUser;
sub CreateAdminCredential
my $owner_urn = shift;
my $target_cm_urn = shift;
# Must be an emulab user who is talking to us.
# If any of the URN specofoed is invalid do no accept.
if (! (GeniHRN::IsValid($owner_urn) && GeniHRN::IsValid($target_cm_urn))) {
return GeniResponse->MalformedArgsResponse();
my $geniuser = GeniUser->Lookup($owner_urn, 1);
if (!defined($geniuser)) {
return GeniResponse->Create(GENIRESPONSE_FORBIDDEN,
undef, "Who are you?");
my $authority = GeniAuthority->Lookup($target_cm_urn);
if (!defined($authority)) {
print STDERR "Could not find local authority object for $target_cm_urn\n";
return GeniResponse->Create(GENIRESPONSE_ERROR);
my $credential =
return GeniResponse->Create(GENIRESPONSE_ERROR)
if (!defined($credential));
return GeniResponse->Create(GENIRESPONSE_SUCCESS,
my $val = CreateAdminCredential @ARGV;
print STDERR $val->{"code"};
print STDERR $val->{"value"};
print $val->{"output"};
Supports Markdown
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