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

核心提示： 照片参数处理程序这个处理程序非常类似于评论处理程序，因此如果刚才睡着了的话，Perl 和 Amazon 云，第 4 部分：深入探究完整 mod_perl 站点的代码库(9)，那么返回去再看一遍，照片 URL（如果没有传递的话）是由 S3 键和 bucket 构造的，这样您就具有一个一致的接口来在

照片参数处理程序

这个处理程序非常类似于评论处理程序，因此如果刚才睡着了的话，那么返回去再看一遍。

照片 URL（如果没有传递的话）是由 S3 键和 bucket 构造的。这样您就具有一个一致的接口来在 S3 上传后处理成功的重定向。清单 8 展示了照片参数处理程序。

清单 8. 照片参数处理程序

sub　handle_photo　
{　
　my　$q　=　shift　@_;　
　
　my　$user　　　=　$q->param('user');　
　my　$name　　　=　$q->param('name');　
　my　$bucket　　=　$q->param('bucket');　
　my　$key　　　=　$q->param('key');　
　my　$url　　　=　$q->param('url');　
　my　$editid　　=　$q->param('imageid');　
　my　$deleteid　=　$q->param('deleteimageid');　
　
　#　set　the　URL　from　the　S3　key　and　bucket　if　necessary　
　if　(!defined　$url　&&　defined　$key　&&　defined　$bucket)　
　{　
　$url　=　sprintf("http://%s.s3.amazonaws.com/%s",　$bucket,　$key)　
　}　
　
　my　$result;　
　
　if　(defined　$deleteid)　#　delete　
　{　
　$result　=　delete_simpledb($deleteid,　IMAGE_MODE);　
　}　
　elsif　(defined　$name　&&　defined　$editid)　#　editing　an　image　name　
　{　
　my　%q　=　(　
　　　　　name　=>　$name,　
　　　　);　
　
　put_simpledb($editid,　IMAGE_MODE,　%q);　
　$result　=　get_simpledb($editid,　IMAGE_MODE);　
　}　
　elsif　(defined　$url　&&　defined　$name　&&　defined　$user)　#　adding　a　new　one　
　{　
　my　%q　=　(　
　　　　　url　=>　$url,　
　　　　　name　=>　$name,　
　　　　　user　=>　$user,　
　　　　);　
　
　$q{bucket}　=　$bucket　if　defined　$bucket;　
　
　my　$id　=　new_uuid();　
　put_simpledb($id,　IMAGE_MODE,　%q);　
　$result　=　get_simpledb($id,　IMAGE_MODE);　
　}　
　
　$q->param()->{'result'}　=　$result;　
}