I have a question about validation. How would you ensure that form fields don't have bad html or SQL injection?
I tried the beer form, and it accepts things like html tags, and form elements. Some strange thing happen when you
do that...
johnk
On 9/25/05, David Baird <[EMAIL PROTECTED]> wrote:
I finally found some time to fix the Maypole::FormBuilder demo, it's
alive and kicking at http://beerfb.riverside-cms.co.uk
I'll put a link up to the code for the site, meanwhile here's the
whole thing. Everything is wrapped inside the Apache config file:
<VirtualHost xxx>
ServerName beerfb.riverside-cms.co.uk
ServerAdmin [EMAIL PROTECTED]
DocumentRoot /home/beerfb/www/beerfb/htdocs
<Directory /home/beerfb/www/beerfb/htdocs/>
Allow from all
AllowOverride none
Order allow,deny
</Directory>
#
# ----- Maypole ------------------------------------------------------------
#
PerlSetVar MaypoleApplicationName "BeerFB database"
PerlSetVar MaypoleUriBase /
PerlSetVar MaypoleTemplateRoot /home/beerfb/www/beerfb/htdocs
PerlSetVar MaypoleFactoryRoot /usr/local/www/maypolefb/factory
PerlSetVar MaypoleRowsPerPage 10
PerlSetVar MaypoleDsn "dbi:mysql:BeerDB"
PerlSetVar MaypoleUser xxxx
PerlSetVar MaypolePass xxxx
PerlSetVar MaypoleModel Maypole::FormBuilder::Model
PerlAddVar MaypoleSession "class => 'File'"
PerlAddVar MaypoleSession "directory => '/tmp/sessions/beerfb'"
PerlAddVar MaypoleSession "lock_directory => '/tmp/sessions/beerfb.lock'"
PerlAddVar MaypoleMasonx "data_dir => '/home/beerfb/www/beerfb/mdata'"
PerlAddVar MaypoleMasonx "in_package => 'LocalApps::BeerFB'"
PerlAddVar MaypoleMasonx "plugins => [ MasonX::Plugin::Compress->new ]"
PerlAddVar MaypoleMasonx "error_mode => 'fatal'"
PerlAddVar MaypoleMasonx "error_format => 'text'"
PerlAddVar MaypoleDisplayTables beer
PerlAddVar MaypoleDisplayTables brewery
PerlAddVar MaypoleDisplayTables pub
PerlAddVar MaypoleDisplayTables style
PerlAddVar MaypoleFormBuilderDefaults "method => 'post'"
PerlAddVar MaypoleRelationships "a brewery produces beers"
PerlAddVar MaypoleRelationships "a style defines beers"
PerlAddVar MaypoleRelationships "a pub has beers on handpumps"
<Perl>
{
package BeerFB;
use strict;
use warnings;
use MasonX::Plugin::Compress;
use Maypole::Application qw( Config::Apache
MasonX FormBuilder Relationship
LinkTools QuickTable Session
-Debug -Setup
);
}
</Perl>
<Location />
SetHandler perl-script
PerlHandler BeerFB
</Location>
</VirtualHost>
-------------------------------------------------------
SF.Net email is sponsored by:
Tame your development challenges with Apache's Geronimo App Server. Download
it for free - -and be entered to win a 42" plasma tv or your very own
Sony(tm)PSP. Click here to play: http://sourceforge.net/geronimo.php
_______________________________________________
Maypole-users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/maypole-users
--
Check out my AdWords and Overture blog:
http://gotads.blogspot.com
