Make a licensing decision: it's all AGPLv3+.

[odin-cgi] / mason / pastebin / %edit

%# -*-html-*-
%#
%# Pastebin editing webservice for Odin
%#
%# (c) 2015 Mark Wooding
%#
%#----- Licensing notice ----------------------------------------------------
%#
%# This file is part of the `odin.gg' service, `odin-cgi'.
%#
%# `odin-cgi' is free software; you can redistribute it and/or modify
%# it under the terms of the GNU Affero General Public License as
%# published by the Free Software Foundation; either version 3 of the
%# License, or (at your option) any later version.
%#
%# `odin-cgi' is distributed in the hope that it will be useful,
%# but WITHOUT ANY WARRANTY; without even the implied warranty of
%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
%# GNU Affero General Public License for more details.
%#
%# You should have received a copy of the GNU Affero General Public
%# License along with `odin-cgi'; if not, see
%# <http://www.gnu.org/licenses/>.
%#
<&| SELF:wrapper, title => "odin.gg Paste Bin" &>
<h1><tt>odin.gg</tt> Paste Bin</h1>
%#
% my $sep = "<div class=menu>\n";
% my $end = "";
% if (length $tag) {
% $m->print($sep);
  <span class="item"><a href="<% "$Odin::PASTEBIN/$tag" %>">View</a></span>
  <span class="item"><a href="<% "$Odin::PASTEBIN/$tag?edit=$edit;op=del" %>">Delete</a></span>
  <span class="item"><a href="<% "$Odin::PASTEBIN/" %>">New</a></span>
% $sep = ""; $end = "</div>\n";
% }
% $m->print($end);
%#
<form method="POST" action="<% "$Odin::PASTEBIN/$tag" %>"
      accept-charset="UTF-8" enctype="multipart/form-data">
  <div class="pastebin">
% if (defined $edit) {
    <input type="hidden" name="edit" value="<% $edit |h %>">
% }
%#
    <label class="invis" for="content" accesskey="c"><u>C</u>ontent</label>
    <textarea id="content" name="content" rows=48 cols=80><%
	$content |h %></textarea>
%#
    <div class="paste-widgets">
%#
      <label class="invis" for="lang" accesskey="l"><u>L</u>abel</label>
      <select id="lang" name="lang" default="txt">
%     my $lh = $db->selectall_hashref
%	("SELECT lang, descr FROM odin_pastebin_lang", "descr");
%     for my $d (sort { Odin::nice_name $a cmp Odin::nice_name $b }
%		      keys %$lh) {
%	my $l = $lh->{$d}{lang};
	<option value="<% $l %>"<%
	  $l eq $lang ? " selected" : "" %>><%
	  $d |h %></option>
%     }
      </select>
%#
      <label class="invis" for="title" accesskey="t"><u>T</u>itle</label>
      <input id="title" name="title" value="<% $title |h %>">
%#
      <button type="submit">Go</button>
%#
    </div>
  </div>
</form>
</&>
%#
<%args>
	$content => ""
	$tag => ""
	$edit => undef
	$lang => "txt"
	$title => "(untitled)"
</%args>
%#
<%init>
	my $db = Odin::open_db;
</%init>
%#
<%once>
	use utf8;
</%once>