Nabble - Catalyst Web Framework

Catalyst & E-Commerce

2009-11-10T14:11:14Z

Hello,

After looking around I've found Handel and built on top of it Mango.
Is there any other e-commerce modules/solutions/etc based on Catalyst?
Who uses Mango&Handel in their own project - can comment anything?
Both projects seems to be non actively developed. Is it means dead-end
or perfect solution? =) Well, anything on e-commerce and catalyst is
very appreciated!

Regards,
Pavel

_______________________________________________
List: Catalyst@...
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@.../
Dev site: http://dev.catalyst.perl.org/

Re: Trouble inserting data after migrate database from SQLite to My SQL

2009-11-10T07:45:45Z

>
>
>
> This is a DBIC question, as such the answer is clearly found in the
> DBIC manual:
> http://search.cpan.org/~ribasushi/DBIx-Class-0.08112/lib/DBIx/Class/ResultSet.pm#find_or_new
>
> To summarize, ->new or ->find_or_new will not create a record in the
> database (and as such, no id is available). If you want to create a
> record, triggering the auto_increment, then you must use create or a
> subsequent ->insert after a ->new call.
>
>
> Also of note, DBIx::Class has its own mailing list that you should
> consider subscribing to.
>
> Thanks,
> -Jay
> _______________________________________________
> List: Catalyst@...
> Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
> Searchable archive: http://www.mail-archive.com/catalyst@.../
> Dev site: http://dev.catalyst.perl.org/

First of all, my apologies I've changed the subject of my previous
message and due to that, now it's not placed where it have to be.

With your permission (I wish), I copy & paste my answer to Steve:

"> Is your 'id' set to auto-increment???
Yes, it is.

> What data type is it? I usually
> set the 'id' to auto-increment, and set it as an integer.
I also do it.

> I would also
> recommend using DBIC_TRACE=1 from the command line if possible to get
a
> better description of the actual problem.

> Steve
>

Thank you, very much. DBIC_TRACE=1 have provided me the following error:
"No _dbh_last_insert_id() method found in DBIx::Class::Storage::DBI.
Since the method of obtaining the autoincrement id of the last insert
operation varies greatly between different databases, this method must
be individually implemented for every storage class."

I've made a quick search, and I've found:
http://rt.cpan.org/Public/Bug/Display.html?id=40265#txn-566706

I've upgraded my version of DBIx::Class and it's all working again.

Cheers

Jordi"

You're right Jay, it was a DBIx::Class issue. Thank you, for answering.

Jordi

_______________________________________________
List: Catalyst@...
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@.../
Dev site: http://dev.catalyst.perl.org/

Re: Trouble inserting data after migrate database from SQLite to My SQL

2009-11-10T07:20:26Z

On Tue, Nov 10, 2009 at 5:53 AM, Jordi Amorós <jamoros@...> wrote:

Hi all,

I'm developing a little web application (a remote lab that works with
Catalyst+LabView). Until now I was using SQLite, but due to new
requirements I've had to migrate the database.

I've created a new model:
perl script/ilabrs_create.pl model DB DBIC::Schema ilabrs::Schema
create=static components=TimeStamp,EncodedColumn dbi:mysql:ilabrs

and then, after restarting the server all seemed to work. Actually,
list, edit and erase from the database is working fine. But when I want
to add data, it doesn't work.

The problem appears when an id it's not provided. If I'm not wrong,
"my $exp = $c->model('DB::Activitats')-> find_or_new({id=> $id});"
should solve that. But: "$c->log->debug("Experiment ID:".$exp->id);",
prints nothing.

I'm absolutely clueless. I've tried to split de edit function in two:
-one to actually edit (my $exp = $c->model('DB::Activitats')->
find({id=> $id});) which still works properly.

-and a second one to add (my $exp = $c->model('DB::Activitats')->
new({});) which doesn't because $exp->id is empty and
$exp->update_or_insert;
cause an exception:

DBI Exception: DBD::mysql::st execute failed: Column 'id' cannot be
null...

Any suggestion, idea, clue... will be welcome.

Thanks,

This is a DBIC question, as such the answer is clearly found in the DBIC manual:
http://search.cpan.org/~ribasushi/DBIx-Class-0.08112/lib/DBIx/Class/ResultSet.pm#find_or_new

To summarize, ->new or ->find_or_new will not create a record in the database (and as such, no id is available). If you want to create a record, triggering the auto_increment, then you must use create or a subsequent ->insert after a ->new call.

Also of note, DBIx::Class has its own mailing list that you should consider subscribing to.

Thanks,
-Jay

_______________________________________________
List: Catalyst@...
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@.../
Dev site: http://dev.catalyst.perl.org/

Re: Trouble inserting data after migrate database from SQLite to MySQL

2009-11-10T06:41:31Z

> >
> > _______________________________________________
> > List: Catalyst@...
> > Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
> > Searchable archive: http://www.mail-archive.com/catalyst@.../
> > Dev site: http://dev.catalyst.perl.org/
> >
> >
> >
> Is your 'id' set to auto-increment???

Yes, it is.

> What data type is it? I usually
> set the 'id' to auto-increment, and set it as an integer.
I also do it.

> I would also
> recommend using DBIC_TRACE=1 from the command line if possible to get a
> better description of the actual problem.

> Steve
>

Thank you, very much. DBIC_TRACE=1 have provided me the following error:
"No _dbh_last_insert_id() method found in DBIx::Class::Storage::DBI.
Since the method of obtaining the autoincrement id of the last insert
operation varies greatly between different databases, this method must
be individually implemented for every storage class."

