标签: catalyst

Catalyst::Plugin::Authentication如果用户uesrid被域限定(即复合键),那么最有效的方法是什么？它是否支持此功能？我正在寻找使用Catalyst::Plugin::Authentication::DBI但我不反对分叉,修补,如果它没有当前的功能重新创建它.

我需要使用特定密码登录某个域名.似乎/ all/C:P:A模块依赖于简单的UserID/Password组合.其他示例和提示是受欢迎的.

我正在使用Catalyst for Perl Web应用程序.从用户输入中删除HTML的可接受方法是什么？

目前我倾向于使用HTML :: FormatText.但是对我来说似乎很奇怪,我找不到Catalyst内置的实用程序来完成这项常见任务.我还没找到它吗？此外,似乎这些用于删除输入的模块需要5行代码.我希望有一个简单的"deHTMLify()"方法.我想我可以自己动手,但不想重新发明轮子.

我认为像HTML :: FormFU这样的表单验证模块会为你做这件事,但我希望避免这种复杂性.我的表格简短.这个决定是错误的吗？

我做得对吗？

如何自定义分配规则Catalyst在匹配网址时使用？

例如,我想GET /home/a打电话sub a_GET : Local和POST /home/a打电话sub a_POST : Local.

我知道我总是可以编写一个基于名称调用其中一个函数的常见操作,但我想听听更多通用选项.

例如:

我知道如何匹配www.domain.com/foo/21

sub foo : Path('/foo') Args(1) {
  my ( $self, $c, $foo_id ) = @_;
  # do stuff with foo
}

但是如何匹配www.domain.com/foo/21或www.domain.com/foo/21/bar/56？

sub foo : <?> {
  my ( $self, $c, $foo_id, $bar_id ) = @_;
  # do stuff with foo, and maybe do some things with bar if present
}

谢谢

更新: 根据Daxim的建议,我尝试使用:正则表达式

sub foo : Regex('foo/(.+?)(?:/bar/(.+))?') {
   my ( $self, $c ) = @_;
   my ( $foo_id, $bar_id ) = @{ $c->req->captures …

我有一些键/值对的哈希

my %hash = ('key1','value1', 'key2', 'value2');

我在Stash中传递它以在html模板中使用它:

$c->stash( theHash => %hash);

然后,在模板中,要显示值,我认为我应该使用类似的东西

[% theHash.key1 %] #It should display "value1"
[% theHash.key2 %] #It should display "value2"

但它不起作用.

如果我逐个传递值,它可以工作:

$c->stash( valueOfHash1 => $hash{'key1'});
$c->stash( valueOfHash2 => $hash{'key2'});

并将其检索为

[% valueOfHash1 %] #It displays "value1"
[% valueOfHash2 %] #It displays "value2"

但哈希将有很多价值.它似乎是一个好主意.

我错过了什么？先感谢您.

在我的一个控制器中，我正在执行一些 SSE 异步流（请参阅此处），并且它在准系统测试项目中运行良好。在测试项目中，我没有设置默认视图，所以它似乎只是通过 - 完美！

现在我试图将它放入我现有的更大的项目中，但是，我发现将它转发到任何视图都会弄乱它，并且我不知道如何简单地跳过视图的渲染。因为我现在有一个默认视图，所以它拒绝直接通过。

我盲目地尝试了一些事情：$c->detach，，$c->forward(undef)覆盖“结束 ”方法。没有人成功地跳过视图渲染 - 它总是将其传递到我的默认视图。

有任何想法吗？

编辑

不是超级相关，但是有问题的操作：

sub time_server : Path('/events') {
    my ( $self, $c ) = @_;
    $c->res->content_type('text/event-stream');
    $timer_model->( $c, $c->response->write_fh );
}

我正在尝试编辑Perl程序以使用Get Options和Pod Usage模块.当我试图这样做时,它似乎打破了它.第一个代码示例是有效的原始文件,第二个代码示例是不起作用的已编辑版本.

 #!/usr/bin/env perl

use strict;
use warnings;
use 5.012;

use File::Basename;
use FindBin;
use lib "$FindBin::Bin/../../lib";

use TNT::Utils::Crypto;
use TNT::Utils::DB;

$|=1 if _running_interactively(); # autoflush STDOUT for better status feedback

my $survey  = shift or die "Must provide survey name";
my $db_type = shift or die "Must provide database type (mysql|prod|sqlite|test)";
my $mode    = shift or die "Must provide mode 'NORMAL' or 'ROLLOVER'";
my @files   = (shift) or die "Must provide file names to load or 'FAKE' for …

试图了解如何在Catalyst中创建,存储和检索会话信息.有什么建议？

我想研究perl的催化剂MVC freamwork,但我对催化剂或MVC freamwork一无所知.从哪里开始.. ?? 你能给我一本最好的相关主题的书吗？

我刚刚发现,当我将Catalyst应用程序的会话插件(Catalyst :: Plugin :: Session)配置为过期时,它会使用闪存数据.更具体地说,我发现闪存数据不再带有新请求.

这听起来不正常吗？我怎么能应付这个？

我最近一直在构建Catalyst应用程序,我喜欢使用Catalyst的创建脚本来轻松生成DBIx :: Class的表模式.我希望能够使用DBIX :: Class而无需手动为我的表编写模式.有没有办法这样做而不用手工做？谢谢!

我很难搞清楚如何创建两个动态下拉菜单.

我需要能够根据在第一个下拉菜单中选择的项目填充第二个下拉菜单.我可以在两个菜单中填充所有数据,但这不是理想的结果.

菜单1带催化剂符号:

<select name="select_productsuiteid" required="yes" onChange="return setmode('selectProdSuite',this.form)">
  <option value="" selected="Selected">Please Select a Product Family</option>
  [% FOREACH prod_fam IN prod_fams %]
  <option value="[% prod_fam.fam_id %]">[% prod_fam.fam_name %]</option>
  [% END %]
</select>

带催化剂符号的第二个菜单.这是应根据第一个菜单中所选产品系列的产品系列ID填充产品的菜单.

<select name="select_productid" required="yes" onChange="return setmode('selectProd',this.form)">
  <option value selected="selected">(no value)</option>
  [% FOREACH prod IN prods %]
  <option value="[% prod.prod_id %]">[% prod.prod_name %]</option>
  [% END %]
</select>

我想用一个DBIx ResultSet的帮手,也就是DBIx::Class::Helper::ResultSet::Random,在我催化剂的应用.

包文档显示了它是如何从DBIx::Class::ResultSet类中加载的,但据我所知,我没有这些,因为我正在使用它DBIx::Class::Schema::Loader来创建模式.

我试过把它__PACKAGE__->load_components('Helper::ResultSet::Random')放在我的Schema::Result,但是没有用:无法通过包"DBIx :: Class :: ResultSet"找到对象方法"rand".

应该怎么做？