I have my maypole application running and everything works fine.
However I wanted to convert it to use formbuilder, however no matter
what I try it won't work. Eventually I returned to the BeerDB (which
still works) and tried to convert it to formbuilder - still no luck
even though I'm basically using the same setup as in the
Maypole::Formbuilder docs.
I get:
[Fri Nov 4 01:15:13 2005] [error] No comp_root specified and cannot determine
DocumentRoot. Please provide comp_root explicitly.\nStack:\n
[/usr/local/share/perl/5.8.4/MasonX/Maypole.pm:127]\n
[/usr/local/share/perl/5.8.4/Maypole.pm:64]\n
[/usr/local/share/perl/5.8.4/Maypole.pm:32]\n [/dev/null:0]\n
[Fri Nov 4 01:15:13 2005] [error] No comp_root specified and cannot determine
DocumentRoot. Please provide comp_root explicitly.\nStack:\n
[/usr/local/share/perl/5.8.4/MasonX/Maypole.pm:127]\n
[/usr/local/share/perl/5.8.4/Maypole.pm:64]\n
[/usr/local/share/perl/5.8.4/Maypole.pm:32]\n [/dev/null:0]\n
Is it possible I have missed some Formbuilder or Mason modules? Is
there a list somewhere? I've tried various combinations of order,
BEGIN statements, etc. but it doesn't seem to see config stuff that
I have defined.
Any help appreciated,
Jim
The code:
package BeerDB;
use warnings;
use strict;
use Class::DBI::Loader::Relationship;
use MasonX::Maypole;
use base 'MasonX::Maypole';
BeerDB->setup( 'dbi:mysql:database=BeerDB;host=gnowee',
'www-data',
'lotd2004',
);
BeerDB->config->{view} = 'MasonX::Maypole::View';
BeerDB->config->{template_root} = '/home/www/beerdb/www/htdocs';
BeerDB->config->{uri_base} = '/';
BeerDB->config->{rows_per_page} = 10;
BeerDB->config->{display_tables} = [ qw( beer brewery pub style ) ];
BeerDB->config->{application_name} = 'The Beer Database';
BeerDB->config->masonx->{comp_root} = [ [ factory =>
'/usr/local/www/maypole/factory' ] ];
BeerDB->config->masonx->{data_dir} = '/home/www/beerdb/www/mdata/maypole';
BeerDB->config->masonx->{in_package} = 'BeerDB::TestApp';
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 score/],
date => [ qw/date/],
);
BeerDB->config->{loader}->relationship($_) for (
"a brewery produces beers",
"a style defines beers",
"a pub has beers on handpumps");
1;
And in apache conf:
<VirtualHost *>
ServerName beerdb.mynet.com
DocumentRoot /home/www/beerdb/www/htdocs
<Location />
SetHandler perl-script
PerlHandler +BeerDB
</Location>
<Location /css>
SetHandler default-handler
</Location>
</VirtualHost>
--
Jim Mintha Email: [EMAIL PROTECTED]
System Administrator Work: +31 20 525-4919
Informatiseringscentrum Home: +31 20 662-3892
University of Amsterdam Debian GNU/Linux: [EMAIL PROTECTED]
_There are always Possibilities_ http://www.mintha.com
-------------------------------------------------------
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