I've made a quick search, and I've found:
http://rt.cpan.org/Public/Bug/Display.html?id=40265#txn-566706

I've upgraded my version of DBIx::Class and it's all working again.

Cheers

Jordi

_______________________________________________
List: Catalyst@...
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@.../
Dev site: http://dev.catalyst.perl.org/

Re: Trouble inserting data after migrate database from SQLite to My SQL

2009-11-10T06:05:56Z

Jordi Amorós wrote:

> Hi all,
>
> I'm developing a little web application (a remote lab that works with
> Catalyst+LabView). Until now I was using SQLite, but due to new
> requirements I've had to migrate the database.
>
> I've created a new model:
> perl script/ilabrs_create.pl model DB DBIC::Schema ilabrs::Schema
> create=static components=TimeStamp,EncodedColumn dbi:mysql:ilabrs
>
> and then, after restarting the server all seemed to work. Actually,
> list, edit and erase from the database is working fine. But when I want
> to add data, it doesn't work.
>
> The problem appears when an id it's not provided. If I'm not wrong,
> "my $exp = $c->model('DB::Activitats')-> find_or_new({id=> $id});"
> should solve that. But: "$c->log->debug("Experiment ID:".$exp->id);",
> prints nothing.
>
> I'm absolutely clueless. I've tried to split de edit function in two:
> -one to actually edit (my $exp = $c->model('DB::Activitats')->
> find({id=> $id});) which still works properly.
>
> -and a second one to add (my $exp = $c->model('DB::Activitats')->
> new({});) which doesn't because $exp->id is empty and
> $exp->update_or_insert;
> cause an exception:
>
> DBI Exception: DBD::mysql::st execute failed: Column 'id' cannot be
> null...
>
> Any suggestion, idea, clue... will be welcome.
>
> Thanks,
>
> Jordi
>
>
>
>
>
>
>
>
> _______________________________________________
> List: Catalyst@...
> Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
> Searchable archive: http://www.mail-archive.com/catalyst@.../
> Dev site: http://dev.catalyst.perl.org/
>
>
>

Is your 'id' set to auto-increment??? What data type is it? I usually
set the 'id' to auto-increment, and set it as an integer. I would also
recommend using DBIC_TRACE=1 from the command line if possible to get a
better description of the actual problem.

Steve

_______________________________________________
List: Catalyst@...
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@.../
Dev site: http://dev.catalyst.perl.org/

Trouble inserting data after migrate database from SQLite to My SQL

2009-11-10T05:53:53Z

Hi all,

I'm developing a little web application (a remote lab that works with
Catalyst+LabView). Until now I was using SQLite, but due to new
requirements I've had to migrate the database.

I've created a new model:
perl script/ilabrs_create.pl model DB DBIC::Schema ilabrs::Schema
create=static components=TimeStamp,EncodedColumn dbi:mysql:ilabrs

and then, after restarting the server all seemed to work. Actually,
list, edit and erase from the database is working fine. But when I want
to add data, it doesn't work.

The problem appears when an id it's not provided. If I'm not wrong,
"my $exp = $c->model('DB::Activitats')-> find_or_new({id=> $id});"
should solve that. But: "$c->log->debug("Experiment ID:".$exp->id);",
prints nothing.

I'm absolutely clueless. I've tried to split de edit function in two:
-one to actually edit (my $exp = $c->model('DB::Activitats')->
find({id=> $id});) which still works properly.

-and a second one to add (my $exp = $c->model('DB::Activitats')->
new({});) which doesn't because $exp->id is empty and
$exp->update_or_insert;
cause an exception:

DBI Exception: DBD::mysql::st execute failed: Column 'id' cannot be
null...

Any suggestion, idea, clue... will be welcome.

Thanks,

Jordi

_______________________________________________
List: Catalyst@...
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@.../
Dev site: http://dev.catalyst.perl.org/

Re: Can't redirect using $c->res->redirect()

2009-11-09T01:13:27Z

Tomas Doran wrote:

> Emmanuel Quevillon wrote:
>> [Fri Nov 6 15:36:13 2009] [error] Caught exception in engine "Can't
>> call method "as_string" on an undefined value at
>> /usr/local/share/perl/5.10.0/Catalyst/Engine.pm line 95."
>
> Can you start your server with perl -MDevel::SimpleTrace
> script/myapp_server.pl -d
>
> and attach the full app startup, and the request which breaks (which
> should now include a full stack trace in its error).
>
> Thanks.
> t0m
>

Hi Tomas,

Here is the log generated :

