+%# This is part of the YARRG website. YARRG is a tool and website
+%# for assisting players of Yohoho Puzzle Pirates.
+%#
+%# Copyright (C) 2009 Ian Jackson <ijackson@chiark.greenend.org.uk>
+%# Copyright (C) 2009 Clare Boothby
+%#
+%# YARRG's client code etc. is covered by the ordinary GNU GPL (v3 or later).
+%# The YARRG website is covered by the GNU Affero GPL v3 or later, which
+%# basically means that every installation of the website will let you
+%# download the source.
+%#
+%# This program 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.
+%#
+%# This program 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 this program. If not, see <http://www.gnu.org/licenses/>.
+%#
+%# Yohoho and Puzzle Pirates are probably trademarks of Three Rings and
+%# are used without permission. This program is not endorsed or
+%# sponsored by Three Rings.
+%#
+%#
+%# This Mason component generates the main `lookup' page, including
+%# all the entry boxes etc. for every query.
+%#
<%perl>
my %a;
my %ahtml;
</%perl>
<html><head><title><% ucfirst $ahtml{Query} %> - YARRG</title></head><body>
+<& webcopyright &>
<a href="<% $m->current_comp()->name() |u %>">YARRG</a> -
Yet Another Revenue Research Gatherer
+|
+<a href="docs">documentation</a>
<p>
<%perl>
$routestring => ''
</%args>
+<hr>
+
%########### query `route' ##########
% if ($a{Query} eq 'route') {
}
</script>
+<& footer &>
+
<%init>
use CommodsWeb;
use HTML::Entities;
~yarrgweb / ypp-sc-tools.web-live.git / blobdiff