From cdbdd3a6dfcb4e6820c9fadd85fc0a3ca1c3c911 Mon Sep 17 00:00:00 2001
From: Ian Young <ian@iay.org.uk>
Date: Mon, 22 May 2017 11:05:07 +0100
Subject: [PATCH] Add showorder helper script

See incommon/inc-meta#55.
---
 mdx/incommon/showorder.pl | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100755 mdx/incommon/showorder.pl

diff --git a/mdx/incommon/showorder.pl b/mdx/incommon/showorder.pl
new file mode 100755
index 00000000..8e99df7d
--- /dev/null
+++ 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";
+	}
+}