这个共分 5 部分的系列文章向您介绍了如何使用 Perl 和 Apache 构建一个照片共享网站，从而访问 Amazon 的 Simple Storage Service (S3) 和 SimpleDB。在这最后一期文章中，我们将考察完整 mod_perl 站点的模板，包括一个用于索引的模板、三个用于上传的模板（通用模板、S3 表单和 URL 添加物）、一个用于浏览照片和评论的模板，以及一个用于递归式地浏览（即遍历浏览）照片评论的模板。
在最后一期文章中，我们将了解完整的 mod_perl 站点（这一次将讨论模板；代码库位于 功能丰富的 Perl：Perl 和 Amazon 云，第 4 部分）。我再一次鼓励您阅读源代码。该站点是功能性的，但是许多细节都没有在本系列中详细介绍，我希望您能理解这些细节或者了解还存在疑问的地方。您可以通过书店或搜索引擎查找信息。
从本系列中获得最大收益
本系列需要您掌握 HTTP 和 HTML 的入门级知识，以及 JavaScript 和 Perl（位于 Apache mod_perl 进程内部）的中级知识。掌握关系数据库、磁盘存储和网络知识也非常有帮助。
特别是，设置一个完整的 mod_perl 站点并使用 Template Toolkit 是非常广泛的主题，并且已经介绍过许多次，因此这里不再解释。最佳学习途径就是了解每一个问题和难点，直到网站可以正常运行。本系列将给出可以使网站正常运行所需的所有内容 — 但是需要由您来将所有内容结合起来。
和此前的文章一样，我将使用 share.lifelogs.com 作为域名。当在您自己的环境中使用时，应根据需要修改它。
index.tmpl
我们将按照从上而下的顺序讨论模板（policy.tmpl 在第 4 部分已作讨论）。有关 Template Toolkit 语法的解释，见参考资料小节。我将解释比较复杂的部分。
index.tmpl 是一个简单的 HTML 页面。这里惟一需要注意的是所有 URI 都是相关的，因此这个模板和其他所有模板都可以用于任何域。
清单 1. index.tmpl，简单的 HTML
<html> <head><title>Share Pictures</title></head><body><h1>Share Pictures</h1>You can<a href="/upload">upload or add images</a>or<a href="/browse">browse images and comments</a>.<address>Contact <a href="mailto:tzz@bu.edu">Ted Zlatanov</a> if you have lotsof money you're trying to get out of Nigeria. The breathis <strike>baited</strike>bated.</address></body></html>
upload.tmpl
现在，我们将了解一个优秀的模板，它集合了 JavaScript、HTML 和 Template Toolkit 语言。如果这还不能让 Web 设计师激动不已的话，那么我不知道还有什么能够拥有这种魔力。
清单 2. 足以让 Web 设计人员激动不已的 upload.tmpl
<html> <head> <title>Upload Page For [% username %]</title> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /> <script src="http://ajax.googleapis.com/ajax/libs/prototype/1.6.0.3/prototype.js" type="text/javascript"></script> </head> <body> <script language="JavaScript">function OnSubmitForm(){ var form = $('uploader'); var file = form['file']; var ct = form['Content-Type']; var name = form['name'].value; if (!name || name.length < 1) { alert("Sorry, you can't upload without a name."); return false; } var filename = ''+$F(file); var f = filename.toLowerCase(); // always compare against the lowercase version if (!navigator['mimeTypes']) { alert("Sorry, your browser can't tell us what type of file you're uploading."); return false; } var type = $A(navigator.mimeTypes).detect(function(m) { // does any of the suffixes match? return m.type.length > 3 && m.type.match('/') && $A(m.suffixes.split(',')).detect(function(suffix) { return f.match('\.' + suffix.toLowerCase() + '$'); }); }); if (!type || !type['type']) { type = { type : prompt("Enter your own MIME type, we couldn't find one through the browser", "image/jpeg") }; } if (type && type['type']) { ct.value = type.type; // fix up the redirect if we're about to submit var sar = form['success_action_redirect']; sar.value = sar.value + escape(name); return true; } alert("Sorry, we don't know the type for file " + filename); return false;}</script><h1>Hi, [% username %]</h1> <form id="uploader" action="https://images.share.lifelogs.com.s3.amazonaws.com/" method="post" enctype="multipart/form-data" onSubmit="return OnSubmitForm();"> <input type="hidden" name="key" value="${filename}"> <input type="hidden" name="AWSAccessKeyId" value="[% env.AWS_KEY %]"> <input type="hidden" name="acl" value="public-read"> <input type="hidden" name="success_action_redirect" value="http://share.lifelogs.com/s3uploaded?user=[% username %]&name="> <input type="hidden" name="policy" value="[% policy %]"> <input type="hidden" name="Content-Type" value="image/jpeg"> <input type="hidden" name="signature" value="[% signature %]"> Select File to upload to S3: <input name="file" type="file"> <br> Enter a Name: <input name="name" type="text"> <br> <input type="submit" value="Upload File to S3"> </form> <form id="adder" action="/urluploaded" method="post" enctype="multipart/form-data"> <input type="hidden" name="user" value="[% username %]"> Enter a URL: <input name="url" type="text"> <br> Enter a Name: <input name="name" type="text"> <br> <input type="submit" value="Add URL"> </form> </body></html>
上传页面展示了两个上传对话框。它们都可以添加照片，但是第二个对话框更加简单。在第二个对话框中，用户填入照片的 URL 和名称，这些内容随后被 POST 到 /urluploaded，后者正是 urluploaded.tmpl。在显示该模板时，将自动调用图像参数处理程序。用户名从服务器获得并且是一个隐藏了表单的 POST 参数。
第一个表单非常复杂。幸运的是，可以阅读本系列的 第 2 部分，其中解释了有关 S3 上传的所有内容，因此您应当不会感到陌生。
对第 2 部分的 s3form.pl（包含在下载小节）的主要修改包括：
success_action_redirect 将用户名和照片名作为参数传递。策略被修改为只需要字符串中截至用户名的一部分，但是不包括用户名。 策略和签名从服务器传递。 AWS 访问和秘密密匙被放到 env 散列中从服务器传递。 OnSubmitForm 函数需要一个名称并将其作为参数添加到 success_action_redirect 表单字段并转义（注意，在决定 MIME 类型之前 需要用到名称，但是名称只有在对表单执行 POST 前被添加到 URL。） 如果没有找到 MIME 类型，OnSubmitForm 函数就会失败，允许用户指定他们自己的类型。
s3uploaded.tmpl
在 S3 上传中将使用该模板。
清单 3. 在上传中使用 s3uploaded.tmpl 模板
[% success = params.result %]<html> <head> <title>[% IF success %]Successful[% ELSE %]Unsuccessful[% END %] Upload Page For [% params.user %]</title> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /> </head> <body> [% IF success %]Congratulations[% ELSE %]Sorry[% END %], [% params.user %]. You have [% IF success %]successfully[% ELSE %]unsuccessfully[% END %] uploaded [% params.key %] to S3 bucket [% params.bucket %] named [% params.name %].<p> (etag is [% params.etag %] but I doubt you care.) <p>[% IF success %] <a href="http://[% params.bucket %].s3.amazonaws.com/[% params.key %]"> Your new upload is probably here. Let's see if it displays already. <img src="http://[% params.bucket %].s3.amazonaws.com/[% params.key %]"> </a>[% END %] <p> You can now go back to <a href="/upload">uploading</a> or <a href="/">the main page</a>. </body></html>
通过一些复杂的 Template Toolkit IF-ELSE 结构和 result 参数，页面可以处理成功的和不成功的上传。成功上传的关键在于添加了 SimpleDB；如果掌握了这点，那么就能够始终成功地将照片上传到 S3。在 SimpleDB 故障时从 S3 取回照片留给读者作为练习。
urluploaded.tmpl
该模板用于 URL 添加。
清单 4. urluploaded.tmpl 实现代码重用
[% success = params.result %]<html> <head> <title>[% IF success %]Successful[% ELSE %]Unsuccessful[% END %] URL add Page For [% params.user %]</title> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /> </head> <body> [% IF success %]Congratulations[% ELSE %]Sorry[% END %], [% params.user %]. You have [% IF success %]successfully[% ELSE %]unsuccessfully[% END %] added [% params.url %] named [% params.name %].<p> <p>[% IF success %] <a href="[% params.url %]"> The URL you added is, perhaps, visible here. <img src="[% params.url %]"> </a>[% END %] <p> You can now go back to <a href="/upload">uploading</a> or <a href="/">the main page</a>. </body></html>
除了明显糟糕的 HTML 外，该模板类似于 s3uploaded.tmpl。通过使用这个模板，代码重用不再是问题。
browse.tmpl
该模板可以浏览照片和评论。
清单 5. 使用 browse.tmpl 浏览照片和评论
[% SET images = fimages() %][% SET comments = fcomments() %]<html> <head> <title>Browse</title> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /> </head> <body> <ul> [% FOR ik IN images.keys %] <li> [% SET image = images.$ik %] [% image.name %]<br> <img src="[% image.url %]"><br> [% IF image.bucket %](in S3)[% END %]<br> uploaded by [% image.user %]<br> <form action="/browse" method="post" enctype="multipart/form-data"> <input type="hidden" name="deleteimageid" value="[% ik %]"> <input type="submit" value="Delete"> </form> <form action="/browse" method="post" enctype="multipart/form-data"> <input type="hidden" name="imageid" value="[% ik %]"> Change Image Name: <input name="name" type="text" value="[% image.name|html %]"> <input type="submit" value="Rename"> </form> [% INCLUDE comments.tmpl ik=ik comments=comments %] <form action="/browse" method="post" enctype="multipart/form-data"> <input type="hidden" name="user" value="[% username %]"> <input type="hidden" name="refimageid" value="[% ik %]"> Enter a Comment (as user [% username %]): <input name="comment" type="text"> <input type="submit" value="Comment"> </form> <form action="/browse" method="post" enctype="multipart/form-data"> <input type="hidden" name="refimageid" value="[% ik %]"> Enter Anonymous Comment: <input name="comment" type="text"> <input type="submit" value="Comment"> </form> </li> [% END %] </ul> </body></html>
您可以使用这个模板浏览所有的照片和评论。但是这样做不太有效，而且在拥有数千照片和评论的真实网站中，这个模板几乎肯定会失效。您需要使用 SimpleDB 的优秀的 NextToken 分页模式（在这里 SimpleDB 实用函数没有有效地使用该分页模式）或您自己的工具对照片设置分页，然后只获得将要显示的照片的评论。
您肯定希望只在需要的时候收到评论。SimpleDB 请求的开销很大。因此模板每次都需要将评论传递到 comments.tmpl 模板。
模板使用了 Template Toolkit FOR 循环来遍历（未分类的）照片（如果需要进行分类，最好在 Template Toolkit 环境之外使用 Perl 代码完成这个操作）。这里要求使用照片键来选择与之匹配的评论。对于每张照片，您将显示照片名、URL、S3 状态、所有者。然后显示各种表单来删除照片、修改照片名或以匿名方式或作为用户发布评论。所有操作都很简单。
最后，comments.tmpl 模板和（INCLUDE）一些参数被包含在一起 — ik 是照片键而 comments 是评论列表 — 表示无论模板生成什么内容，都将针对每张照片从照片列表中删除。
comments.tmpl
该模板针对某张照片递归地浏览评论（遍历评论）。
清单 6. 使用 comments.tmpl 遍历评论
[% IF parent %] [% SET thread = comments.$ik.$parent %][% ELSE %] [% SET thread = comments.$ik.noparent %][% END %]<ul>[% FOR ck IN thread.keys %] [% SET comment = thread.$ck %] <li>[% comment.comment %] (by [% IF comment.user %][% comment.user %] [% ELSE %]Anonymous[% END %])<br> <form action="/browse" method="post" enctype="multipart/form-data"> <input type="hidden" name="deletecommentid" value="[% ck %]"> <input type="submit" value="Delete"> </form> <form action="/browse" method="post" enctype="multipart/form-data"> <input type="hidden" name="commentid" value="[% ck %]"> Edit Comment: <input name="comment" type="text" value="[% comment.comment|html %]"> <input type="submit" value="Edit"> </form> <form action="/browse" method="post" enctype="multipart/form-data"> <input type="hidden" name="user" value="[% username %]"> <input type="hidden" name="refimageid" value="[% ik %]"> <input type="hidden" name="refcommentid" value="[% ck %]"> Enter a Comment (as user [% username %]): <input name="comment" type="text"> <input type="submit" value="Comment"> </form> <form action="/browse" method="post" enctype="multipart/form-data"> <input type="hidden" name="refimageid" value="[% ik %]"> <input type="hidden" name="refcommentid" value="[% ck %]"> Enter Anonymous Comment: <input name="comment" type="text"> <input type="submit" value="Comment"> </form> [% INCLUDE comments.tmpl ik=ik comments=comments parent=ck %] </li>[% END %]</ul>
我将最好的、最困难的代码留到了最后。
对于照片键，该模板将查找该照片的所有评论，照片的父元素为一个特定的评论键。
对于相关的每张照片（具有给定的父元素或没有父元素，视情况而定），模板将显示评论本身，紧接着显示 HTML 表单来删除评论、进行编辑或输入新评论（以用户名或匿名的方式）。这与 browse.tmpl 中的表单几乎完全相同，惟一不同的是这里包含了 refcommentid 参数。
接下来是比较棘手的部分，这个模板针对找到的每个评论包含它自身，每次将 parent 设置为评论键的值。因此在伪语言（Template Toolkit）中使用递归，从而在 Perl 下运行的布局语言（HTML）中生成递归。
结束语
这份共 5 部分的系列文章现在已经全部结束。您在本文中了解了完整 mod_perl 站点的模板 — 使用了来自第 2 部分和第 3 部分的内容以及第 4 部分生成的代码。该站点使用 Template Toolkit、S3 和 SimpleDB 提供了照片上传、浏览、编辑、删除以及添加评论功能。
SimpleDB 实用函数，simpledb_utility.zip：temp_10030722238977.zip
样例脚本（来自第 2 部分），s3form.zip：temp_10030722244155.zip
样例脚本（来自第 3 部分），simple_go.zip：temp_10030722253847.zip