Mercurial > hg > reproctool-df
annotate reproctool.cgi @ 16:257e748cd08e
Merging -df
author | Dominic Cleal <dominic@computerkb.co.uk> |
---|---|
date | Sun, 25 Jan 2009 14:46:32 +0000 |
parents | 50d8619bce32 ccd5e74fa58e |
children | a79168f03fc4 |
rev | line source |
---|---|
0 | 1 #!/usr/bin/perl -T |
2 | |
3 use warnings; | |
4 use strict; | |
5 | |
6 use CGI; | |
7 use DBI; | |
8
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
8 use XML::DOM; |
0 | 9 |
10 # Settings | |
11 my $img_http_path = '/itemimgs'; | |
12 | |
13 my $cgi = new CGI; | |
14 print $cgi->header(-type => 'text/html', | |
15 -pragma => 'no-cache', | |
16 -expires => '-365d'); | |
17 | |
12
6d5296efb9ef
Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents:
11
diff
changeset
|
18 sub user_error |
6d5296efb9ef
Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents:
11
diff
changeset
|
19 { |
6d5296efb9ef
Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents:
11
diff
changeset
|
20 my $text = shift; |
6d5296efb9ef
Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents:
11
diff
changeset
|
21 print<<END; |
6d5296efb9ef
Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents:
11
diff
changeset
|
22 <html><head><title>Error</title></head> |
13 | 23 <body><font color="#FF0000"><b>Error:</b></font> $text</body></html> |
12
6d5296efb9ef
Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents:
11
diff
changeset
|
24 END |
6d5296efb9ef
Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents:
11
diff
changeset
|
25 exit; |
6d5296efb9ef
Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents:
11
diff
changeset
|
26 } |
6d5296efb9ef
Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents:
11
diff
changeset
|
27 |
8
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
28 # Generate the first page, where eve-central mineral prices are prefilled. |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
29 # TODO: depending on the traffic, cache these eve-central prices. |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
30 my $str_items; |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
31 if (! ($str_items = $cgi->param('items')) ) |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
32 { |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
33 my $min; |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
34 my $eveCentralURL = 'http://eve-central.com/api/evemon'; |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
35 my $xmlParser = XML::DOM::Parser->new(); |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
36 my $xmlDoc = $xmlParser->parsefile($eveCentralURL); |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
37 |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
38 # What evenutally will be printed. |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
39 my $inputPage = <<END; |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
40 <html> |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
41 <body> |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
42 |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
43 <form action="/cgi-bin/reproctool/reproctool.cgi" method="post"> |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
44 <textarea rows="5" cols="80" name="items"></textarea> |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
45 <table border="0" cellspacing="4"> |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
46 <tr> |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
47 END |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
48 # Lists the name of the minerals. |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
49 foreach $min ($xmlDoc->getElementsByTagName('mineral')) |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
50 { |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
51 $inputPage .= sprintf( " <td>%s</td>\n", |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
52 $min->getElementsByTagName('name')->item(0)->getFirstChild->getNodeValue ); |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
53 } |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
54 |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
55 $inputPage .= <<END; |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
56 </tr> |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
57 <tr> |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
58 END |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
59 foreach $min ($xmlDoc->getElementsByTagName('mineral')) |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
60 { |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
61 $inputPage .= sprintf( " <td><input type=\"text\" name=\"%s\" size=\"5\" value=\"%.2f\" /></td>\n", |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
62 $min->getElementsByTagName('name')->item(0)->getFirstChild->getNodeValue, |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
63 $min->getElementsByTagName('price')->item(0)->getFirstChild->getNodeValue ); |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
64 } |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
65 |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
66 $inputPage .= <<END; |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
67 </tr> |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
68 </table> |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
69 <input type="submit" /> |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
70 </form> |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
71 |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
72 </body> |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
73 </html> |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
74 END |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
75 |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
76 print $inputPage; |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
77 exit 0; |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
78 } |
ccd5e74fa58e
Untested xml import of prices from evecentral. solution is a dead end, as the rammsrdi.com dont support dom xlm.
df
parents:
7
diff
changeset
|
79 |
0 | 80 # Inputs |
12
6d5296efb9ef
Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents:
11
diff
changeset
|
81 my $str_items = $cgi->param('items') or user_error('Items missing'); |
0 | 82 my $cols = $cgi->param('cols') || 4; |
83 | |
84 # Load mineral prices | |
15
50d8619bce32
Improving mineral errors
Dominic Cleal <dominic@computerkb.co.uk>
parents:
14
diff
changeset
|
85 my $trit = $cgi->param('trit') || user_error('No tritanium price'); |
50d8619bce32
Improving mineral errors
Dominic Cleal <dominic@computerkb.co.uk>
parents:
14
diff
changeset
|
86 my $pyer = $cgi->param('pyer') || user_error('No pyerite price'); |
50d8619bce32
Improving mineral errors
Dominic Cleal <dominic@computerkb.co.uk>
parents:
14
diff
changeset
|
87 my $mexa = $cgi->param('mexa') || user_error('No mexallon price'); |
50d8619bce32
Improving mineral errors
Dominic Cleal <dominic@computerkb.co.uk>
parents:
14
diff
changeset
|
88 my $isog = $cgi->param('isog') || user_error('No isogen price'); |
50d8619bce32
Improving mineral errors
Dominic Cleal <dominic@computerkb.co.uk>
parents:
14
diff
changeset
|
89 my $nocx = $cgi->param('nocx') || user_error('No nocxium price'); |
50d8619bce32
Improving mineral errors
Dominic Cleal <dominic@computerkb.co.uk>
parents:
14
diff
changeset
|
90 my $zydr = $cgi->param('zydr') || user_error('No zydrine price'); |
50d8619bce32
Improving mineral errors
Dominic Cleal <dominic@computerkb.co.uk>
parents:
14
diff
changeset
|
91 my $mega = $cgi->param('mega') || user_error('No megacyte price'); |
50d8619bce32
Improving mineral errors
Dominic Cleal <dominic@computerkb.co.uk>
parents:
14
diff
changeset
|
92 my $morp = $cgi->param('morp') || user_error('No morphite price'); |
0 | 93 |
3
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
94 our @dbparams; |
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
95 require './dbparams.cgi'; |
1
c39512d94605
Adding dbparams config
Dominic Cleal <dominic@computerkb.co.uk>
parents:
0
diff
changeset
|
96 my $db = DBI->connect(@dbparams) |
0 | 97 or die("Database connection failure: $DBI::errstr"); |
98 | |
99 # Strip out line endings | |
100 $str_items =~ s/[\n\r]+//g; | |
101 | |
102 # If the items string contains the contract info too, strip it out | |
103 $str_items = $1 if ($str_items =~ /The container .+ contains the following items:(.+)/); | |
104 $str_items = $1 if ($str_items =~ /(.+)Are you sure you want to continue?/); | |
105 | |
9
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
106 my @item_names = split(/\s*,\s*/, $str_items); |
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
107 |
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
108 # SQL fragment to match all items |
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
109 my $sql_typenames = ''; |
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
110 $sql_typenames = 'types.typeName = ?' if ($#item_names >= 0); |
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
111 $sql_typenames .= " OR types.typeName = ?" foreach (1..$#item_names); |
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
112 |
0 | 113 # SQL lookup for reprocessing amounts |
114 my $sql_reprocess = <<END; | |
115 SELECT | |
116 types.typeID, | |
117 types.typeName, | |
9
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
118 groups.groupName, |
3
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
119 attrs.valueInt, -- metaLevel |
0 | 120 types.basePrice, |
121 graphics.icon, | |
3
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
122 SUM(CASE WHEN m1.requiredTypeID = 34 THEN m1.quantity ELSE 0 END), -- [Tritanium] |
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
123 SUM(CASE WHEN m1.requiredTypeID = 35 THEN m1.quantity ELSE 0 END), -- [Pyerite] |
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
124 SUM(CASE WHEN m1.requiredTypeID = 36 THEN m1.quantity ELSE 0 END), -- [Mexallon] |
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
125 SUM(CASE WHEN m1.requiredTypeID = 37 THEN m1.quantity ELSE 0 END), -- [Isogen] |
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
126 SUM(CASE WHEN m1.requiredTypeID = 38 THEN m1.quantity ELSE 0 END), -- [Nocxium] |
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
127 SUM(CASE WHEN m1.requiredTypeID = 39 THEN m1.quantity ELSE 0 END), -- [Zydrine] |
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
128 SUM(CASE WHEN m1.requiredTypeID = 40 THEN m1.quantity ELSE 0 END), -- [Megacyte] |
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
129 SUM(CASE WHEN m1.requiredTypeID = 11399 THEN m1.quantity ELSE 0 END) -- [Morphite] |
0 | 130 FROM invTypes types |
11
f749981ad862
Fixes items with no metalevel attribute, improves sorting
Dominic Cleal <dominic@computerkb.co.uk>
parents:
10
diff
changeset
|
131 LEFT JOIN dgmTypeAttributes attrs ON types.typeID = attrs.typeID AND attrs.attributeID = 633 |
0 | 132 INNER JOIN typeActivityMaterials m1 ON types.typeID = m1.typeID |
9
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
133 INNER JOIN invGroups groups ON types.groupID = groups.groupID |
0 | 134 INNER JOIN eveGraphics graphics ON types.graphicID = graphics.graphicID |
9
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
135 WHERE $sql_typenames |
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
136 GROUP BY types.typeID |
11
f749981ad862
Fixes items with no metalevel attribute, improves sorting
Dominic Cleal <dominic@computerkb.co.uk>
parents:
10
diff
changeset
|
137 ORDER BY groups.categoryID DESC, groupName ASC, typeName ASC |
0 | 138 END |
139 my $pre_reprocess = $db->prepare($sql_reprocess); | |
140 | |
9
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
141 # Execute, bring back one row per item |
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
142 my ($tid, $tname, $gname, $meta, $basePrice, $icon, |
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
143 $ttrit, $tpyer, $tmexa, $tisog, $tnocx, $tzydr, $tmega, $tmorp); |
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
144 |
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
145 $pre_reprocess->execute(@item_names) or die("Can't lookup items: $DBI::errstr"); |
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
146 $pre_reprocess->bind_columns(undef, \$tid, \$tname, \$gname, \$meta, \$basePrice, |
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
147 \$icon, \$ttrit, \$tpyer, \$tmexa, \$tisog, |
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
148 \$tnocx, \$tzydr, \$tmega, \$tmorp); |
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
149 |
0 | 150 my @output = (); |
9
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
151 while ($pre_reprocess->fetch()) |
0 | 152 { |
153 my $item = {}; | |
9
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
154 my $isk = ($trit * $ttrit) + ($pyer * $tpyer) + ($mexa * $tmexa) + |
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
155 ($isog * $tisog) + ($nocx * $tnocx) + ($zydr * $tzydr) + |
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
156 ($mega * $tmega) + ($morp * $tmorp); |
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
157 |
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
158 $meta = 0 unless defined $meta; |
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
159 $item = { id => $tid, name => $tname, meta => $meta, icon => $icon, |
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
160 price => $basePrice, reprocess => $isk }; |
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
161 |
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
162 # If this item exists multiple times in the input, then they weren't stacked |
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
163 # so output it multiple times |
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
164 my @matching_in = grep({ $_ eq $tname } @item_names); |
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
165 push @output, $item foreach (0..$#matching_in); |
0 | 166 } |
167 | |
168 my $col = 0; | |
169 print<<END; | |
170 <html> | |
171 <head> | |
172 <style type="text/css"> | |
173 .meta4, .meta5, .meta6, .meta7, .meta8, .meta9 | |
174 { | |
5
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
175 color: #FF0000; |
0 | 176 } |
3
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
177 .item |
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
178 { |
4
4351c0bf33d4
Improving IGB formatting
Dominic Cleal <dominic@computerkb.co.uk>
parents:
3
diff
changeset
|
179 text-align: center; |
3
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
180 } |
0 | 181 </style> |
182 </head> | |
4
4351c0bf33d4
Improving IGB formatting
Dominic Cleal <dominic@computerkb.co.uk>
parents:
3
diff
changeset
|
183 |
0 | 184 <body> |
185 <table> | |
186 END | |
187 | |
10
de10d02dc715
Using item images for non-IGB browsers
Dominic Cleal <dominic@computerkb.co.uk>
parents:
9
diff
changeset
|
188 my $igb = ($ENV{HTTP_USER_AGENT} =~ /EVE-minibrowser/i); |
de10d02dc715
Using item images for non-IGB browsers
Dominic Cleal <dominic@computerkb.co.uk>
parents:
9
diff
changeset
|
189 |
0 | 190 for my $item (@output) |
191 { | |
192 if ($col == $cols) | |
193 { | |
194 print "</tr><tr>\n"; | |
195 $col = 0; | |
196 } | |
197 | |
5
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
198 my ($style, $img, $text, $link, $colour); |
0 | 199 |
200 if (defined $item->{id}) | |
201 { | |
202 $style = "meta$item->{meta}"; | |
10
de10d02dc715
Using item images for non-IGB browsers
Dominic Cleal <dominic@computerkb.co.uk>
parents:
9
diff
changeset
|
203 if ($igb) |
de10d02dc715
Using item images for non-IGB browsers
Dominic Cleal <dominic@computerkb.co.uk>
parents:
9
diff
changeset
|
204 { |
de10d02dc715
Using item images for non-IGB browsers
Dominic Cleal <dominic@computerkb.co.uk>
parents:
9
diff
changeset
|
205 $img = "typeicon:$item->{id}"; |
de10d02dc715
Using item images for non-IGB browsers
Dominic Cleal <dominic@computerkb.co.uk>
parents:
9
diff
changeset
|
206 $link = "showinfo:$item->{id}"; |
de10d02dc715
Using item images for non-IGB browsers
Dominic Cleal <dominic@computerkb.co.uk>
parents:
9
diff
changeset
|
207 } |
de10d02dc715
Using item images for non-IGB browsers
Dominic Cleal <dominic@computerkb.co.uk>
parents:
9
diff
changeset
|
208 else |
de10d02dc715
Using item images for non-IGB browsers
Dominic Cleal <dominic@computerkb.co.uk>
parents:
9
diff
changeset
|
209 { |
de10d02dc715
Using item images for non-IGB browsers
Dominic Cleal <dominic@computerkb.co.uk>
parents:
9
diff
changeset
|
210 $img = "$img_http_path/icons/icons_items_png/64_64/icon$item->{icon}.png"; |
de10d02dc715
Using item images for non-IGB browsers
Dominic Cleal <dominic@computerkb.co.uk>
parents:
9
diff
changeset
|
211 } |
de10d02dc715
Using item images for non-IGB browsers
Dominic Cleal <dominic@computerkb.co.uk>
parents:
9
diff
changeset
|
212 |
0 | 213 if ($item->{meta} == 4) |
214 { | |
215 $text = $item->{name}; | |
5
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
216 $colour = "#FF0000"; |
0 | 217 } |
218 else | |
219 { | |
220 $text = $item->{reprocess}; | |
221 } | |
222 } | |
223 else | |
224 { | |
225 $text = 'Unknown item'; | |
5
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
226 $img = "typeicon:07_15"; |
0 | 227 } |
228 | |
5
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
229 print "<td width='64' class='item'>"; |
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
230 print "<a href='$link'>" if defined $link; |
14
9b8670ac1bcc
Adding title attr to images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
13
diff
changeset
|
231 print "<img src='$img' width='64' height='64' border='1' "; |
9b8670ac1bcc
Adding title attr to images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
13
diff
changeset
|
232 print "title=\"$item->{name}\" alt=\"$item->{name}\" />"; |
5
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
233 print "</a>" if defined $link; |
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
234 print "<br />"; |
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
235 print "<font color='$colour'>" if defined $colour; |
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
236 print $text; |
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
237 print "</font>" if defined $colour; |
0 | 238 print "</td>\n"; |
239 | |
240 $col++; | |
241 } | |
242 | |
243 print<<END; | |
244 </tr> | |
245 </table> | |
246 </body> | |
247 </html> | |
248 END | |
249 |