+ if (defined ($NameToChatter->{$name}))
+ {
+ my $chatter = $NameToChatter->{$name};
+ my ($nick, $ident) = split (m/!/, $chatter);
+
+ return ($ident);
+ }
+ else
+ {
+ return ('');
+ }
+}
+
+=item B<name_to_nick> (I<$name>)
+
+Returns the most recent nick for I<$name>.
+
+=cut
+
+sub name_to_nick
+{
+ my $name = shift;
+
+ if (defined ($NameToChatter->{$name}))