Sign our guestbook!

<-- needed this to post to the correct run mode

Name:

Email: Hide email

Website:

Comments:

#### 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 *