[Catalyst] New plugin Catalyst::Plugin::ExternalURI

2013-10-21 Thread Jose Luis Martinez

Hi!

	I finally got around to publishing a little plugin that we've had 
running internally for some time now: Catalyst::Plugin::ExternalURI.


	When you're working with CDNs or AWS S3 Buckets where you leave static 
files like videos, css, js, etc (to have them served from S3) and you 
have written all your links with [% c.uri_for('/static/assetX') %], this 
plugin helps you rewrite the output of c.uri_for so that it doesn't 
point back to your app server.


	One benefit is that you can upload static files to /versionX/static/, 
and have the plugin prepend the version of your application to the URIs. 
That way, when deploying a new version you don't have cache problems (as 
the URLs are different), and you don't have to do anything to your 
templates.


	Also we will have "devel mode" (the plugin will not rewrite URLs) and 
production mode, where the offloading to S3 is supposed to happen with 
something like this:


externaluri => [
($ENV{'APP_MODE'} eq 'development')?{ '^/static' => '...' }:()
],


Hope it helps somebody. Sure did help us :)

Jose Luis Martinez
jlmarti...@capside.com

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


Re: [Catalyst] Catalyst and XMLRPC

2011-11-04 Thread Jose Luis Martinez

El 04/11/2011 13:59, Dmitry L. escribió:

Catalyst::Cookbook and found advice to use Catalyst::Plugin::XMLRPC, but
on Catalyst::Plugin::XMLRPC cpan page it is marked as deprecated.

Could you give me an advice which module to use or how I can build this app?


Try out Catalyst::Plugin::Server.

Watch out for one thing: it depends on Clone::Fast, and it looks like 
cpan and cpanm can't locate the dist.


wget 
http://search.cpan.org/CPAN/authors/id/J/JJ/JJORE/Clone-Fast-0.92.tar.gz


untar it, and install it first.

If Clone::Fast fails, please report back to me. I'm the maint for 
Catalyst::Plugin::Server, and wouldn't want to be depending on a very 
broken module.


Best Regards,

Jose Luis Martinez
jlmarti...@capside.com

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


Re: [Catalyst] Checking if I can visit a URL

2010-12-24 Thread Jose Luis Martinez

El 24/12/2010 15:08, Ton Voon escribió:

Hi!
Looking in Catalyst::ActionRole::ACL there is a can_visit method, but I
don't understand how I can invoke that from my own code.



It looks like it attaches to action objects. It would seem that 
$c->dispatcher->get_action_by_path($path) would get you an action object 
for a specific path on which you can call can_visit.


Haven't tried it, though, so good luck ;)

Jose Luis Martinez
jlmarti...@capside.com

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


[Catalyst] Announce (JSON|XML)-RPC modules

2010-07-13 Thread Jose Luis Martinez

Hi,

> I'm trying to get JSON/XML RPC support into a Catalyst app, and I'm
> seeing that the state of the different plugins, at best, is
> unmaintained, and all of them seem to be broken...

  Just wanted people to know I've finally got the plugins to work, and 
uploaded new versions to CPAN. The status for the JSON|XML RPC Catalyst 
Plugins is now:


  Catalyst::Plugin::Server::XMLRPC
   - got comaint and uploaded a new version to CPAN with Cat 5.8 
compatibility


  Catalyst::Plugin::Server::JSONRPC
   - got comaint and uploaded a new version to CPAN with Cat 5.8 
compatibility


  Catalyst::Plugin::JSONRPC
   - Rob Hoelz is working on it. Hope to see it released to CPAN soon!

  Catalyst::Plugin::XMLRPC
   - Deprecated. Waiting for news from MRAMBERG

  Happy RPCing to all ;)

Cheers,

Jose Luis Martinez
jlmarti...@capside.com

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


[Catalyst] The state of (JSON|XML)-RPC modules

2010-06-30 Thread Jose Luis Martinez

Hi,

	I'm trying to get JSON/XML RPC support into a Catalyst app, and I'm 
