/usr/share/doc/libpoet-perl/examples/blog/comps/new_article.mc is in libpoet-perl 0.16-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | <h2>Add an article</h2>
% $.FillInForm($form_data) {{
<form action="/article/publish" method=post>
<p>Title: <input type=text size=30 name=title></p>
<p>Text:</p>
<textarea name=content rows=20 cols=70></textarea>
<p><input type=submit value="Publish"></p>
</form>
% }}
<%init>
my $form_data = delete($m->session->{form_data});
</%init>
|