Make top-level Mason components executable

[ypp-sc-tools.web-live.git] / yarrg / web / lookup
diff --git a/yarrg/web/lookup b/yarrg/web/lookup

old mode 100644 (file)

new mode 100755 (executable)

index ae22b33..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 <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;
@@ -49,9 +81,12 @@ foreach my $var (@vars) {
  
  </%perl>
  <html><head><title><% ucfirst $ahtml{Query} %> - YARRG</title></head><body>
+<& webcopyright &>
  
-<a href="<% $m->current_comp()->name() %>">YARRG</a> -
+<a href="<% $m->current_comp()->name() |u %>">YARRG</a> -
   Yet Another Revenue Research Gatherer
+|
+<a href="docs">documentation</a>
  <p>
  <%perl>
  
@@ -72,7 +107,7 @@ foreach my $var (keys %ARGS) {
  }
  
  my $quri= sub {
-       my $uri= URI->new($m->current_comp()->name());
+       my $uri= URI->new('lookup');
         $uri->query_form(@_);
         $uri->path_query();
  };
@@ -114,6 +149,8 @@ $debug => 0
  $routestring => ''
  </%args>
  
+<hr>
+
  %########### query `route' ##########
  % if ($a{Query} eq 'route') {
  
@@ -226,7 +263,7 @@ foreach my $arch (keys %islandlistdata) {
  
  </%perl>
  
-<input type=hidden name=dropdowns value="<% $a{Dropdowns} %>">
+<input type=hidden name=dropdowns value="<% $a{Dropdowns} |h %>">
  
  <script type="text/javascript">
  ms_lists= <% to_json(\%resetislandlistdata) %>;
@@ -344,6 +381,7 @@ for my $dd (0..$a{Dropdowns}-1) {
  % ########### query `age' ##########
  
  <h1>Market data age</h1>
+<& dataage, %baseqf, %queryqf &>
  
  % } ########## end of `age' query ##########
  
@@ -365,6 +403,8 @@ function debug (m) {
  }
  </script>
  
+<& footer &>
+
  <%init>
  use CommodsWeb;
  use HTML::Entities;