seeing that the state of the different plugins, at best, is 
unmaintained, and all of them seem to be broken...


	We have a couple of applications that were using 
Catalyst::Plugin::Server::XMLRPC from debian Etch/Lenny packages. In 
squeeze, it is not included (It doesn't seem to work in Cat 5.8). So I 
decided to go an fix it.


	Trying to understand what is broken in that module I stumbled across 
Catalyst::Plugin::XMLRPC and Catalyst::Plugin::JSONRPC: the two 
broken/unmaintained.


	So... I've been playing around with them in github 
http://github.com/pplu/Catalyst-Plugin-Server, and have these results:


- Catalyst::Plugin::XMLRPC: Working again :). It needed:
  - update NEXT to MRO::Compat
  - the Action('XMLRPC') was not working. Changed it to be an 
ActionClass('XMLRPC'). Was this the correct move?



- Catalyst::Plugin::JSONRPC : It's now fixed. It needed:
  - update to JSON 2.X API calls
  - update test to not use [MVC] naming
  - Change the way the plugin was getting the method to call: 
http://github.com/pplu/Catalyst-Plugin-Server/commit/3e79e0b8a3176ff32c6a8c658c24116366bb6986. 
I'm not sure if this is the correct way to do it (feedback welcome).


- Catalyst::Plugin::Server : Not working (yet)
  - updated the calls to MRO::Compat style


	All of this has brought me a couple of questions to mind: if these 
modules are actually not working: have I not seen a module that is 
maintained and working? Is there no interest in JSONRPC and XMLRPC these 
days? (no need to update apps that used these modules?)


	Also: help is welcome. If you have a hint of what is wrong with 
Catalyst::Plugin::Server, please feel free to tell me so...


Best Regards,

Jose Luis Martinez
jlmarti...@capside.com

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


Re: [Catalyst] Catalyst Redirect to https

2010-03-26 Thread Jose Luis Martinez

El 26/03/2010 8:46, Octavian Rasnita escribió:

And in a test action I have done:
my $body;
$body .= "HTTPS environment variable: $ENV{HTTPS}\n";
$body .= "HTTPS header: " . $c->req->header('HTTPS') . "\n";
$body .= "secure: " . $c->req->secure . "\n";;
$c->req->secure(1); #Force it to be true
$body .= "secure: " . $c->req->secure . "\n"; # Check if it is
set correctly
$body .= "uri_for_action: " . $c->uri_for_action('/user/login2') .
"\n";
$c->res->body($body);



And the result is:
HTTPS environment variable: On
HTTPS header: On
secure: 0
secure: 1
uri_for_action: http://site.testsite.com:/en/user/login2


Try with

if (lc($c->req->headers()->{'x-https'}) eq 'on'){
 my $uri = $c->req->base();
 $uri->scheme("https");
 $c->req->base($uri);
}

Note: I set X-Https header on the apache with

RequestHeader set X-Https   "%{HTTPS}e"

works for me...

Jose Luis Martinez
jlmarti...@capside.com

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


Re: [Catalyst] How to execute a script

2009-12-03 Thread Jose Luis Martinez

Joel Bernstein escribió:

2009/12/3 Ha, Tuan Trung :

Hi everyone,

I am new to Catalyst, and I just want to execute a script from
Controller in Catalyst, something like this:

system("perl /path/to/my/script.pl");



I've had to do this:

{
  local $SIG{'CHLD'} = 'DEFAULT';

  my $ret = system(...);

}

Note: I'm using the devel server in forked mode, and using a quite old 
Catalyst (debian etch distro).


Jose Luis Martinez
jlmarti...@capside.com

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


[Catalyst] Catalyst::Runtime dependency

2009-11-04 Thread Jose Luis Martinez
 ...loaded. (1.02)
- Text::Balanced ...loaded. (1.95)
- MRO::Compat    ...loaded. (0.09)
- String::RewritePrefix  ...loaded. (0.004 >= 0.004)

Cheers,

Jose Luis Martinez
jlmarti...@capside.com

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


Re: [Catalyst] I18N with quotation marks