[Mon Nov 9 10:08:03 2009] [info] [tuco,localhost,x,x] Logging out
[Mon Nov 9 10:08:03 2009] [debug] Deleting session(User logging out)
[Mon Nov 9 10:08:03 2009] [debug] Redirecting to
"http://localhost:3000/login"
[Mon Nov 9 10:08:03 2009] [error] Caught exception in engine "Can't
call method "as_string" on an undefined value
at
Catalyst::Engine::finalize_cookies(/usr/local/share/perl/5.10.0/Catalyst/Engine.pm:95)
at
Catalyst::finalize_cookies(/usr/local/share/perl/5.10.0/Catalyst.pm:1700)
at
Catalyst::finalize_headers(/usr/local/share/perl/5.10.0/Catalyst.pm:1763)
at
Catalyst::Plugin::Session::finalize_headers(/usr/local/share/perl/5.10.0/Catalyst/Plugin/Session.pm:99)
at
Catalyst::finalize(/usr/local/share/perl/5.10.0/Catalyst.pm:1666)
at
Catalyst::Plugin::FillInForm::finalize(/usr/local/share/perl/5.10.0/Catalyst/Plugin/FillInForm.pm:67)
at
Catalyst::Plugin::Static::Simple::finalize(/usr/local/share/perl/5.10.0/Catalyst/Plugin/Static/Simple.pm:80)
at <eval>(/usr/local/share/perl/5.10.0/Catalyst.pm:1829)
at
Catalyst::handle_request(/usr/local/share/perl/5.10.0/Catalyst.pm:1819)
at
Catalyst::Engine::HTTP::_handler(/usr/local/share/perl/5.10.0/Catalyst/Engine/HTTP.pm:394)
at
Catalyst::Engine::HTTP::run(/usr/local/share/perl/5.10.0/Catalyst/Engine/HTTP.pm:291)
at Catalyst::run(/usr/local/share/perl/5.10.0/Catalyst.pm:2121)
at main::__ANON__(script/bibliolist_server.pl:68)
at
Catalyst::Restarter::Forking::_fork_and_start(/usr/local/share/perl/5.10.0/Catalyst/Restarter/Forking.pm:20)
at
Catalyst::Restarter::run_and_watch(/usr/local/share/perl/5.10.0/Catalyst/Restarter.pm:68)
at main::(script/bibliolist_server.pl:104)"

Just to add a little more info, when on the blank page after
clicking 'Logout' button, if I do a 'reload' in my browser, I am
redirected to the login page as expected and this is the following
log generated :

[Mon Nov 9 10:08:31 2009] [info] *** Request 7 (0.135/s) [5954]
[Mon Nov 9 10:08:31 2009] ***
[Mon Nov 9 10:08:31 2009] [debug] "GET" request for "logout" from
"127.0.0.1"
[Mon Nov 9 10:08:31 2009] [debug] Path is "logout"
[Mon Nov 9 10:08:31 2009] [debug] Found sessionid
"fcd469f228156f819cf7d7ab3b8742ceaf444388" in cookie
[Mon Nov 9 10:08:31 2009] [debug] Deleting session(session expired)
[Mon Nov 9 10:08:31 2009] [debug] Redirecting to
"http://localhost:3000/login"
[Mon Nov 9 10:08:31 2009] [info] Request took 0.028152s (35.521/s)
.------------------------------------------------------------+-----------.
| Action | Time
|
+------------------------------------------------------------+-----------+
| /auto |
0.006261s |
| /end |
0.000699s |
'------------------------------------------------------------+-----------'

[Mon Nov 9 10:08:31 2009] [info] *** Request 8 (0.154/s) [5954]
[Mon Nov 9 10:08:31 2009] ***
[Mon Nov 9 10:08:31 2009] [debug] "GET" request for "login" from
"127.0.0.1"
[Mon Nov 9 10:08:31 2009] [debug] Path is "login"
[Mon Nov 9 10:08:31 2009] [debug] Rendering template "login.tt2"
[Mon Nov 9 10:08:31 2009] [debug] Created session
"d3461d4598946c79a5a95e095672819fa6c09bef"
[Mon Nov 9 10:08:32 2009] [info] Request took 0.058135s (17.201/s)
.------------------------------------------------------------+-----------.
| Action | Time
|
+------------------------------------------------------------+-----------+
| /auto |
0.001886s |
| /login/index |
0.000486s |
| /end |
0.032852s |
| -> BiblioList::View::TT->process |
0.030826s |
'------------------------------------------------------------+-----------'

Thanks for your time

Regards

Emmanuel

--
-------------------------
Emmanuel Quevillon
Biological Software and Databases Group
Institut Pasteur
+33 1 44 38 95 98
tuco at_ pasteur dot fr
-------------------------

_______________________________________________
List: Catalyst@...
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@.../
Dev site: http://dev.catalyst.perl.org/

Suppressing exceptions in Engine / UploadProgress

2009-11-08T19:58:12Z

I'm running under mod_perl, and when a user aborts an upload I get an error in the log.

[error] Caught exception in engine "Apache2::RequestIO::read: (70014)
End of file found at /usr/local/share/perl/5.10.0/Catalyst/Engine/Apache.pm line 187"

I don't see that it's possible, but is there any way to ignore some exceptions (similar to how execute() can ignore a detach)? Not sure there's a good case for it, other than to simply ignore the above. (I can modify my log monitoring to ignore those, for example). But, there doesnt's seen to be any way to get out of that block without generating an error message.

    eval {
        if ($class->debug) {
            my $secs = time - $START || 1;
            my $av = sprintf '%.3f', $COUNT / $secs;
            my $time = localtime time;
            $class->log->info("*** Request $COUNT ($av/s) [$$] [$time] ***");


        }

        my $c = $class->prepare(@arguments);
        $c->dispatch;
        $status = $c->finalize;
    };

    if ( my $error = $@ ) {
        chomp $error;
        $class->log->error(qq/Caught exception in engine "$error"/);


    }

Maybe I could override prepare() and return a different $c object with dummy dispatch and finalize methods, but I suspect another prepare() and that approach would break.

