X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.web-live.git;a=blobdiff_plain;f=yarrg%2Fweb%2Flookup;h=41eda49db3359e0462a330245c3ce1468fe9b86d;hp=469f22835fe06da65e5a41807b5c94c13b0019cf;hb=3231df828b8d032a38a32a3a16e82a53c647a033;hpb=2961c979e0f7bdae7183d49ab7fab5f5830dff4e diff --git a/yarrg/web/lookup b/yarrg/web/lookup old mode 100644 new mode 100755 index 469f228..41eda49 --- a/yarrg/web/lookup +++ b/yarrg/web/lookup @@ -1,3 +1,35 @@ +%# 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 +%# 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 . +%# +%# 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; @@ -49,9 +81,12 @@ foreach my $var (@vars) { <% ucfirst $ahtml{Query} %> - YARRG +<& webcopyright &> YARRG - Yet Another Revenue Research Gatherer +| +documentation

<%perl> @@ -114,6 +149,8 @@ $debug => 0 $routestring => '' +

+ %########### query `route' ########## % if ($a{Query} eq 'route') { @@ -366,6 +403,8 @@ function debug (m) { } +<& footer &> + <%init> use CommodsWeb; use HTML::Entities;