Add showorder helper script

See incommon/inc-meta#55.
InCommon · May 22, 2017 · cdbdd3a · cdbdd3a
1 parent 32aa2cd
commit cdbdd3a
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/mdx/incommon/showorder.pl b/mdx/incommon/showorder.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/env perl
+
+use strict;
+my $id;
+my $reg;
+
+while (<>) {
+	if (/entityID=['"]([^'"]*)/) {
+		$id = $1;
+	}
+	if (/registrationAuthority=['"]([^'"]*)/) {
+		$reg = $1;
+		print "$reg -> $id\n";
+	}
+}