Script to extract endpoint locations from eduGAIN metadata.

internet2 · Apr 21, 2014 · 8d543b6 · 8d543b6
1 parent a6d17c6
commit 8d543b6
Showing 1 changed file with 20 additions and 0 deletions.
diff --git a/build/extract_locs_edugain.pl b/build/extract_locs_edugain.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl -w
+
+use Xalan;
+
+open(XML, xalanCall . " -IN ../mdx/int_edugain/imported.xml -XSL extract_locs.xsl|") || die "could not open input file";
+while (<XML>) {
+	chop;
+	if (/^https:\/\/([^\/:]+(:\d+)?)(\/|$)/) {
+		my $location = $1;
+		$location .= ":443" unless defined $2;
+		$locations{$location} = 1;
+	}
+}
+close XML;
+
+foreach $loc (sort keys %locations) {
+	if ($loc =~ /([^:]+):(\d+)/) {
+		print "$1 $2\n";
+	}
+}