) {
$i++;
my $contact = -1;
chomp $bunch;
foreach(split('\n', $bunch)) {
my ($key, $val) = split (' ', $_, 2);
if ($key eq "contact") {
$contact++;
}
if ($key eq "phone") {
$val =~ s/x/\(212\) 85/;
$val =~ s/ / /;
}
($val .= "\@columbia.edu") if (($key eq "email") && !($val =~ /@/));
if ($contact == -1) {
$groups[$i]{$key} = $val;
} else {
$groups[$i]{"c"}[$contact]{$key} = $val;
}
}
}
@groups = sort { uc($::a->{group}) cmp uc($::b->{group}) } @groups;
print "\n";
for $i ( 0 .. $#groups ) {
print "\n";
if ( $#{$groups[$i]{"c"}} > 0 ) {
print "| ";
} else {
print " | \n";
}
print "";
print "" if ($groups[$i]{"url"});
print $groups[$i]{"group"};
print "" if ($groups[$i]{"url"});
print " ($groups[$i]{acronym})" if ($groups[$i]{"acronym"});
print "";
print "
$groups[$i]{meet}" if ($groups[$i]{"meet"});
print " | \n";
if ( $#{$groups[$i]{"c"}} > 0 ) {
contact %{$groups[$i]{"c"}[0]}, "first";
} else {
contact %{$groups[$i]{"c"}[0]};
}
print "
\n";
if ( $#{$groups[$i]{"c"}} > 0 ) {
for $j ( 1 .. $#{$groups[$i]{"c"}} ) {
print "\n";
contact %{$groups[$i]{"c"}[$j]}, "next";
print "
\n";
}
}
}
print "
\n";
}
sub contact( \%;$ ) {
my ($href, $class) = @_;
if ($class) {
print "";
} else {
print " | ";
}
if ($href->{email}) {
# allegedly, this protects email addresses from spam-bots. I dunno.
my $spam = $href->{email};
$spam =~ s/@/@/g;
$spam =~ s/\././g;
print "";
print $href->{"contact"};
print "";
} else {
print $href->{"contact"};
}
print " | \n";
if ($class) {
print "";
} else {
print " | ";
}
if ($href->{phone}) {
print $href->{phone}
} else {
print " ";
}
print " | \n";
}