Commit b063f05a authored by Gary Wong's avatar Gary Wong

Jon wants a GenerateInterface function, and I'm feeling sufficiently

nice today that he got one.
parent 61fac0b9
......@@ -220,5 +220,18 @@ sub Authoritative($$)
return $hrn[ 0 ] eq $authority;
}
# Helper functions to make special cases slightly less messy:
# Generate an interface URN given a node and an interface ID on that node.
# This will probably fail horribly if the node ends and/or the interface
# begins with a '/' character, but anybody who does that probably deserves
# what they get.
sub GenerateInterface($$$)
{
my ($authority,$node,$interface) = @_;
return Generate( $authority, "interface", $node . "//" . $interface );
}
# _Always_ make sure that this 1 is at the end of the file...
1;
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