Perl 和 Amazon 云,第 4 部分:深入探究完整 mod_perl 站点的代码库
2010-02-04 00:00:00 来源:WEB开发网评论参数处理程序
清单 7 展示了评论参数处理程序。
清单 7. 评论参数处理程序
sub handle_comment
{
my $q = shift @_;
my $user = $q->param('user');
my $imageid = $q->param('refimageid');
my $comment = $q->param('comment');
my $refcommentid = $q->param('refcommentid');
my $commentid = $q->param('commentid');
my $deleteid = $q->param('deletecommentid');
my $result;
if (defined $deleteid) # delete
{
$result = delete_simpledb($deleteid, COMMENT_MODE);
}
elsif (defined $commentid && defined $comment) # edit
{
my %q = (
comment => $comment,
);
put_simpledb($commentid, COMMENT_MODE, %q);
$result = get_simpledb($commentid, COMMENT_MODE);
}
elsif (defined $imageid && defined $comment) # new comment
{
my %q = (
image_id => $imageid,
comment => $comment,
);
$q{reply_to} = $refcommentid if defined $refcommentid;
$q{user} = $user if defined $user;
my $id = new_uuid();
put_simpledb($id, COMMENT_MODE, %q);
$result = get_simpledb($id, COMMENT_MODE);
}
$q->param()->{'result'} = $result;
}
- ››Perl 6 发布
- ››部分 WM6.5 手机有望升级到 Windows Phone 7
- ››Perl 和 Amazon 云,第 1 部分:通过构建简单的照...
- ››Perl 和 Amazon 云,第 2 部分:通过 HTML 表单将...
- ››Perl 和 Amazon 云,第 3 部分:上传图像并创建、...
- ››Perl 和 Amazon 云,第 4 部分:深入探究完整 mod...
- ››Perl 和 Amazon 云,第 5 部分:了解完整 mod_per...
- ››部分英特尔芯片不支持Windows 7“XP模式”
- ››Perl的5个常见错误
- ››Perl操作mysql数据库的方法
- ››Perl的经典用法
- ››部分VZPP无法正常访问怎么解决?
更多精彩
赞助商链接