Commit 23b26b73 authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

Fix the protogeni section to not rely on GeniHRN existing.

parent a98249a3
...@@ -51,7 +51,6 @@ use Carp; ...@@ -51,7 +51,6 @@ use Carp;
use POSIX; use POSIX;
use XML::LibXML; use XML::LibXML;
use XML::Simple; use XML::Simple;
use GeniHRN;
# Configure variables # Configure variables
my $TB = "@prefix@"; my $TB = "@prefix@";
...@@ -66,7 +65,12 @@ my $PGENISUPPORT = @PROTOGENI_SUPPORT@; ...@@ -66,7 +65,12 @@ my $PGENISUPPORT = @PROTOGENI_SUPPORT@;
my $PGENIRACK = @PROTOGENI_GENIRACK@; my $PGENIRACK = @PROTOGENI_GENIRACK@;
my $OURDOMAIN = "@OURDOMAIN@"; my $OURDOMAIN = "@OURDOMAIN@";
my $MAINSITE = @TBMAINSITE@; my $MAINSITE = @TBMAINSITE@;
my $mycmurn = GeniHRN::Generate("@OURDOMAIN@", "authority", "cm"); my $mycmurn = "";
if ($PGENISUPPORT) {
require GeniHRN;
$mycmurn = GeniHRN::Generate("@OURDOMAIN@", "authority", "cm");
}
# Flags. # Flags.
$VTOP_FLAGS_VERBOSE = 0x01; $VTOP_FLAGS_VERBOSE = 0x01;
......
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