Sign our guestbook!
####
sub sign {
my $self = shift;
my $q = $self->query;
my $tmpl = $self->load_tmpl(
'comment.html',
%config_vars
);
#############################
# cleaning the HTML
# we use HTML::Scrubber to clean up the HTML so our code doesn't break
use HTML::Scrubber;
my $name = $q->param('name');
my $email = $q->param('email');
my $website = $q->param('comments');
my $hide_email = $q->param('hide_email');
my $comments = $q->param('comments');
# let's create an array of the params in this form:
my @form_data = ( $name, $email, $website, $comments, $hide_email );
# the HTML::Scrubber object
# allow
# this will be put into a config file eventually (aka upon production)
my $scrubber = HTML::Scrubber->new( allow => [ qw[ p b i u hr br ] ] );
# deny list
# deny *