2009-01-10 20:03:46 -07:00
% cdir = $local_path^'_werc/comments'
% if(test -d $cdir) {
<hr /><h2>Comments</h2>
% for(c in ` { ls $cdir / } ) {
2009-01-25 20:56:05 -07:00
<div><b>By: <i>
2009-01-11 11:52:48 -07:00
% cat $c/user
2009-01-25 20:56:05 -07:00
</i></b>
2009-01-11 11:52:48 -07:00
<br />
% cat $c/body | escape_html | sed 's,$,<br />,'
2009-01-10 20:03:46 -07:00
<hr /></div>
% }
% }
2009-01-23 23:22:43 -07:00
<hr />
2009-01-10 20:03:46 -07:00
<form action="" method="post">
2009-01-23 23:22:43 -07:00
<textarea name="comment_text" id="comment_text" cols="80" rows="16"></textarea>
<br />
<input type="submit" name="post_comment" value="Post a comment" />
2009-01-10 20:03:46 -07:00
% if(! check_user) {
2009-01-25 08:54:03 -07:00
<label>User: <input type="text" name="comment_user_name" value="" /></label>
<label>Password: <input type="password" name="comment_user_password" value="" /></label>
2009-01-23 23:22:43 -07:00
<div style="font-size: 70%">If you are not registered enter your desired user/password and your account will be created when your comment is approved.</div>
2009-01-10 20:03:46 -07:00
% }
</form>