Mercurial > hg > reproctool-df
annotate reproctool.cgi @ 12:6d5296efb9ef
Shows user-errors to output, not dying
author | Dominic Cleal <dominic@computerkb.co.uk> |
---|---|
date | Sun, 25 Jan 2009 13:36:31 +0000 |
parents | f749981ad862 |
children | 135adaf0eed2 |
rev | line source |
---|---|
0 | 1 #!/usr/bin/perl -T |
2 | |
3 use warnings; | |
4 use strict; | |
5 | |
6 use CGI; | |
7 use DBI; | |
8 | |
9 # Settings | |
10 my $img_http_path = '/itemimgs'; | |
11 | |
12 my $cgi = new CGI; | |
13 print $cgi->header(-type => 'text/html', | |
14 -pragma => 'no-cache', | |
15 -expires => '-365d'); | |
16 | |
12
6d5296efb9ef
Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents:
11
diff
changeset
|
17 sub user_error |
6d5296efb9ef
Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents:
11
diff
changeset
|
18 { |
6d5296efb9ef
Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents:
11
diff
changeset
|
19 my $text = shift; |
6d5296efb9ef
Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents:
11
diff
changeset
|
20 print<<END; |
6d5296efb9ef
Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents:
11
diff
changeset
|
21 <html><head><title>Error</title></head> |
6d5296efb9ef
Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents:
11
diff
changeset
|
22 <body><font colour="#FF0000"><b>Error:</b></font> $text</body></html> |
6d5296efb9ef
Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents:
11
diff
changeset
|
23 END |
6d5296efb9ef
Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents:
11
diff
changeset
|
24 exit; |
6d5296efb9ef
Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents:
11
diff
changeset
|
25 } |
6d5296efb9ef
Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents:
11
diff
changeset
|
26 |
0 | 27 # Inputs |
12
6d5296efb9ef
Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents:
11
diff
changeset
|
28 my $str_items = $cgi->param('items') or user_error('Items missing'); |
0 | 29 my $cols = $cgi->param('cols') || 4; |
30 | |
31 # Load mineral prices | |
12
6d5296efb9ef
Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents:
11
diff
changeset
|
32 my $trit = $cgi->param('trit') || user_error('No trit price'); |
6d5296efb9ef
Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents:
11
diff
changeset
|
33 my $pyer = $cgi->param('pyer') || user_error('No pyer price'); |
6d5296efb9ef
Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents:
11
diff
changeset
|
34 my $mexa = $cgi->param('mexa') || user_error('No mexa price'); |
6d5296efb9ef
Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents:
11
diff
changeset
|
35 my $isog = $cgi->param('isog') || user_error('No isog price'); |
6d5296efb9ef
Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents:
11
diff
changeset
|
36 my $nocx = $cgi->param('nocx') || user_error('No nocx price'); |
6d5296efb9ef
Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents:
11
diff
changeset
|
37 my $zydr = $cgi->param('zydr') || user_error('No zydr price'); |
6d5296efb9ef
Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents:
11
diff
changeset
|
38 my $mega = $cgi->param('mega') || user_error('No mega price'); |
6d5296efb9ef
Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents:
11
diff
changeset
|
39 my $morp = $cgi->param('morp') || user_error('No morp price'); |
0 | 40 |
3
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
41 our @dbparams; |
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
42 require './dbparams.cgi'; |
1
c39512d94605
Adding dbparams config
Dominic Cleal <dominic@computerkb.co.uk>
parents:
0
diff
changeset
|
43 my $db = DBI->connect(@dbparams) |
0 | 44 or die("Database connection failure: $DBI::errstr"); |
45 | |
46 # Strip out line endings | |
47 $str_items =~ s/[\n\r]+//g; | |
48 | |
49 # If the items string contains the contract info too, strip it out | |
50 $str_items = $1 if ($str_items =~ /The container .+ contains the following items:(.+)/); | |
51 $str_items = $1 if ($str_items =~ /(.+)Are you sure you want to continue?/); | |
52 | |
9
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
53 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
|
54 |
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
55 # 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
|
56 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
|
57 $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
|
58 $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
|
59 |
0 | 60 # SQL lookup for reprocessing amounts |
61 my $sql_reprocess = <<END; | |
62 SELECT | |
63 types.typeID, | |
64 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
|
65 groups.groupName, |
3
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
66 attrs.valueInt, -- metaLevel |
0 | 67 types.basePrice, |
68 graphics.icon, | |
3
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
69 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
|
70 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
|
71 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
|
72 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
|
73 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
|
74 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
|
75 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
|
76 SUM(CASE WHEN m1.requiredTypeID = 11399 THEN m1.quantity ELSE 0 END) -- [Morphite] |
0 | 77 FROM invTypes types |
11
f749981ad862
Fixes items with no metalevel attribute, improves sorting
Dominic Cleal <dominic@computerkb.co.uk>
parents:
10
diff
changeset
|
78 LEFT JOIN dgmTypeAttributes attrs ON types.typeID = attrs.typeID AND attrs.attributeID = 633 |
0 | 79 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
|
80 INNER JOIN invGroups groups ON types.groupID = groups.groupID |
0 | 81 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
|
82 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
|
83 GROUP BY types.typeID |
11
f749981ad862
Fixes items with no metalevel attribute, improves sorting
Dominic Cleal <dominic@computerkb.co.uk>
parents:
10
diff
changeset
|
84 ORDER BY groups.categoryID DESC, groupName ASC, typeName ASC |
0 | 85 END |
86 my $pre_reprocess = $db->prepare($sql_reprocess); | |
87 | |
9
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
88 # 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
|
89 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
|
90 $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
|
91 |
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
92 $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
|
93 $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
|
94 \$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
|
95 \$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
|
96 |
0 | 97 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
|
98 while ($pre_reprocess->fetch()) |
0 | 99 { |
100 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
|
101 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
|
102 ($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
|
103 ($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
|
104 |
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
105 $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
|
106 $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
|
107 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
|
108 |
6b98a17fbe22
Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents:
7
diff
changeset
|
109 # 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
|
110 # 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
|
111 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
|
112 push @output, $item foreach (0..$#matching_in); |
0 | 113 } |
114 | |
115 my $col = 0; | |
116 print<<END; | |
117 <html> | |
118 <head> | |
119 <style type="text/css"> | |
120 .meta4, .meta5, .meta6, .meta7, .meta8, .meta9 | |
121 { | |
5
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
122 color: #FF0000; |
0 | 123 } |
3
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
124 .item |
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
125 { |
4
4351c0bf33d4
Improving IGB formatting
Dominic Cleal <dominic@computerkb.co.uk>
parents:
3
diff
changeset
|
126 text-align: center; |
3
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
127 } |
0 | 128 </style> |
129 </head> | |
4
4351c0bf33d4
Improving IGB formatting
Dominic Cleal <dominic@computerkb.co.uk>
parents:
3
diff
changeset
|
130 |
0 | 131 <body> |
132 <table> | |
133 END | |
134 | |
10
de10d02dc715
Using item images for non-IGB browsers
Dominic Cleal <dominic@computerkb.co.uk>
parents:
9
diff
changeset
|
135 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
|
136 |
0 | 137 for my $item (@output) |
138 { | |
139 if ($col == $cols) | |
140 { | |
141 print "</tr><tr>\n"; | |
142 $col = 0; | |
143 } | |
144 | |
5
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
145 my ($style, $img, $text, $link, $colour); |
0 | 146 |
147 if (defined $item->{id}) | |
148 { | |
149 $style = "meta$item->{meta}"; | |
10
de10d02dc715
Using item images for non-IGB browsers
Dominic Cleal <dominic@computerkb.co.uk>
parents:
9
diff
changeset
|
150 if ($igb) |
de10d02dc715
Using item images for non-IGB browsers
Dominic Cleal <dominic@computerkb.co.uk>
parents:
9
diff
changeset
|
151 { |
de10d02dc715
Using item images for non-IGB browsers
Dominic Cleal <dominic@computerkb.co.uk>
parents:
9
diff
changeset
|
152 $img = "typeicon:$item->{id}"; |
de10d02dc715
Using item images for non-IGB browsers
Dominic Cleal <dominic@computerkb.co.uk>
parents:
9
diff
changeset
|
153 $link = "showinfo:$item->{id}"; |
de10d02dc715
Using item images for non-IGB browsers
Dominic Cleal <dominic@computerkb.co.uk>
parents:
9
diff
changeset
|
154 } |
de10d02dc715
Using item images for non-IGB browsers
Dominic Cleal <dominic@computerkb.co.uk>
parents:
9
diff
changeset
|
155 else |
de10d02dc715
Using item images for non-IGB browsers
Dominic Cleal <dominic@computerkb.co.uk>
parents:
9
diff
changeset
|
156 { |
de10d02dc715
Using item images for non-IGB browsers
Dominic Cleal <dominic@computerkb.co.uk>
parents:
9
diff
changeset
|
157 $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
|
158 } |
de10d02dc715
Using item images for non-IGB browsers
Dominic Cleal <dominic@computerkb.co.uk>
parents:
9
diff
changeset
|
159 |
0 | 160 if ($item->{meta} == 4) |
161 { | |
162 $text = $item->{name}; | |
5
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
163 $colour = "#FF0000"; |
0 | 164 } |
165 else | |
166 { | |
167 $text = $item->{reprocess}; | |
168 } | |
169 } | |
170 else | |
171 { | |
172 $text = 'Unknown item'; | |
5
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
173 $img = "typeicon:07_15"; |
0 | 174 } |
175 | |
5
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
176 print "<td width='64' class='item'>"; |
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
177 print "<a href='$link'>" if defined $link; |
7
e30154411e63
Even a more cheapy solution, but like this we re at least not changing db data to fit it to the IGB
df
parents:
6
diff
changeset
|
178 print "<img src='$img' width='64' height='64' border='1' alt=\"$item->{name}\" />"; |
5
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
179 print "</a>" if defined $link; |
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
180 print "<br />"; |
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
181 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
|
182 print $text; |
42268fc087a9
Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents:
4
diff
changeset
|
183 print "</font>" if defined $colour; |
0 | 184 print "</td>\n"; |
185 | |
186 $col++; | |
187 } | |
188 | |
189 print<<END; | |
190 </tr> | |
191 </table> | |
192 </body> | |
193 </html> | |
194 END | |
195 |