sub get_reply { my $reply = {}; $reply->{text} = $Focus::r->cgi->param('reply'); if ($reply->{text} =~ m#<\w+(?:.|\n)*>#i) { # MAGIC $reply->{text} = html_filter($reply->{text}); } else { $reply->{text} = html_format($reply->{text}); } my $l = new Focus::UserLookup; $l->lookup($Focus::r->cgi->param('name')); $reply->{rcpt_string} = $l->lookup_string; $reply->{rcpt_list} = $l->lookup_list; if ($reply->{text} !~ /\S/) { push @{$reply->{errors}}, "Enter a reply."; } push @{$reply->{errors}}, map { $_->{text} } $l->errors if $l->errors; $reply; }Scared ya, didn't I?