+++ /dev/null
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
-<!--
- This HTML is generated by the YARRG website, which is
- Copyright 2009 Ian Jackson, Clare Boothby, Steve Early.
-
- The YARRG website is Free Software and licenced according to the
- GNU Affero General Public Licence (v3 or later). See the link at
- the bottom of this page for full licence and copyright
- information.
-
- Many YARRG web pages also display data from the YARRG database,
- which contains mostly contributions from YARRG users and is not
- covered by the AGPL.
--->
-
-
-
-
-<html lang="en"><head><title>Trades for route - YARRG</title>
-<style type="text/css">
-body {
- color: #000000;
- background: #ffffff;
-}
-tr.datarow0 { background: #e3e3e3; }
-tr.datarow1 { background: #ffffff; }
-</style>
-
-</head><body>
-
-QUERY HERE
-
-
-commit 8198bdb1afdf8ebedb130006e3af2af6b11045ab
-Author: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
-Date: Thu Sep 24 19:01:44 2009 +0100
-
- Use full URLs for query sites
-
-commit 207dec6556d4642ce7223e243f08af3bbe8fd157
-Author: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
-Date: Thu Sep 24 19:00:12 2009 +0100
-
- YARRG website is fine
-
-commit 19c49821438f668c75868ca696bd0b06c6a47d2a
-Author: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
-Date: Thu Sep 24 18:58:48 2009 +0100
-
- Document that we actually upload to the main PCTB db
-
-commit 68843821b559b609abb26e50ed20171b108fb60c
-Author: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
-Date: Wed Sep 23 20:58:09 2009 +0100
-
- Switch to main PCTB server now we are approved
-
-commit 016f2797ee2dfea8948bbb1247eaa9fc5234a35a
-Author: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
-Date: Thu Sep 24 00:09:43 2009 +0100
-
- Dump bogus XML in _commodmap.xml if we can't parse it
-
-commit 938b4dd547bfc4d9538a5714b6f21ab3da50d8d1
-Author: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
-Date: Wed Sep 23 23:55:45 2009 +0100
-
- Better HTTP User-Agent strings (rot13 the library, say who we are)
-
-commit c810347487961a59b3d8dfb2fed123f49dc22ed4
-Author: Ian Jackson <ijackson@chiark.greenend.org.uk>
-Date: Wed Sep 23 15:12:46 2009 +0100
-
- Do not allow caller to specify arbitrary content-types
-
-commit a9a88c14c5a5bd057932f76ad721b5f0fc845c20
-Author: Ian Jackson <ijackson@chiark.greenend.org.uk>
-Date: Tue Sep 22 15:25:57 2009 +0100
-
- Minor html style changes
-
-
-commit 8198bdb1afdf8ebedb130006e3af2af6b11045ab
-Author: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
-Date: Thu Sep 24 19:01:44 2009 +0100
-
- Use full URLs for query sites
-
-commit 207dec6556d4642ce7223e243f08af3bbe8fd157
-Author: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
-Date: Thu Sep 24 19:00:12 2009 +0100
-
- YARRG website is fine
-
-commit 19c49821438f668c75868ca696bd0b06c6a47d2a
-Author: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
-Date: Thu Sep 24 18:58:48 2009 +0100
-
- Document that we actually upload to the main PCTB db
-
-commit 68843821b559b609abb26e50ed20171b108fb60c
-Author: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
-Date: Wed Sep 23 20:58:09 2009 +0100
-
- Switch to main PCTB server now we are approved
-
-commit 016f2797ee2dfea8948bbb1247eaa9fc5234a35a
-Author: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
-Date: Thu Sep 24 00:09:43 2009 +0100
-
- Dump bogus XML in _commodmap.xml if we can't parse it
-
-commit 938b4dd547bfc4d9538a5714b6f21ab3da50d8d1
-Author: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
-Date: Wed Sep 23 23:55:45 2009 +0100
-
- Better HTTP User-Agent strings (rot13 the library, say who we are)
-
-commit c810347487961a59b3d8dfb2fed123f49dc22ed4
-Author: Ian Jackson <ijackson@chiark.greenend.org.uk>
-Date: Wed Sep 23 15:12:46 2009 +0100
-
- Do not allow caller to specify arbitrary content-types
-
-commit a9a88c14c5a5bd057932f76ad721b5f0fc845c20
-Author: Ian Jackson <ijackson@chiark.greenend.org.uk>
-Date: Tue Sep 22 15:25:57 2009 +0100
-
- Minor html style changes
-
-
-<h1>Voyage trading plan</h1>
-<table rules=groups>
-<tr bgcolor="#808080"><td colspan=6>
-<tr><td colspan=4>
-<strong>Start at Eta Island</strong>
-<td colspan=2>(Data age: <span id="da_0">2 days</span>)
-<tr bgcolor="#e0e0e0" class="datarow0">
-<td rowspan=2>Collect
-<td rowspan=2>Wood
-<td>Finagle's Distilling Stall
-<td rowspan=2 align=right>22 poe ea.
-<td rowspan=2 align=right>276 unit(s)
-<td rowspan=2 align=right>6072 total
-<tr bgcolor="#e0e0e0">
-<td>Samjones's Ironworking Stall
-<tr class="datarow1">
-<td rowspan=3>Collect
-<td rowspan=3>Wood
-<td>Acute Irony
-<td rowspan=3 align=right>23 poe ea.
-<td rowspan=3 align=right>647 unit(s)
-<td rowspan=3 align=right>14881 total
-<tr class="datarow1">
-<td>Fumundacheez's Ironworking Stall
-<tr class="datarow1">
-<td>Tesla Foils
-<tr>
-<td colspan=1>
-<td colspan=2>In hold 161525kg, 230750 l.
-
-<td colspan=2 align=right>Outlay
-<td align=right>20953 total
-<tr bgcolor="#808080"><td colspan=6>
-<tr><td colspan=4>
-<strong>Sail to Jorvik Island</strong>
-- 5 leagues,
- 22991poe at risk
- </td>
-<td colspan=2>(Data age: <span id="da_1">2 days</span>)
-<tr class="datarow0">
-<td rowspan=4>Deliver
-<td rowspan=4>Wood
-<td>Biker's Distilling Stall
-<td rowspan=4 align=right>25 poe ea.
-<td rowspan=4 align=right>839 unit(s)
-<td rowspan=4 align=right>20975 total
-<tr class="datarow0">
-<td>Canterbury Ales
-<tr class="datarow0">
-<td>Darkseid's Ironworking Stall
-<tr class="datarow0">
-<td>Spearhalk's Distilling Stall
-<tr class="datarow1">
-<td rowspan=2>Deliver
-<td rowspan=2>Wood
-<td>Affjordable Furnishing
-<td rowspan=2 align=right>24 poe ea.
-<td rowspan=2 align=right>84 unit(s)
-<td rowspan=2 align=right>2016 total
-<tr class="datarow1">
-<td>Helsingkor
-<tr>
-<td colspan=1>
-<td colspan=2>
-<td colspan=2 align=right>Proceeds
-<td align=right>22991 total
-<tr bgcolor="#808080"><td colspan=6>
-<tr class="datarow0">
-<td rowspan=1>Collect
-<td rowspan=1>Iron
-<td>Helsingkor
-<td rowspan=1 align=right>14 poe ea.
-<td rowspan=1 align=right>21 unit(s)
-<td rowspan=1 align=right>294 total
-<tr class="datarow1">
-<td rowspan=1>Collect
-<td rowspan=1>Rambutan
-<td>Yggdrasil
-<td rowspan=1 align=right>51 poe ea.
-<td rowspan=1 align=right>2 unit(s)
-<td rowspan=1 align=right>102 total
-<tr>
-<td colspan=1>
-<td colspan=2>
-<td colspan=2 align=right>(Arbitrage) outlay
-<td align=right>396 total
-<tr bgcolor="#808080"><td colspan=6>
-<tr class="datarow0">
-<td rowspan=1>Deliver
-<td rowspan=1>Iron
-<td>Jergs's Ironworking Stall
-<td rowspan=1 align=right>15 poe ea.
-<td rowspan=1 align=right>21 unit(s)
-<td rowspan=1 align=right>315 total
-<tr class="datarow1">
-<td rowspan=1>Deliver
-<td rowspan=1>Rambutan
-<td>Merchant of Vanir
-<td rowspan=1 align=right>59 poe ea.
-<td rowspan=1 align=right>2 unit(s)
-<td rowspan=1 align=right>118 total
-<tr>
-<td colspan=1>
-<td colspan=2>
-<td colspan=2 align=right>(Arbitrage) proceeds
-<td align=right>433 total
-<tr bgcolor="#808080"><td colspan=6><tr>
-<td colspan=3>Total distance: 5 leagues.
-<td colspan=2 align=right>Overall net cash flow
-<td align=right><strong>2075 gain</strong>
-</table>
-
-<script type="text/javascript">
-<!--
-
- function da_Refresh() {
- var now= Date.now();
- debug('updating now='+now);
- for (var ageid in da_ages) {
- var oldage= da_ages[ageid];
- var el= document.getElementById(ageid);
- var age= oldage + (now - da_pageload) / 1000;
- var newhtml= age < 60 ? 'less than a minute' :
- age < 60*2 ? '1 minute' :
- age < 3600*2 ? Math.floor (age/60) +' minutes' :
- age < 86400*2 ? Math.floor (age/3600) + ' hours' :
- Math.floor (age/86400) + ' days';
-;
- el.innerHTML= newhtml;
- }
- }
- da_ages= {"da_1":173565,"da_0":173605};
- window.setInterval(da_Refresh, 10000);
- register_onload(da_Refresh);
-
-// -->
-</script>
-
-
-
-
-</form>
-
-
-<p>
-
-
-
-<script type="text/javascript">
-<!--
-
-function debug (m) {
-}
-
-// -->
-</script>
-
-
-<hr>
-<address>
-YARRG is Yet Another Revenue Research Gatherer, a project of the
-crew Special Circumstances on the Midnight Ocean
-and of the Sinister Greenend Organisation.
-<p>
-
-YARRG is Free Software.
-You may share and modify the code and the
-website, according to the terms of the GNU General Public Licence and
-the GNU Affero General Public Licence respectively (v3 or later).
-Note that there is <strong>NO WARRANTY</strong>.
-Please see the <a href="devel">YARRG Development webpage</a> for
-details of how to obtain the client and server code and full details
-of the licences.
-
-<p>
-YARRG is Copyright 2009 Ian Jackson, Clare Boothby, Steve Early.
-Yohoho and Puzzle Pirates are trademarks of Three Rings and are used
-without permission. YARRG is not endorsed or sponsored by Three
-Rings.
-
-</address>
-
-
-
% } # ========== OPTIMISATION ==========
+% if (!printable($m)) {
<h2>Contents</h2>
<ul>
% if ($optimise) {
<li><a href="#plan">Voyage trading plan</a>
<ul>
<li><a href="#summary">Summary statistics</a>
+ <li>Printable:
+ <input type=submit name=printable_pdf value="PDF">
+ <input type=submit name=printable_html value="HTML">
+ <input type=submit name=printable_ps value="PostScript">
</ul>
% }
<li><a href="#dataage">Data age summary</a>
<li><a href="#trades">Relevant trades</a>
</ul>
+% }
% if ($optimise) { # ========== TRADING PLAN ==========
%
%
% } # ========== TRADING PLAN ==========
-% {
+% if (!printable($m)) {
<h2><a name="dataage">Data age summary</a></h2>
<%perl>
my $sth_i= $dbh->prepare(<<END);
<&| query_age:agestable, now => $now, fetchrow => $fetchrow &>
Islands shown in reverse order of visits.<br>
</&>
+% } else {
+% my @tl= gmtime $now or die $!;
+<p>
+Generated by YARRG at <strong><%
+ sprintf "%04d-%02d-%02d %02d:%02d:%02d UTC",
+ $tl[5]+1900, @tl[4,3,2,1,0]
+ |h %></strong>.
+%#
% }
-% my %ts_sortkeys;
-% {
+% if (!printable($m)) {
+% my %ts_sortkeys;
+% {
% my $cdspan= $qa->{ShowStalls} ? ' colspan=2' : '';
% my $cdstall= $qa->{ShowStalls} ? '<th>Stall</th>' : '';
<h2><a name="trades">Relevant trades</a></h2>
<th>Capital
<th>Profit
% }
-% }
+% }
<tr id="trades_sort">
-% foreach my $col (@cols) {
+% foreach my $col (@cols) {
<th>
-% }
+% }
-% foreach my $flowix (0..$#flows) {
+% foreach my $flowix (0..$#flows) {
% my $flow= $flows[$flowix];
% my $rowid= "id_row_$flow->{UidShort}";
<tr id="<% $rowid %>" class="datarow<% $flowix & 1 %>">
%>><% exists $spec->{String} ? $spec->{String} : $v |h %>
% $ci += $spec->{Span};
% }
-% }
+% }
<tr id="trades_total">
<th>
<th colspan=2>Total
-% foreach my $ci (3..$#cols) {
+% foreach my $ci (3..$#cols) {
% my $col= $cols[$ci];
<td align=right>
% if (defined $col->{Total}) {
<% $col->{Total} |h %>
% }
-% }
+% }
</table>
<&| tabsort, cols => \@cols, table => 'trades', rowclass => 'datarow',
<input type=submit name=update value="Update">
+% } # !printable
+
<%init>
use CommodsWeb;
use Commods;
~yarrgweb / ypp-sc-tools.db-live.git / commitdiff