Catalyst 问题
时间：2011-01-10
来源：互联网
本帖最后由 Perl_Er 于 2011-01-10 17:24 编辑
The Definitive Guide to Catalyst这本书里面有个例子（authentication and authorization着一章），
对于权限管理，它只创建了下面几个表
复制代码
下面代码里面只是检查role，那怎么细化到单个的permission了。因为一个role是对于多个permission的。有模块来做这个吗？
复制代码
The Definitive Guide to Catalyst这本书里面有个例子（authentication and authorization着一章），
对于权限管理，它只创建了下面几个表
- BEGIN TRANSACTION;
- CREATE TABLE users (
- id INTEGER PRIMARY KEY,
- username char(32) NOT NULL DEFAULT '',
- password char(64) NOT NULL,
- status char(16) NOT NULL DEFAULT 'active',
- last_whisper char(20)
- );
- INSERT INTO "users" VALUES(1,'friend','foDCGe8hfTtg.',
- 'active', NULL);
- INSERT INTO "users" VALUES(2,'neighbor','baxXrXtQl0c6Y',
- 'active', NULL);
- CREATE TABLE users_to_roles (
- user int(11) NOT NULL,
- role int(11) NOT NULL,
- PRIMARY KEY (user,role),
- FOREIGN KEY(user) REFERENCES users(id),
- FOREIGN KEY(role) REFERENCES roles(id)
- );
- INSERT INTO "users_to_roles" VALUES(1,1);
- CREATE TABLE roles (
- id INTEGER PRIMARY KEY,
- role char(32) DEFAULT NULL);
- INSERT INTO "roles" VALUES(1,'can_whisper');
- CREATE TABLE ideas (
- id INTEGER PRIMARY KEY,
- text text NOT NULL,
- secret char(3) NOT NULL DEFAULT 'no',
- added char(20) NOT NULL DEFAULT 'unknown',
- added_by char(32) NOT NULL DEFAULT 'unknown'
- );
- INSERT INTO "ideas" VALUES(1,'I like food','no',
- 'Sun Apr 19 09:19:04 2009','SneakyCat');
- INSERT INTO "ideas" VALUES(2,'I only eat salmon.','no',
- 'Sun Apr 19 10:55:53 2009','friend');
- INSERT INTO "ideas" VALUES(3,'I like milk too.','yes',
- 'Sun Apr 19 10:56:02 2009', 'SneakyCat');
- INSERT INTO "ideas" VALUES(4,'I hear a twitter.','no',
- 'Sun Apr 19 11:26:08 2009', 'SneakyCat');
- INSERT INTO "ideas" VALUES(5,'I think I will eat it.','yes',
- 'Sun Apr 19 11:26:20 2009', 'SneakyCat');
- COMMIT;
- sub whisper :Local :Args(0) {
- my ( $self, $c ) = @_;
- if ($c->user_exists() && $c->check_user_roles( qw/ can_whisper /) ) {
- ## do whispery things
- my $current_time = scalar localtime();
- if (exists($c->req->params->{'whisper'}) &&
- length($c->req->params->{'whisper'}) > 1) {
作者: Perl_Er 发布时间: 2011-01-10
我理解 Catalyst 中的 role 的概念就是对应系统中的某个操作( 如 查看，添加，删除，编辑等等)，不知道是不是你说的 permission， 不知你要如何再细化
作者: socyno 发布时间: 2011-01-10
本帖最后由 Perl_Er 于 2011-01-10 21:46 编辑
谢谢！我也是这么理解。但我觉得那不是真正的Role啊。role应该是permission的集合啊。应该还有一个Permission的表与Role表关联吧…但是在Catalyst里怎实现？
谢谢！我也是这么理解。但我觉得那不是真正的Role啊。role应该是permission的集合啊。应该还有一个Permission的表与Role表关联吧…但是在Catalyst里怎实现？
作者: Perl_Er 发布时间: 2011-01-10
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读：74
-
如何安装mysql8.0
阅读：31
-
Word快速设置标题样式步骤详解
阅读：28
-
20+道必知必会的Vue面试题（附答案解析）
阅读：37
-
HTML如何制作表单
阅读：22
-
百词斩可以改天数吗？当然可以，4个步骤轻松修改天数！
阅读：31
-
ET文件格式和XLS格式文件之间如何转化？
阅读：24
-
react和vue的区别及优缺点是什么
阅读：121
-
支付宝人脸识别如何关闭?
阅读：21
-
腾讯微云怎么修改照片或视频备份路径?
阅读：28
