#!/usr/bin/perl
# as of 03/29/2005
#  last 04/13/2005  added next comment
# emailscraper.pl - print out email addrs from BXML files

my $file;
my @info;
my $line;
my %data;

foreach $file (<BXML=*>) {
   open (DATA, $file);
	@info = <DATA>;		# @info contains the whole xml record
	foreach $line (@info) {
	   chomp $line;
	   $line =~ s|E-mail|Email|g;	# make email tags match all other tags
	   %data = map { /<(\w+)>\s*(.*?)<\/\w+>/; ($1, $2) } @info;
	}
	printf "%-36s %-6s %-14s", $data{Email}, $data{Position}, $data{NameOldFirst};
	if (($data{Gender} eq "F") && ($data{NameNewLast}) && ($data{NameOldLast} ne $data{NameNewLast})) {
	   print "$data{NameNewLast}\t($data{NameOldLast})\n";
	} else {
	   print $data{NameOldLast},"\n";
	}
}
close (DATA);