diff --git a/build/addresses.pl b/build/addresses.pl index cf084058..bfbba225 100644 --- 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 () { - if (/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 () { + if (/mailto:(.*)<\/EmailAddress>/) { + if (!defined($lowered{lc $1})) { + $lowered{lc $1} = $1; + push @addresses, $1; + } + } +} + +foreach $addr (@addresses) { + print $addr, "\n"; +} + +close XML;