perl -I../lib -MMaypole::CLI=Boss::Opera::Maypole::App -e1 "http://localhost/opera/op_operator/list"

##</code><code>##

127.0.0.1 - - [15/Feb/2005:21:26:51 +0100] "GET /opera/op_operator/list HTTP/1.1" 404 329

##</code><code>##

[Tue Feb 15 21:26:51 2005] [error] [client 127.0.0.1] File does not exist: C:/.../source/web/htdocs/opera, referer: http://localhost/opera/

##</code><code>##

Maypole 2.09 (reinstalled to make sure it wasn't a stale version like last time)
Apache/2.0.48 (Win32) 

##</code><code>##

PerlRequire "C:/.../source/web/startup.pl"
<Location /opera>
    SetHandler perl-script
    PerlHandler Boss::Opera::Maypole::App
</Location>

##</code><code>##

package Boss::Opera::Maypole::App;
use Maypole::Application;

use File::Spec;
use File::Basename;
use Data::Dumper;
use Carp qw/ cluck /;

use Boss::Opera::Operator;
use Boss::Opera::ProductGroup;

sub debug { 1; }

__PACKAGE__->config->model("Maypole::Model::CDBI::Plain");
__PACKAGE__->setup([qw/ Boss::Opera::Operator Boss::Opera::ProductGroup /]);

__PACKAGE__->config->application_name('Boss Opera Configuration Database');
__PACKAGE__->config->uri_base("http://localhost/opera/");

__PACKAGE__->config->template_root(File::Spec->rel2abs(dirname(__FILE__) . "/../../../../web/htdocs/templates"));
__PACKAGE__->config->rows_per_page(10);
__PACKAGE__->config->display_tables([qw/ op_operator op_product_group /]);

Boss::Opera::Operator->untaint_columns( printable => [qw/name/], integer => [qw/gs_operator_id/] );

##</code><code>##

warn("new parse_path\n");
sub parse_path {
    my $self = shift;
    cluck(Dumper($self, \@_));    
    $self->SUPER::parse_path(@_);
}