#######
# connecting to the DB again so we can filter emoticons
#######
my $data = qq(SELECT id, name, location, face FROM emoticons);
my $sth = $dbh->prepare($data);
$sth->execute() or die $dbh->errstr;
my ($id, $name, $location, $face);
$sth->bind_columns(\$id, \$name, \$location, \$face);
foreach my $line (@keep)
{
my ($username, $message, $date, $ip) = split(//, $line);
while ($sth->fetch)
{
$message =~ s|(? |gi;
}
if ($message =~ m|^/me|i)
{
$message =~ s|^/me||i;
print qq($username $message
);
}
else
{
print qq($username: $message
);
}
}