BTW -- I was looking at this along with the UploadProgress plugin. It does this to catch aborted uploads.
The plugin is a bit old, but doesn't seem like overriding croak is a good way to catch exceptions. Is there any reason not to wrap prepare_body in an eval? Yep, I just tried and under mod_perl2 this doesn't catch aborted uploads.

    my $croaked;
    
    {
        no warnings 'redefine';
        local *Carp::croak = sub {
            $croaked = shift;
        };
        
        $c->NEXT::prepare_body(@_);


    }
    
    if ( $croaked ) {
        if ( my $id = $c->req->query_parameters->{progress_id} ) {
            $c->log->info( "UploadProgress: User aborted upload $id" );
        


            # Update progress to flag this so javascript will stop polling
            my $progress = $c->cache->get( 'upload_progress_' . $id ) || {};
        
            $progress->{aborted} = 1;


        
            $c->cache->set( 'upload_progress_' . $id, $progress );
        }
        
        # rethrow the error
        Catalyst::Exception->throw( $croaked );
    }

--
Bill Moseley
moseley@...

_______________________________________________
List: Catalyst@...
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@.../
Dev site: http://dev.catalyst.perl.org/

Re: Include a local configuration file

2009-11-08T11:45:30Z

2009/11/8 Octavian Râşniţă <orasnita@...>

Hello,

I want to include a configuration file (for generating a menu) in a separate file, not in myapp.pl nor myapp_local.pl.

That file (menu.pl) also contains a perl hashref inside.

I have included this file using the following line in myapp.pl and it works under Windows:

menu => do('menu.pl'),

but it doesn't work under Linux.

Under Linux I have tried:

menu => do("__path_to(menu.pl)__"),

but it doesn't want to work this way.

It does want to work if I use:

menu => do('/srv/MyApp/menu.pl'),

and I can put this configuration in myapp_local.pl, but... is there a way of specifying the path to the home directory in order to not need using myapp_local.pl?

You can't just magically put "__path_to(...)__" in any string and expect it to work. That's something Catalyst::Plugin::ConfigLoader does.

If you want it in code, use MyApp->path_to.

-J

_______________________________________________
List: Catalyst@...
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@.../
Dev site: http://dev.catalyst.perl.org/

Include a local configuration file

2009-11-08T07:41:20Z

Hello,

I want to include a configuration file (for generating a menu) in a separate
file, not in myapp.pl nor myapp_local.pl.

That file (menu.pl) also contains a perl hashref inside.

I have included this file using the following line in myapp.pl and it works
under Windows:

menu => do('menu.pl'),

but it doesn't work under Linux.

Under Linux I have tried:

menu => do("__path_to(menu.pl)__"),

but it doesn't want to work this way.

It does want to work if I use:

menu => do('/srv/MyApp/menu.pl'),

and I can put this configuration in myapp_local.pl, but... is there a way of
specifying the path to the home directory in order to not need using
myapp_local.pl?

Thank you.

Octavian

_______________________________________________
List: Catalyst@...
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@.../
Dev site: http://dev.catalyst.perl.org/

$c->visit/go vs. $c->forward/dispatch

2009-11-08T00:33:39Z

Just curious to learn more about how and when to use $c->visit/go in
place of a $c->forward/dispatch. I understand the documented
differences, but are there any illustrative examples I could look at to
learn more?

Also, when would one choose to use a $c->redirect instead?

--
Kiffin Gish <Kiffin.Gish@...>
Gouda, The Netherlands

_______________________________________________
List: Catalyst@...
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@.../
Dev site: http://dev.catalyst.perl.org/

Re: does detach cancel forward

2009-11-08T00:02:47Z

On Saturday 07 November 2009 05:30:27 pm Andrew Rodland wrote:
> out, detach throws an extension that unwinds that whole stack.

Being tired makes me type words that *sound* similar to the one I meant.
Exception. Not extension. Exception. :)

Andrew

_______________________________________________
List: Catalyst@...
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@.../
Dev site: http://dev.catalyst.perl.org/

Re: does detach cancel forward

2009-11-07T23:54:12Z

* Steve Rippl <rippls@...> [2009-11-08 00:55]:
> But if I put use eval{$c->forward...) as Bill suggested then
> a detach within that gets me back to where I want to be.
> I could probably rework things and remove the detaches I have
> in there and just rely on the appropriate forwards, but the
> eval{} is a quick solution.

It sounds like maybe you are actually looking for Chained
dispatch. If you can illustrate what you are trying to do with
some (pseudo-)code, me or someone else could show an equivalent
structure using Chained; if it fits the problem you’re trying to
solve it’ll likely be cleaner.

Regards,
--
Aristotle Pagaltzis // <http://plasmasturm.org/>

_______________________________________________
List: Catalyst@...
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@.../
Dev site: http://dev.catalyst.perl.org/

Re: does detach cancel forward

2009-11-07T15:44:28Z

On Sat, 2009-11-07 at 15:30 -0800, Andrew Rodland wrote:

> On Saturday 07 November 2009 01:08:33 pm Steve Rippl wrote:
> > it's just that I had started thinking
> > in terms of "nested" flow control because that's what I wanted
> (wishful
> > thinking...). I thought perhaps each forward created a separate
> > nest/level I could detach out of and previous forwards were
> > "remembered", but obviously this isn't the case.
>
> No, this *is* the case, 100%. Forward is nothing more than a function
> call, so
> you can nest it and you get a call stack. It's just that, as I pointed
> out,
> detach throws an extension that unwinds that whole stack.
>

