This is a text file, not binary.

InCommon · Mar 15, 2006 · 4774236 · 4774236
1 parent 4a09d05
commit 4774236
Showing 1 changed file with 18 additions and 18 deletions.
diff --git a/build/addresses.pl b/build/addresses.pl
@@ -1,18 +1,18 @@
-#!/usr/bin/perl
-
-open(XML,"../sdss-sites-13.xml") || die "could not open input file";
-
-while (<XML>) {
-    if (/<EmailAddress>mailto:(.*)<\/EmailAddress>/) {
-	if (!defined($lowered{lc $1})) {
-	    $lowered{lc $1} = $1;
-	    push @addresses, $1;
-	}
-    }
-}
-
-foreach $addr (@addresses) {
-    print $addr, "\n";
-}
-
-close XML;
+#!/usr/bin/perl
+
+open(XML,"../sdss-sites-13.xml") || die "could not open input file";
+
+while (<XML>) {
+    if (/<EmailAddress>mailto:(.*)<\/EmailAddress>/) {
+	if (!defined($lowered{lc $1})) {
+	    $lowered{lc $1} = $1;
+	    push @addresses, $1;
+	}
+    }
+}
+
+foreach $addr (@addresses) {
+    print $addr, "\n";
+}
+
+close XML;