diff --git a/build/extract_locs_edugain.pl b/build/extract_locs_edugain.pl
new file mode 100755
index 00000000..daf44512
--- /dev/null
+++ 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";
+	}
+}