Sorry I wasn't clear, I got that it worked that way with forward, what
threw me was I didn't assume that detach unwound the whole stack (until
I saw it behaving that way). But if I put use eval{$c->forward...) as
Bill suggested then a detach within that gets me back to where I want to
be. I could probably rework things and remove the detaches I have in
there and just rely on the appropriate forwards, but the eval{} is a
quick solution.

Thanks for clarifying...

_______________________________________________
List: Catalyst@...
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@.../
Dev site: http://dev.catalyst.perl.org/

Re: does detach cancel forward

2009-11-07T15:30:27Z

On Saturday 07 November 2009 01:08:33 pm Steve Rippl wrote:
> it's just that I had started thinking
> in terms of "nested" flow control because that's what I wanted (wishful
> thinking...). I thought perhaps each forward created a separate
> nest/level I could detach out of and previous forwards were
> "remembered", but obviously this isn't the case.

No, this *is* the case, 100%. Forward is nothing more than a function call, so
you can nest it and you get a call stack. It's just that, as I pointed out,
detach throws an extension that unwinds that whole stack.

Andrew

_______________________________________________
List: Catalyst@...
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@.../
Dev site: http://dev.catalyst.perl.org/

Re: does detach cancel forward

2009-11-07T14:28:43Z

Re: [Catalyst] does detach cancel forward

On Sat, 2009-11-07 at 12:55 -0800, Bill Moseley wrote:
>
>
> On Sat, Nov 7, 2009 at 11:08 AM, Steve Rippl
> <rippls@...> wrote:
>
>
>         As the noob that started all this I would say that the docs I
>         came
>         across (the online tutorial and the books) are pretty clear on
>         what the
>         effects of forward and detach are, it's just that I had
>         started thinking
>         in terms of "nested" flow control because that's what I wanted
>         (wishful
>         thinking...). I thought perhaps each forward created a
>         separate
>         nest/level I could detach out of and previous forwards were
>         "remembered", but obviously this isn't the case. Maybe just
>         something
>         stating that this flow control is "flat" in some sense, each
>         control
>         statement has no notion of previous ones...
>
>
> eval { }
>

Well that works, thanks!!

Re: Adding controllers to an app from a plugin

2009-11-07T13:25:07Z

On 7 Nov 2009, at 20:06, Edmund von der Burg wrote:
> Is there already code on CPAN that helps me inject my plugin
> controller into the app? Is there a better way to do this? Should I
> rip out the smarts from C::P::AutoCRUD and make them reusable (and if
> so what should it be called)?

You're after CatalystX::InjectComponent

Cheers
t0m

_______________________________________________
List: Catalyst@...
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@.../
Dev site: http://dev.catalyst.perl.org/

Re: does detach cancel forward

2009-11-07T12:55:57Z

On Sat, Nov 7, 2009 at 11:08 AM, Steve Rippl <rippls@...> wrote:

As the noob that started all this I would say that the docs I came
across (the online tutorial and the books) are pretty clear on what the
effects of forward and detach are, it's just that I had started thinking
in terms of "nested" flow control because that's what I wanted (wishful
thinking...). I thought perhaps each forward created a separate
nest/level I could detach out of and previous forwards were
"remembered", but obviously this isn't the case. Maybe just something
stating that this flow control is "flat" in some sense, each control
statement has no notion of previous ones...

eval { }

Re: Session and adding cookie headers

2009-11-07T12:21:26Z

2009/11/7 Bill Moseley <moseley@...>:
> Is it the intended behavior to set a cookie any time the session is *fetched* even if nothing is set in the session?

I wouldn't say that it is intended behaviour, but it is behaviour that
is used in the C::P::Session test suite.

When you check for a session using $c->session a session is created
and then persisted on the browser using a cookie. There is no logic to
check if there is anything interesting stored in the session (ie that
it is not a 'null session').

You might want to look at the following code which I wrote a while
back and added to the repo but never released to CPAN - it would just
muddy the waters:

http://dev.catalystframework.org/repos/Catalyst/Catalyst-Plugin-Session/0.00/branches/high_performance/

It tries not to do anything silly :)

Cheers,
Edmund.

> --
> Bill Moseley
> moseley@...
>
> _______________________________________________
> List: Catalyst@...
> Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
> Searchable archive: http://www.mail-archive.com/catalyst@.../
> Dev site: http://dev.catalyst.perl.org/
>
>

Adding controllers to an app from a plugin

2009-11-07T12:06:58Z

Hello all.

I want to create a plugin that adds a controller to an app. From
looking at code on CPAN that does this* it seems that manually
creating controllers in the project that inherit from the one that is
provided by the plugin is the way to do it.

Another way to do it is to intercept the request in 'dispatch' and
take the appropriate action** - but I really don't like that at all.
For starters I want my controller to appear like all the others in the
debug output.

Is there already code on CPAN that helps me inject my plugin
controller into the app? Is there a better way to do this? Should I
rip out the smarts from C::P::AutoCRUD and make them reusable (and if
so what should it be called)?

Cheers,
Edmund.

* http://cpansearch.perl.org/src/OLIVER/Catalyst-Plugin-AutoCRUD-0.56/lib/Catalyst/Plugin/AutoCRUD.pm
** http://cpansearch.perl.org/src/AGRUNDMA/Catalyst-Plugin-UploadProgress-0.04/lib/Catalyst/Plugin/UploadProgress.pm

_______________________________________________
List: Catalyst@...
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@.../
Dev site: http://dev.catalyst.perl.org/

Re: does detach cancel forward

2009-11-07T11:08:33Z

