chiark / gitweb /
Trying Hunter but it failed
[ypp-sc-tools.db-live.git] / yarrg / web / profitable_trades
1 <HTML>
2 <HEAD>
3 <TITLE>test pirate page</TITLE>
4 </HEAD>
5 <BODY>
6
7 <html><head><title>Profitable trades</title></head><body>
8 <%perl>
9 my $sth=$dbh->prepare(
10     "SELECT commods.commodname,
11             sell_islands.islandname,sell_stalls.stallname,sell.price,sell.qty,
12             buy_islands.islandname,buy_stalls.stallname,buy.price,buy.qty
13      FROM commods
14      JOIN buy on commods.commodid=buy.commodid
15      JOIN sell on commods.commodid=sell.commodid
16      JOIN islands as buy_islands  on buy.islandid  = buy_islands.islandid
17      JOIN stalls  as buy_stalls   on buy.stallid   = buy_stalls.stallid
18      JOIN islands as sell_islands on sell.islandid = sell_islands.islandid
19      JOIN stalls  as sell_stalls  on sell.stallid  = sell_stalls.stallid
20      WHERE buy.islandid like '36' and sell.islandid like '5'
21      and buy.price > sell.price
22      ");
23
24 $sth->execute();
25 </%perl>
26 <& dumptable, sth => $sth &>
27
28 </BODY>
29 </HTML>
30
31 <%init>
32 use CommodsWeb;
33 my $dbh= dbw_connect('Midnight');
34 </%init>