From 714f4002a61d92c623402c6e2c5126e658863d44 Mon Sep 17 00:00:00 2001 From: Simon Cozens Date: Sat, 31 Jan 2004 19:37:21 +0000 Subject: [PATCH] Oops, we need to untaint everything now. I wonder why. git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@43 48953598-375a-da11-a14b-00016c27c3ee --- lib/BeerDB.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lib/BeerDB.pm b/lib/BeerDB.pm index 23bd39f..6080812 100644 --- a/lib/BeerDB.pm +++ b/lib/BeerDB.pm @@ -7,13 +7,16 @@ sub handler { Apache::MVC::handler(__PACKAGE__, @_) } # This is the sample application. Change this to the path to your # database. (or use mysql or something) -BeerDB->set_database("dbi:SQLite:t/beerdb.db"); +#BeerDB->set_database("dbi:SQLite:t/beerdb.db"); +BeerDB->set_database("dbi:mysql:beerdb"); # Change this to the root of the web space. -BeerDB->config->{uri_base} = "http://localhost/beerdb/"; +#BeerDB->config->{uri_base} = "http://localhost/beerdb/"; +BeerDB->config->{uri_base} = "http://neo.trinity-house.org.uk/beerdb/"; # Handpumps should not show up. BeerDB->config->{display_tables} = [qw[beer brewery pub style]]; BeerDB::Brewery->untaint_columns( printable => [qw/name notes url/] ); +BeerDB::Style->untaint_columns( printable => [qw/name notes/] ); BeerDB::Beer->untaint_columns( printable => [qw/abv name price notes/], integer => [qw/style brewery/], -- 2.39.5