On Sat, 2009-11-07 at 01:07 -0800, Andrew Rodland wrote:

> Yeah, there are at least two big shortcomings.
>
> 1. I think that we should stop trying to over-simplify things here, or
> at
> least stop *only* providing a simplified version and tell the truth:
> detach
> forwards, and then it throws an exception. That exception propagates
> up until
> the whole stack of running actions is unwound, and then Catalyst
> catches it
> and continues processing as usual, calling any 'end' action and then
> doing
> 'finalize'.
>
> 2. There's a "Flow Control" section in Catalyst::Manual::Intro that
> paints a
> better picture than perldoc Catalyst, but someone going directly to
> the docs
> for forward, detach, etc. can easily miss the pointers to
> Catalyst::Manual::Intro. The whole Manual::Intro business is a mess
> that
> nobody wants to touch. I don't know what to do with it either. :)
>

As the noob that started all this I would say that the docs I came
across (the online tutorial and the books) are pretty clear on what the
effects of forward and detach are, it's just that I had started thinking
in terms of "nested" flow control because that's what I wanted (wishful
thinking...). I thought perhaps each forward created a separate
nest/level I could detach out of and previous forwards were
"remembered", but obviously this isn't the case. Maybe just something
stating that this flow control is "flat" in some sense, each control
statement has no notion of previous ones...

Anyway, thanks to you all for straightening me out!

Steve

--
Steve Rippl
Technology Director
Woodland Public Schools
360 225 9451 x326

_______________________________________________
List: Catalyst@...
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@.../
Dev site: http://dev.catalyst.perl.org/

Re: does detach cancel forward

2009-11-07T01:07:16Z

