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

[odin-cgi] / mason / shorturl / dhandler

%# -*-html-*-
%#
%# URL shortener 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 URL Shortener" &>
<h1><tt>odin.gg</tt> URL Shortener</h1>
<form method="POST" accept-charset="UTF-8" enctype="multipart/form-data">
  <label for="url" accesskey="u"><u>U</u>RL to shorten:</label>
  <input id="url" name="u" value="<% $u // "" |h %>">
  <button type="submit">Go</button>
</form>
% if (defined $tag) {
<p>Shortened to: <a href="<% "$Odin::SHORTURL/$tag" %>"><%
	"$Odin::SHORTURL/$tag" %></a>
% }
</&>
%#
<%init>
	my $tag = $m->dhandler_arg;
	if (length $tag) {
	  my $url = Odin::get_shorturl $tag;
	  if ($q) { $m->comp(".query", url => $url); }
	  else { $m->redirect($url, 301); }
	  return;
	} elsif (defined $u) {
	  $tag = Odin::new_shorturl $u;
	} else {
	  Odin::path_info($r) =~ m:/$:
	    or $m->redirect("$Odin::SHORTURL/", 301);
	  $tag = undef;
	}
</%init>
%#
<%args>
	$q => undef
	$u => undef
</%args>
%#
<%def .query>\
% $r->content_type("text/plain; charset=utf8");
<% $url %>
<%args>
	$url
</%args>
</%def>
%#
<%def .notfound>\
<&| SELF:error, title => "not found", status => 404 &>\
tag &lsquo;<% $tag |h %>&rsquo; not found
</&>
<%args>
	$tag
</%args>
</%def>
%#
<%def .badurl>\
<&| SELF:error, title => "invalid url", status => 404 &>\
&lsquo;<tt><% $u |h %></tt>&rsquo; is not a valid URL
</&>
<%args>
	$u
</%args>
</%def>
%#
<%once>
	use utf8;
	use Odin;
</%once>