Perl 和 Amazon 云，第 4 部分：深入探究完整 mod_perl 站点的代码库

核心提示： 评论参数处理程序清单 7 展示了评论参数处理程序。清单 7. 评论参数处理程序subhandle_comment{my$q=shift@_;my$user=$q->param('user');my$imageid=$q->param('refimageid&#

评论参数处理程序

清单 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;　
}