2009-07-03 Thread Jose Luis Martinez

Ton Voon escribió:
For javascript in  blocks, you should use single quotes for the 
</tt><tt>string value and pass through an escape_js filter, eg:
</tt><pre style="margin: 0em;">

<script>
</pre><tt>var string = '[% c.loc("May have single quotes or \ in it") | escape_js 
</tt><tt>%]';
</tt><pre style="margin: 0em;">



Instead of forcing yourself to use single quoted strings in javascript, 
you can escape single quotes AND double quotes :)



alert('I\'m a string with \\ and lots of \"things\"');
alert("I\'m a string with \\ and lots of \"things\"");


return the same output.

And to make it more solid...

You would expect that:


alert('I\'m a  string');


would show you a nice alert. You're wrong :) At least FF3 and IE fail. I 
suppose that it's very normal (because the browser's parser understands 
nothing about the string context of the javascript, and thinks the 
 tag ends just in the middle of your script.
</tt><pre style="margin: 0em;">

The solution is as easy as to "hide" the script tag from the parser.
<script>
alert('I\'m a <\/script> string');


Note: I don't know if it's better to escape all "/", or all """ instances in the string. Any thoughts?


> $Template::Stash::SCALAR_OPS->{escape_js} = sub {
>my $s = shift;
>$s =~ s/\\//g;
>$s =~ s/'/\\'/g;
>return $s;
> };

Maybe it's more efficient to do this in one pass?
$s =~ s/(\\|'|"|\/)/\\$1/g;

Just my 2 cents,

Jose Luis Martinez
jlmarti...@capside.com


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


[Catalyst] Propose: Make application abort loading when it encounters malformed config files

2009-06-11 Thread Jose Luis Martinez

Hi,

   From time to time I keep stumbling upon this issue: when I malform 
the yaml config file for my app: the app loads up, and then strange 
things happen.


   My configs are normally parted between the MyApp.pm file, for things 
that the user will never configure, and the yaml config file, for things 
that the user will be able to customize.


   So just after touching a config file, if the app does something 
strange, I do a "cat xxx.yml | ysh" and find that


YAML Error: Invalid element in map
   Code: YAML_LOAD_ERR_BAD_MAP_ELEMENT
   Line: 28
   Document: 1
 at /usr/share/perl5/YAML.pm line 33

...oops...

   I think it would be nice to have ConfigLoader stop the loading of 
the app if it has come across a malformed config file. I've looked 
around the code, and don't know who to blame/patch, Config::Any or 
Catayst::Plugin::ConfigLoader.


Any tips?

Jose Luis Martinez
jlmarti...@capside.com

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


Re: [Catalyst] Where to put "use"

2009-02-18 Thread Jose Luis Martinez

Dermot escribió:

Hi,

This might be a daft question but I'll chance it.

One of my controller is starting to use a lot of other modules like
File::Find...etc but they are usually confined to one subroutine or
method. It's most common to see all the use statements at the top of
the package but I have seen instances where they are declared within
the Sub block. Is there an advantage is declaring the use of modules,
that are only used by a single subroutine,  in that subroutine?



I tend to use Module::Load to load seldom used modules at runtime to 
reduce loading time and memory footprint.


Cheers,

Jose Luis Martinez
jlmarti...@capside.com

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


Re: [Catalyst] Current state of Catalyst::Model::IMAP

2009-02-13 Thread Jose Luis Martinez

Tomas Doran escribió:


On 12 Feb 2009, at 17:56, Alex Povolotsky wrote:

Can anyone tell me about current status of Catalyst::Model::IMAP?


I don't see why this needs a Catalyst specific wrapper?

Surely you pick which ever of Net::IMAP::Client / IMAP::Client / 
Net::IMAP / Net::IMAP::Simple / Email::Folder::IMAP you want to, shake 
the Catalyst::Model::Adaptor stick at it and you're done..


A couple of tests I did where just that... I think I used the
Catalyst::Model::Factory::PerRequest, though.

Regards,

Jose Luis Martinez
jlmarti...@capside.com


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


Re: [Catalyst] One App, multiple databases

2008-11-20 Thread Jose Luis Martinez

Jonathan Rockway escribió:

* On Wed, Nov 19 2008, Jose Luis Martinez wrote:

sub ACCEPT_CONTEXT {
my ($self, $c) = @_;

my $user_db = $c->lookup_the_users_db();
$self->{'dsn'} =~ s/#DATABASE#/$user_db/;

return $self;
}



I am really surprised that this works at all.  When do you actually ever
connect to the database with the DSN in $self->{dsn}?  (I am also
surprised that the DBIC version works.)


It looks like the models don't connect to the database until it is first 
needed, so changing the properties with which they connect lets me get 
away with it. I think the fact that I'm working with app_server.pl -f 
helps me start each request without preestablished db connection.



Anyway, mutating objects is wrong.  You should do things like this:

  package MyApp::Model::UsersDatabase;
  ...
  sub ACCEPT_CONTEXT {
  my ($self, $c) = @_;

  return $c->user->get_database($c->config->database_info);
  }

Then your user class should do something like:

  sub get_database {
  my ($self, $database_info) = @_;

  $self->database_connection($self->connect_to_database($database_info))
unless $self->has_database_connection;

  return $self->database_connection;
  }
The idea is that each user has his own database connection, stored in
the user object, and Catalyst just returns the right thing when you say
$c->model('UsersDatabase').  This is much easier to reason about.


But I'll still have to change Model::DBI and/or Model::DBIC::Schema 
connection information on the fly... how should I do this in a clean way?


Regards,

Jose Luis Martinez
[EMAIL PROTECTED]

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


Re: [Catalyst] One App, multiple databases

2008-11-19 Thread Jose Luis Martinez

Mesdaq, Ali escribió:
Are these db's exact copies as far as schema from each other? Or is it different tables and structure as well? 


Reason I am asking is because if its exactly the same and all your queries work 
the same and your logic works the same as well and the only difference is if 
user1 is connected then connect to one schema and if user2 is connected connect 
to another schema you might be able to more cleanly determine the db in your 
controller code. You would also then create a model for each user. This would 
give you granular control over if the user db's ever move or if you need to 
configure specific connection data per users db like different user accounts 
and passwords etc.

So instead of something like:
$c->model('DB::Blah')->all


Yes, they are exactly the same. But I'm not really all that keen on 
creating one model per user (because the users would be created and 
deleted), and that would mean that will have to be added and deleted, 
and app servers restarted.



But I think knowing a little more about your exact situation might help 
understand the issue more.


Basically we giving multi-tentant capability to our app (which was 
ported from some old CGIs). The CGIs where setup to load config files 
based on the REMOTE_USER, so we gave each user a separate DB just by 
changing the connect string. Now in Catayst we want the same effect ;), 
as sharing one database between all users is a step we don't want to 
take (for the moment).


Hope that explains a bit more.

Thanks,

Jose Luis Martinez
[EMAIL PROTECTED]

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


Re: [Catalyst] Re: One App, multiple databases

2008-11-19 Thread Jose Luis Martinez

kevin montuori escribió:

i'm wondering why you wouldn't have two models with different connection
information but that use the same schema?  


Because I wouldn't want application code touched for every user created 
or deleted... Every user will have a new db, and user creation should be 
automatable. Adding new model classes would imply restarts for every 
user added / deleted.



i might be mistaken, but it
seems that tying a user to a physical database circumvents some of the
abstraction MVC provides.


Exact same schema for every user. I think It's really the same level of 
abstraction. The app only uses one database per user. No info from 
databases of other users is needed.


Regards,

Jose Luis Martinez
[EMAIL PROTECTED]

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


[Catalyst] One App, multiple databases

2008-11-19 Thread Jose Luis Martinez

Hello,

This question has been asked a couple of times on the list, and I have 
found yet another solution to it, but I would like to hear if maybe I'm 
doing something wrong, or I will suffer serious pain by doing it my way :)


We have an app that will connect to one database or another depending on 
the logged in user.


My solution:

package App::Model::DB;

use strict;
use base 'Catalyst::Model::DBIC::Schema';
...
sub ACCEPT_CONTEXT {
my ($self, $c) = @_;

my $user_db = $c->lookup_the_users_db();
$self->config->{'connect_info'}->[0] =~ s/#DATABASE#/$user_db/;
$self->schema->connection(@{$self->config->{'connect_info'}});

return $self;
}


1;

I've done the same with Catalyst::Model::DBI:

package App::Model::AnotherDB;

use strict;
use base 'Catalyst::Model::DBI';

sub ACCEPT_CONTEXT {
my ($self, $c) = @_;

my $user_db = $c->lookup_the_users_db();
$self->{'dsn'} =~ s/#DATABASE#/$user_db/;

return $self;
}

1;

And the two seem to be working OK, but I'm worried about what will 
happen when we fire it up in a FastCGI environment (I suspect the 
connection to  user1's database will be kept live, and the next user 
will get the connection to it). Am I right? Any pointers?


Does this way of using the models trigger any warning lights to Catalyst 
gurus?


Thanks in advance,

Jose Luis Martinez
[EMAIL PROTECTED]

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


Re: [Catalyst] Auth::PAM??

2008-11-18 Thread Jose Luis Martinez

Michael Higgins escribió:

What we _do_ allow is SASL auth, as for SMTP service. So... there is an 
Authen::SASL, but no Catalyst hook? I'll try to get this working with Catalyst 
Auth stuff today, but I don't have great hopes of success.


Does Authen::Simple::SMTP do the trick?

Jose Luis Martinez
[EMAIL PROTECTED]   

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


Re: [Catalyst] Auth::PAM??

2008-11-14 Thread Jose Luis Martinez

Michael Higgins escribió:


__PACKAGE ...
   class =>
# 'PAM'
'Authen::Simple', 
authen => [

{
  'class' => 'Passwd',
  'args' => {
'path' => '/etc/shadow'
  }
},
 


To authenticate via PAM with the C::P::A::Authen::Simple, you would have 
to configure:

'class' => 'PAM',
'args' => [
'service' => '...'
]

See:
http://search.cpan.org/~chansen/Authen-Simple-PAM-0.2/lib/Authen/Simple/PAM.pm 
for what to put in "args".


The way you have it configured above, Catalyst is trying to read the 
shadow file directly, and that shouldn't be possible (only readable by 
root), hence the error message.


Best Regards,

Jose Luis Martinez
[EMAIL PROTECTED]


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


Re: [Catalyst] Plugin::Authentication vs Authentiaction

2008-11-10 Thread Jose Luis Martinez

Alex Povolotsky escribió:

Hello!

Trying to use Catalyst::Authentication::Credential::Authen::Simple 
(::RADIUS, but it does not matter), I've found that I've got two 
diAuthentication rectories, one is under Plugin. What's worse, Catalyst 
does not load Catalyst::Authentication::Credential::Authen::Simple 
automatically, and fails when I put it into


use Catalyst qw/  /

because it searches only Catalust/Plugin


What happens when you run 
Catalyst::Authentication::Credential::Authen::Simple tests on your 
setup? In the tests should be a mini app that authenticates with 
C::A::C::Authen::Simple (see the t/lib/AuthTestApp2 and AuthTestApp3). 
See the code if you're having problems. Also, in examples dir there is 
an example application.


Are you on the latest version of Catalyst::Plugin::Authentication? I 
think your problems are because the Authentication plugin components 
where moved to a new namespace (without "Plugin" in the middle).


Note: Patches welcome ;)

Jose Luis Martinez
[EMAIL PROTECTED]

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


Re: [Catalyst] mix authentication stores

2008-10-02 Thread Jose Luis Martinez

Matt S Trout escribió:
Catalyst::Authentication::Credential::Authen::Simple should do the 
trick. 
http://search.cpan.org/~jlmartin/Catalyst-Authentication-Credential-Authen-Simple-0.02/lib/Catalyst/Authentication/Credential/Authen/Simple.pm 
becasue Authen::Simple does support LDAP.


Fucking awesome.


Thanks. :)



This needs to be more widely publicised, do you think you could do doc
patches fr C::P::Authentication and a wiki write up? :)


I'll try to get some time to do it...

Jose Luis Martinez
[EMAIL PROTECTED]

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


Re: [Catalyst] mix authentication stores

2008-10-01 Thread Jose Luis Martinez

Tomas Doran escribió:

Unfortunately, there is no such thing as an LDAP credential module on 
CPAN at the moment.




Catalyst::Authentication::Credential::Authen::Simple should do the 
trick. 
http://search.cpan.org/~jlmartin/Catalyst-Authentication-Credential-Authen-Simple-0.02/lib/Catalyst/Authentication/Credential/Authen/Simple.pm 
becasue Authen::Simple does support LDAP.



Regards,

Jose Luis Martinez
[EMAIL PROTECTED]

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


Re: [Catalyst] Slow template processing on debian lenny

2008-09-15 Thread Jose Luis Martinez

Terence Monteiro escribió:

On my machine, an ubuntu hardy, it works fast - about 2.5 seconds to
process the template. On a production server using debian lenny, it used to
take around the same amount of time. But recently, I upgraded it to libperl
5.10 and updated the different Perl modules including Template and
Catalyst::View::TT. After this upgrade, the same template takes 25 seconds
on average to process. The times I am mentioning are the times taken on the
server side, as shown by the Catalyst application debug logs.


Maybe Template Toolkit is packaged without the XS module enabled?

http://search.cpan.org/~abw/Template-Toolkit-2.20/lib/Template/Stash/XS.pm


Jose Luis Martinez
[EMAIL PROTECTED]

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


Re: [Catalyst] [SOT] cat webmail app?

2008-08-21 Thread Jose Luis Martinez

Roderick A. Anderson escribió:


Well I fell into a pit and had a tough time escaping.


I've been on vacation. I tried to post with nabble, but the message 
didn't get to the list :(




Where are /we/ on this?  Name: Catmail?  List: exist?  Repo: exist? 
irc:exist? Needed: Me? (for more than being an agitator.)


Jose.  I think I saw a message that you had got some code donated(?).


Yup. I think that the code is in your hands right now, too.

Matt: please open the list, when possible. catmail seems quite accepted.



All.  I am working on two other projects that will use Catalyst but I've 
been away from development (using cat anyway) for quite awhile so I'm 
liable to ask some pretty lame questions.


So does anyone have a preferred module set to deal with IMAP and why? 
One of my projects mentioned above uses IMAP and I found there are a lot 
of options ... A lot!


Some seem more complete, several have very cryptic methods, many relied 
on a previous knowledge of the supporting modules and the documentation 
was lacking or vague.  I think a lot of problems I ran into was my lack 
of experience with IMAP as more than a user.




Please comment the pros and cons of the modules that you have had 
experience with, and which one you think is more suited for a webmail app.



So enough rambling on.  What next?


I think that we have to select an IMAP module from CPAN and make it a 
Catalyst Model so the webmail can grow on top of it.



Jose Luis Martinez
[EMAIL PROTECTED]

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


Re: [Catalyst] Re: [SOT] cat webmail app?

2008-08-09 Thread Jose Luis Martinez

Aristotle Pagaltzis escribió:

* Jose Luis Martinez <[EMAIL PROTECTED]> [2008-08-08 16:50]:

http://icanhascheezburger.files.wordpress.com/2008/08/funny-pictures-sometimes-the-mail-gets-you.jpg


I’m not sure that caption is how we want users to think of
a Catalyst mail app. ;-)

Regards,


Just a name for the mailing list and a random humourous link (there 
aren't any more cheezburgers tagged with "mail" :p). The image is 
non-binding to the project as a motto, lema, etc.


Another update:

Kenny Gatdula has contacted me off-list and sent me a "half baked app 
that uses dojo for the UI. it's based on their mail demo". Kind thanks 
to Kenny for the contribution.


Jose Luis Martinez
[EMAIL PROTECTED]

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


Re: [Catalyst] [SOT] cat webmail app?

2008-08-08 Thread Jose Luis Martinez

Matt S Trout escribió:


I doubt you'd be bothering us so much :)


I would want to go into deep design decisions, and think it would go 
very off topic. Although I think a bad thing will happen: isolation from 
 the rest of smart people that are on the main Catalyst list, so I 
encourage them from here to subscribe to the list.




I'd need a name to make a list though. catalyst-mail-thingy just doesn't seem
great.

So, I suggest you pick one. Otherwise I'm going to come up with a really bad
name like 'camelmail' and name your list after that.



I think "catmail" would be good ;)

http://icanhascheezburger.files.wordpress.com/2008/08/funny-pictures-sometimes-the-mail-gets-you.jpg


Jose Luis Martinez
[EMAIL PROTECTED]

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


Re: [Catalyst] [SOT] cat webmail app?

2008-08-08 Thread Jose Luis Martinez

Roderick A. Anderson escribió:



This looks a little more energetic than I had planned, at least
initially.  I am not looking for an Outlook replacement plus I've never
used Squirrelmail so I don't know what all it provides.


I'm not looking for having a full-blown Outlook either. I'm looking for 
the base that will let you grow it into an Outlook via plugins. A 
webmail only has to be able to recieve mail, send mail, and have an 
address book to start out.




That said, I'll give it a whirl.  I need to add that I have specific
needs as far as IMAP and SMTP (outbound) handling goes.  Those include 
Postfix, Dovecot, and PostgreSQL.  So that will twist how I want to do 
things.  


SMTP is pretty generic, so I don't think that there's anything special 
on that part for supporting other MTAs. IMAP servers do have their 
peculiarities, but I'm on you with first supporting Dovecot, although 
I'd start out with making a Catalyst IMAP model (basically selecting the 
IMAP class that best suites from CPAN, and then gluing into Cat). And 
why support only Postgres when DBIx::Class does the deed.


I think that all the building blocks are there, just waiting for a 
little glue. I've seen other webmail solutions code, and they all seem 
to have grown quite organically. I think Cat will let us glue the 
appropiate modules into a decently engineered solution.




Jose, you still interested?


I'm still interested.

Matt S Trout wrote:
> We'll happily host a list and svn for this alongside the main catalyst
> stuff; I can also help you set up an IRC channel on irc.perl.org if you
> want to at some point.

Please do so, Matt. That way we can get into discussion without 
"bothering" the Catalyst list.


Jose Luis Martinez
[EMAIL PROTECTED]

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


Re: [Catalyst] [SOT] cat webmail app?

2008-08-07 Thread Jose Luis Martinez

Robert Krimen escribió:


Catalyst provide a JSON API (View::JSON) layer between your adapter 
class and the javascript.

>

Maybe a good (and standard) way of getting the messages to the interface is:
http://search.cpan.org/~areggiori/Email-MIME-XMTP-0.42/lib/Email/MIME/XMTP.pm

Jose Luis Martinez
[EMAIL PROTECTED]

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


Re: [Catalyst] [SOT] cat webmail app?

2008-08-06 Thread Jose Luis Martinez

Roderick A. Anderson escribió:
I think I've done my due diligence.  I've searched using Google and 
looked through the cat website but haven't found any info on a cat based 
webmail interface.  Heck even Perl based is tough.  And webmail may be 
the wrong term.



You will get free beer ;)

From http://dev.catalystframework.org/wiki/catalystbounties

4 cases of beer
* An IMAP Client using Ajax type things, preferably using Dojo, to 
whoop Squirrelmail's butt. Offered by Suretec - ghenry


I was planning to start a webmail with Catalyst as the base, and an AJAX 
interface myself, but I think it's better to team up than to do it on 
myself. Are you open to help? Maybe a mailing list can be started to lay 
down the design and necessary components, get ideas, etc.


Please contact me at my private mail address if you wish.

Jose Luis Martinez
[EMAIL PROTECTED]

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


Re: [Catalyst] "Streamed" content delivery?!

2008-08-05 Thread Jose Luis Martinez

Tomas Doran escribió:

Have a look at:
http://dev.catalyst.perl.org/repos/Catalyst/trunk/examples/Streaming/lib/Streaming.pm 
for a demo solution.


Thanks for the link, I was investigating on "streaming" results too, but
due to an old Catalyst (Debian Etch packages 5.7006), Response does not
support passing an FD to the body method!

So the alternative for people that use Debian Etch packaged Catalyst is to:

my $buffer;
my $bytes = 4096; #Arbitrary 4KB value for chunks. tune on your own.
open my $fh, "what you want to stream" || die "Can't open $!";
binmode $fh;

STREAM:
while ( read( $fh, my $buffer, $bytes ) ) {
last STREAM unless $c->write( $buffer );
}
close $fh;

--
Jose Luis Martinez
[EMAIL PROTECTED]


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


Re: [Catalyst] "Streamed" content delivery?!

2008-08-05 Thread Jose Luis Martinez

Heiko Jansen escribió:
But no matter which one I choose the main question is this: 
Can I send data to the client incremetally (or you could say: as a stream) with catalyst? 
I want to send (using HTTP/1.0 without content-length header) the start of the html page when I receive the request; then send out a block for every databases result and finally (after the last db or a search timeout) a page footer. 
I'm a novice regarding catalyst and have so far only seen code examples where all output generation is done as a whole at the end of the requests lifecycle and I'd be very happy if you could tell where to look for examples or documentation concerning my needs.


The Catalyst::Response object docs says:

$res->body(<$text|$fh|$iohandle_object)

$c->response->body('Catalyst rocks!');

Sets or returns the output (text or binary data). If you are returning a 
large body, you might want to use a IO::Handle type of object (Something 
that implements the read method in the same fashion), or a filehandle 
GLOB. Catalyst will write it piece by piece into the response.


Hope that helps

Jose Luis Martinez
[EMAIL PROTECTED]

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


[Catalyst] Announce: Catalyst::View::RRDGraph

2008-08-03 Thread Jose Luis Martinez

Hi!

	I've uploaded Catalyst::View::RRDGraph to CPAN, for people interested 
in adding RRD graphs to their Cat apps. I've written a bit on it at 
http://www.pplusdomain.net/cgi-bin/blosxom.cgi


	Has anyone been graphing RRDs in their Cat apps? I'd like to hear how 
they've been doing it until now.


Regards,

Jose Luis Martinez
[EMAIL PROTECTED]

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


Re: [Catalyst] Re: Announce: Catalyst::Authentication::Credential::Authen::Simple

2008-06-28 Thread Jose Luis Martinez

Aristotle Pagaltzis escribió:

* Jose Luis Martinez <[EMAIL PROTECTED]> [2008-06-28 17:05]:

That way, you can authenitcate against LDAP, POP3 servers,
HTTP, Passwd files, DBI, etc just configuring the
Authen::Simple classes that you want to use.


That sounds very cool. Thanks for writing and mentioning this!
I’ll have to take a look.

Regards,


I've written a recent blog entry about it: 
http://www.pplusdomain.net/cgi-bin/blosxom.cgi


Regards,

Jose Luis Martinez
CAPSiDE
[EMAIL PROTECTED]


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


[Catalyst] Announce: Catalyst::Authentication::Credential::Authen::Simple

2008-06-28 Thread Jose Luis Martinez

Hello,

   Just wanted to announce that I've published 
Catalyst::Authehtication::Credential::Authen::Simple. This credential 
module will permit Catalyst users use the Authen::Simple modules to 
verify the user supplied credentials. That way, you can authenitcate 
against LDAP, POP3 servers, HTTP, Passwd files, DBI, etc just 
configuring the Authen::Simple classes that you want to use.


   Please give it a test drive, and tell me if you like it, bugs, 
things to be improved, etc.


Thanks,

Jose Luis Martinez Torres
[EMAIL PROTECTED]
CAPSiDE

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