chiark - git - mdw - odin-cgi/blob - mason/pastebin/%edit

   1 <&| SELF:wrapper, title => "odin.gg Paste Bin" &>
   2 <h1><tt>odin.gg</tt> Paste Bin</h1>
   3 %#
   4 % my $sep = "<div class=menu>\n";
   5 % my $end = "";
   6 % if (length $tag) {
   7 % $m->print($sep);
   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   <span class="item"><a href="<% "$Odin::PASTEBIN/" %>">New</a></span>
  11 % $sep = ""; $end = "</div>\n";
  12 % }
  13 % $m->print($end);
  14 %#
  15 <form method="POST" action="<% "$Odin::PASTEBIN/$tag" %>"
  16       accept-charset="UTF-8" enctype="multipart/form-data">
  17   <div class="pastebin">
  18 % if (defined $edit) {
  19     <input type="hidden" name="edit" value="<% $edit |h %>">
  20 % }
  21 %#
  22     <label class="invis" for="content" accesskey="c"><u>C</u>ontent</label>
  23     <textarea id="content" name="content" rows=48 cols=80><%
  24         $content |h %></textarea>
  25 %#
  26     <div class="paste-widgets">
  27 %#
  28       <label class="invis" for="lang" accesskey="l"><u>L</u>abel</label>
  29       <select id="lang" name="lang" default="txt">
  30 %     my $lh = $db->selectall_hashref
  31 %       ("SELECT lang, descr FROM odin_pastebin_lang", "descr");
  32 %     for my $d (sort { Odin::nice_name $a cmp Odin::nice_name $b }
  33 %                     keys %$lh) {
  34 %       my $l = $lh->{$d}{lang};
  35         <option value="<% $l %>"<%
  36           $l eq $lang ? " selected" : "" %>><%
  37           $d |h %></option>
  38 %     }
  39       </select>
  40 %#
  41       <label class="invis" for="title" accesskey="t"><u>T</u>itle</label>
  42       <input id="title" name="title" value="<% $title |h %>">
  43 %#
  44       <button type="submit">Go</button>
  45 %#
  46     </div>
  47   </div>
  48 </form>
  49 </&>
  50 %#
  51 <%args>
  52         $content => ""
  53         $tag => ""
  54         $edit => undef
  55         $lang => "txt"
  56         $title => "(untitled)"
  57 </%args>
  58 %#
  59 <%init>
  60         my $db = Odin::open_db;
  61 </%init>
  62 %#
  63 <%once>
  64         use utf8;
  65 </%once>