1 <&| SELF:wrapper, title => "odin.gg Paste Bin" &>
2 <h1><tt>odin.gg</tt> Paste Bin</h1>
4 % my $sep = "<div class=menu>\n";
8 <span class="item"><a href="<% "$Odin::PASTEBIN/$tag" %>">View</a></span>
9 <span class="item"><a href="<% "$Odin::PASTEBIN/$tag?edit=$edit;op=del" %>">Delete</a></span>
10 % $sep = ""; $end = "</div>\n";
14 <form method="POST" action="<% "$Odin::PASTEBIN/$tag" %>"
15 accept-charset="UTF-8" enctype="multipart/form-data">
16 <div class="pastebin">
17 % if (defined $edit) {
18 <input type="hidden" name="edit" value="<% $edit |h %>">
21 <label class="invis" for="content" accesskey="c"><u>C</u>ontent</label>
22 <textarea id="content" name="content" rows=48 cols=80><%
23 $content |h %></textarea>
25 <div class="paste-widgets">
27 <label class="invis" for="lang" accesskey="l"><u>L</u>abel</label>
28 <select id="lang" name="lang" default="txt">
29 % my $lh = $db->selectall_hashref
30 % ("SELECT lang, descr FROM odin_pastebin_lang", "descr");
31 % for my $d (sort { Odin::nice_name $a cmp Odin::nice_name $b }
33 % my $l = $lh->{$d}{lang};
34 <option value="<% $l %>"<%
35 $l eq $lang ? " selected" : "" %>><%
40 <label class="invis" for="title" accesskey="t"><u>T</u>itle</label>
41 <input id="title" name="title" value="<% $title |h %>">
43 <button type="submit">Go</button>
55 $title => "(untitled)"
59 my $db = Odin::open_db;