On Wednesday 04 November 2009 04:19:42 pm Ovid wrote:
> Think of detach as "game over", if that helps (probably doesn't). From the
> docs, detach(....) is described as:
>
> The same as forward, but doesn't return to the previous action when
> processing is finished.
>
> I think that description might be a bit confusing for some, as your
> question suggests.
>

Yeah, there are at least two big shortcomings.

1. I think that we should stop trying to over-simplify things here, or at
least stop *only* providing a simplified version and tell the truth: detach
forwards, and then it throws an exception. That exception propagates up until
the whole stack of running actions is unwound, and then Catalyst catches it
and continues processing as usual, calling any 'end' action and then doing
'finalize'.

2. There's a "Flow Control" section in Catalyst::Manual::Intro that paints a
better picture than perldoc Catalyst, but someone going directly to the docs
for forward, detach, etc. can easily miss the pointers to
Catalyst::Manual::Intro. The whole Manual::Intro business is a mess that
nobody wants to touch. I don't know what to do with it either. :)

Andrew

_______________________________________________
List: Catalyst@...
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@.../
Dev site: http://dev.catalyst.perl.org/

Re: does detach cancel forward

2009-11-07T00:52:02Z

>From the new Catalyst Book:

"$c->forward returns to the calling action and ompletes the request,
while $c->detach proceeds to the end action after the called actions
are completed."

On Wed, Nov 4, 2009 at 11:19 PM, Ovid <publiustemp-catalyst@...> wrote:

> ----- Original Message ----
>
>> From: Steve Rippl <rippls@...>
>>
>> I'm building "chains" of methods using forward and detach mostly, I
>> quote the chains because I know it's not the regular chained methods but
>> my "chains" vary according to where you are etc. Anyway, the question I
>> have is whether forward is still valid after a detach... let me
>> illustrate...
>>
>> If A forwards to B, once B is done it comes back to A, that I use and it
>> works. If C detaches to D to doesn't come back after D, again I use
>> that.
>>
>> Now, If from A I forward to B, then B detaches to C which detaches to D,
>> it doesn't seem to come back to A after D. Is this my mistake
>> somewhere, is it by design? Does the detach after a forward "cancel"
>> the forward?
>
> Think of detach as "game over", if that helps (probably doesn't). From the docs, detach(....) is described as:
>
> The same as forward, but doesn't return to the previous action when processing is finished.
>
> I think that description might be a bit confusing for some, as your question suggests.
>
> Cheers,
> Ovid
> --
> Buy the book - http://www.oreilly.com/catalog/perlhks/
> Tech blog - http://use.perl.org/~Ovid/journal/
> Twitter - http://twitter.com/OvidPerl
> Official Perl 6 Wiki - http://www.perlfoundation.org/perl6
>
>
>
> _______________________________________________
> List: Catalyst@...
> Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
> Searchable archive: http://www.mail-archive.com/catalyst@.../
> Dev site: http://dev.catalyst.perl.org/
>

--
David Schmidt | http://www.fm5.at

_______________________________________________
List: Catalyst@...
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@.../
Dev site: http://dev.catalyst.perl.org/

Session and adding cookie headers

2009-11-06T17:26:36Z

Is it the intended behavior to set a cookie any time the session is *fetched* even if nothing is set in the session?

With a new app with these added plugins:

    Cache
    Session
    Session::Store::Cache
    Session::State::Cookie

And if I just add my $ses = $c->session; to the index action in root then that causes a Set-Cookie header to be set in the response. (And if cookies are disabled on a browser then a new session id is created every request, and expires is written to the store).

Not a big deal, but just curious if that was by design or just a side-effect of how the session code works.

I typically use session cookies and don't set a cookie header in the response if a valid session id was in the request cookie.

--
Bill Moseley
moseley@...

_______________________________________________
List: Catalyst@...
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@.../
Dev site: http://dev.catalyst.perl.org/

Re: Can't redirect using $c->res->redirect()

2009-11-06T08:17:10Z

Octavian Râsnita wrote:
> and then try to upgrade all the Catalyst:: modules and maybe a few
> others that you may think it could help and see if this solves the problem.

Field Circus[1] solutions may work, but it'd be nice to know what the
root cause is..

At least if you start upgrading random things to see if they fix it,
please keep a note of what you try upgrading, and what versions it goes
from => to so that we get _some_ clues about where the breakage lies and
how to reproduce it?

Cheers
t0m

[1] http://www.jargon.net/jargonfile/f/fieldcircus.html

_______________________________________________
List: Catalyst@...
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@.../
Dev site: http://dev.catalyst.perl.org/

Re: Can't redirect using $c->res->redirect()

2009-11-06T08:14:53Z

Emmanuel Quevillon wrote:
> [Fri Nov 6 15:36:13 2009] [error] Caught exception in engine "Can't
> call method "as_string" on an undefined value at
> /usr/local/share/perl/5.10.0/Catalyst/Engine.pm line 95."

Can you start your server with perl -MDevel::SimpleTrace
script/myapp_server.pl -d

and attach the full app startup, and the request which breaks (which
should now include a full stack trace in its error).

Thanks.
t0m

_______________________________________________
List: Catalyst@...
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@.../
Dev site: http://dev.catalyst.perl.org/

Re: Can't redirect using $c->res->redirect()

2009-11-06T07:06:01Z

From: "Emmanuel Quevillon" <tuco@...>

> Hi,
>
> I am facing a strange problem while redirecting to another url.
> In my controller Logout::index, at the end,
> $c->res->redirect($c->uri_for('/')); with previous version of catalyst.
>
> Now, when I do it, I get stacked on a blank page en I get an error

I also had a similar problem, although I hadn't check the logs, and I solved
it by upgrading all the Catalyst related modules.

Try doing a

cpan -O > file

and then try to upgrade all the Catalyst:: modules and maybe a few others
that you may think it could help and see if this solves the problem.

Octavian

_______________________________________________
List: Catalyst@...
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@.../
Dev site: http://dev.catalyst.perl.org/

Can't redirect using $c->res->redirect()

2009-11-06T06:43:42Z

Hi,

I am facing a strange problem while redirecting to another url.
In my controller Logout::index, at the end,
$c->res->redirect($c->uri_for('/')); with previous version of catalyst.

Now, when I do it, I get stacked on a blank page en I get an error
in my logs :

[Fri Nov 6 15:36:13 2009] [error] Caught exception in engine "Can't
call method "as_string" on an undefined value at
/usr/local/share/perl/5.10.0/Catalyst/Engine.pm line 95."

The only way I found to get it working is to call
$c->detach(qw/Login index/) which check for a user connected or not
and so display login page or home page.

Has anybody a hint about this?

Thanks a lot

I am running Catalyst::Runtime 5.80013
--
-------------------------
Emmanuel Quevillon
Biological Software and Databases Group
Institut Pasteur
+33 1 44 38 95 98
tuco at_ pasteur dot fr
-------------------------

_______________________________________________
List: Catalyst@...
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@.../
Dev site: http://dev.catalyst.perl.org/

Re: Question about C:P:Unicode(::Encoding)

2009-11-05T14:25:45Z

On 5 Nov 2009, at 21:31, Bill Moseley wrote:
> In general, I think the right place to do the decoding is as close
> to the "edge" of the program as possible. That might mean
> HTTP::Body -- or in the Engine code for query params. But, I
> haven't looked at it. Where do you think that "edge" would be?

Yes.

Having not thought about it too hard, I'd say the engine code +
Catalyst::Request::Upload + probably HTTP::Body are the right places :)

Cheers
t0m

_______________________________________________
List: Catalyst@...
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@.../
Dev site: http://dev.catalyst.perl.org/

Re: Question about C:P:Unicode(::Encoding)

2009-11-05T13:31:14Z

On Thu, Nov 5, 2009 at 1:24 PM, Tomas Doran <bobtfish@...> wrote:

I've said this before, but I think this is something that Catalyst core should handle, not left to a plugin.

I'd probably agree with you, at least as a configurable parameter - some of the things I'm doing now are really horribly breaking abstraction to get things done..

In general, I think the right place to do the decoding is as close to the "edge" of the program as possible. That might mean HTTP::Body -- or in the Engine code for query params. But, I haven't looked at it. Where do you think that "edge" would be?

Re: Question about C:P:Unicode(::Encoding)

2009-11-05T13:24:53Z

On 5 Nov 2009, at 05:04, Bill Moseley wrote:
> Great! And nice work on the upload file names.

For that, you can thank Masahiro Chiba, that part was his patch :)

> I've been using Data::Visitor::Callback to decode the parameters.
> Not sure if it's any better, but then the keys are decoded as well
> as values.

Hmm, I hadn't thought of the case where you'd want keys as uft8, but
that's perfectly valid.

I'd certainly take a patch to do that, but I'm afraid my enthusiasm
has vanished at the moment :)

> I've said this before, but I think this is something that Catalyst
> core should handle, not left to a plugin.

I'd probably agree with you, at least as a configurable parameter -
some of the things I'm doing now are really horribly breaking
abstraction to get things done..

Branch on 5.80 welcome, although we wouldn't want to change behavior
by default (at least any time soon, or only for new apps)..

Cheers
t0m

