From 4774236758f3d7e9423abf7ce6079def51880191 Mon Sep 17 00:00:00 2001 From: Ian Young Date: Wed, 15 Mar 2006 12:57:07 +0000 Subject: [PATCH] This is a text file, not binary. --- build/addresses.pl | 36 ++++++++++++++++++------------------ 1 file changed, 18 insertions(+), 18 deletions(-) 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;