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

Watch for null slice URN, it can happen.

parent 35957a15
...@@ -711,6 +711,9 @@ my $slice_id = (defined($userslice_id) ? $userslice_id : ...@@ -711,6 +711,9 @@ my $slice_id = (defined($userslice_id) ? $userslice_id :
my $slice_auth = ($pid eq $gid ? $pid : "${pid}:${gid}"); my $slice_auth = ($pid eq $gid ? $pid : "${pid}:${gid}");
my $slice_urn = GeniHRN::Generate("${OURDOMAIN}:${slice_auth}", my $slice_urn = GeniHRN::Generate("${OURDOMAIN}:${slice_auth}",
"slice", $slice_id); "slice", $slice_id);
if (!defined($slice_urn)) {
fatal("Could not generate a valid slice urn!");
}
my $slice_hrn = "${PGENIDOMAIN}.${pid}.${slice_id}"; my $slice_hrn = "${PGENIDOMAIN}.${pid}.${slice_id}";
my $SERVER_NAME = (exists($ENV{"SERVER_NAME"}) ? $ENV{"SERVER_NAME"} : ""); my $SERVER_NAME = (exists($ENV{"SERVER_NAME"}) ? $ENV{"SERVER_NAME"} : "");
......
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