_______________________________________________
List: Catalyst@...
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@.../
Dev site: http://dev.catalyst.perl.org/

Re: Question about C:P:Unicode(::Encoding)

2009-11-04T21:04:25Z

On Wed, Nov 4, 2009 at 6:11 PM, Tomas Doran <bobtfish@...> wrote:

On Sat, Oct 24, 2009 at 1:26 PM, Bernhard Graf <catalyst4@...> wrote:
These plugins hook into prepare_parameters() to decode data.

Why does it leave query_- and body_parameters untouched?

Always seemed like a bug to me.

I agree.

I've also taken some of your other thoughts onboard.

I've just sent 0.5 to CPAN which corrects this issue.

Great! And nice work on the upload file names.

I've been using Data::Visitor::Callback to decode the parameters. Not sure if it's any better, but then the keys are decoded as well as values.

I've said this before, but I think this is something that Catalyst core should handle, not left to a plugin.

can't find Catalyst::Plugin::HTML::Widget class

2009-11-04T19:00:51Z

Hello all,

Attempting to run Catalyst tutorial example "MyApp" on Solaris 10.

$ Script/myapp_server.pl

Produces:
!perl myapp_server.pl
Could not load class (Catalyst::Plugin::HTML::Widget) because : Can't
locate Catalyst/Plugin/HTML/Wi
dget.pm in @INC (@INC contains:
/export/home/catalyst/example/MyApp/script/../lib /usr/local/lib/per
l5/5.8.8/sun4-solaris /usr/local/lib/perl5/5.8.8
/usr/local/lib/perl5/CPAN/5.8.8/sun4-solaris /usr/l
ocal/lib/perl5/CPAN/5.8.8 /usr/local/lib/perl5/CPAN .
/usr/local/lib/perl5/CPAN/5.8.8/Catalyst/Engin
e) at /usr/local/lib/perl5/CPAN/5.8.8/sun4-solaris/Class/MOP.pm line
129.

The thing is, from cpan command, I ran: install Task::Catalyst
install catalyst:Runtime
install Catalyst:Devel

All succeeded and installed.

I also installed the task::catalyst::tutorial which installed the
example code I'm testing.

Perldocs shows no Catalyst::Plugin::HTML::Widget and neither can I find
it on the CPAN site.

Any help to get this framework example running?

-thanks
Ray

Ray Licon
AT&T Global Network Operations
Advanced Technical Support,
Global Service Applications and Technologies
Office: 310-762-6968

_______________________________________________
List: Catalyst@...
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@.../
Dev site: http://dev.catalyst.perl.org/

Re: can't find Catalyst::Plugin::HTML::Widget class

2009-11-04T18:50:00Z

Looks like Task::Tutorial::Catalyst is pretty outdated. Not sure where the
HTML::Widgets is coming from, but that's a plugin that hasn't been used in
years.

Look at:
http://search.cpan.org/~hkclark/Catalyst-Manual-5.8001/lib/Catalyst/Manual/T
utorial.pod
The "Intro" section has a link to the code.

Gerda

On 11/4/09 11:00 PM, "LICON, RAY (ATTPB)" <rl4518@...> wrote:

> Hello all,
>
> Attempting to run Catalyst tutorial example "MyApp" on Solaris 10.
>
> $ Script/myapp_server.pl
>
> Produces:
> !perl myapp_server.pl
> Could not load class (Catalyst::Plugin::HTML::Widget) because : Can't
> locate Catalyst/Plugin/HTML/Wi
> dget.pm in @INC (@INC contains:
> /export/home/catalyst/example/MyApp/script/../lib /usr/local/lib/per
> l5/5.8.8/sun4-solaris /usr/local/lib/perl5/5.8.8
> /usr/local/lib/perl5/CPAN/5.8.8/sun4-solaris /usr/l
> ocal/lib/perl5/CPAN/5.8.8 /usr/local/lib/perl5/CPAN .
> /usr/local/lib/perl5/CPAN/5.8.8/Catalyst/Engin
> e) at /usr/local/lib/perl5/CPAN/5.8.8/sun4-solaris/Class/MOP.pm line
> 129.
>
> The thing is, from cpan command, I ran: install Task::Catalyst
> install catalyst:Runtime
> install Catalyst:Devel
>
> All succeeded and installed.
>
> I also installed the task::catalyst::tutorial which installed the
> example code I'm testing.
>
> Perldocs shows no Catalyst::Plugin::HTML::Widget and neither can I find
> it on the CPAN site.
>
> Any help to get this framework example running?
>
> -thanks
> Ray
>
> Ray Licon
> AT&T Global Network Operations
> Advanced Technical Support,
> Global Service Applications and Technologies
> Office: 310-762-6968
>
>
>
> _______________________________________________
> List: Catalyst@...
> Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
> Searchable archive: http://www.mail-archive.com/catalyst@.../
> Dev site: http://dev.catalyst.perl.org/

Re: Question about C:P:Unicode(::Encoding)

2009-11-04T18:11:03Z

> On Sat, Oct 24, 2009 at 1:26 PM, Bernhard Graf <catalyst4@...
> > wrote:
> These plugins hook into prepare_parameters() to decode data.
>
> Why does it leave query_- and body_parameters untouched?
>
> Always seemed like a bug to me.

I agree.

I've also taken some of your other thoughts onboard.

I've just sent 0.5 to CPAN which corrects this issue.

Cheers
t0m

_______________________________________________
List: Catalyst@...
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@.../
Dev site: http://dev.catalyst.perl.org/