开发学院服务器云计算 Perl 和 Amazon 云,第 4 部分:深入探究完整 mod... 阅读

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

 2010-02-04 00:00:00 来源:WEB开发网   
核心提示: 评论参数处理程序清单 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; 
} 

上一页  2 3 4 5 6 7 8 9 10  下一页

Tags:Perl Amazon 部分

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接