Mercurial > hg > reproctool-df
annotate reproctool.cgi @ 4:4351c0bf33d4
Improving IGB formatting
author | Dominic Cleal <dominic@computerkb.co.uk> |
---|---|
date | Sat, 24 Jan 2009 17:35:31 +0000 |
parents | e640eb6cefc3 |
children | 42268fc087a9 |
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 | |
17 # Inputs | |
18 my $str_items = $cgi->param('items') or die('Items missing'); | |
19 my $cols = $cgi->param('cols') || 4; | |
20 | |
21 # Load mineral prices | |
22 my $trit = $cgi->param('trit') || die('No trit price'); | |
23 my $pyer = $cgi->param('pyer') || die('No pyer price'); | |
24 my $mexa = $cgi->param('mexa') || die('No mexa price'); | |
25 my $isog = $cgi->param('isog') || die('No isog price'); | |
26 my $nocx = $cgi->param('nocx') || die('No nocx price'); | |
27 my $zydr = $cgi->param('zydr') || die('No zydr price'); | |
28 my $mega = $cgi->param('mega') || die('No mega price'); | |
29 my $morp = $cgi->param('morp') || die('No morp price'); | |
30 | |
3
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
31 our @dbparams; |
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
32 require './dbparams.cgi'; |
1
c39512d94605
Adding dbparams config
Dominic Cleal <dominic@computerkb.co.uk>
parents:
0
diff
changeset
|
33 my $db = DBI->connect(@dbparams) |
0 | 34 or die("Database connection failure: $DBI::errstr"); |
35 | |
36 # Strip out line endings | |
37 $str_items =~ s/[\n\r]+//g; | |
38 | |
39 # If the items string contains the contract info too, strip it out | |
40 $str_items = $1 if ($str_items =~ /The container .+ contains the following items:(.+)/); | |
41 $str_items = $1 if ($str_items =~ /(.+)Are you sure you want to continue?/); | |
42 | |
43 # SQL lookup for reprocessing amounts | |
44 my $sql_reprocess = <<END; | |
45 SELECT | |
46 types.typeID, | |
47 types.typeName, | |
3
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
48 attrs.valueInt, -- metaLevel |
0 | 49 types.basePrice, |
50 graphics.icon, | |
3
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
51 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
|
52 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
|
53 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
|
54 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
|
55 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
|
56 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
|
57 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
|
58 SUM(CASE WHEN m1.requiredTypeID = 11399 THEN m1.quantity ELSE 0 END) -- [Morphite] |
0 | 59 FROM invTypes types |
60 INNER JOIN dgmTypeAttributes attrs ON types.typeID = attrs.typeID AND attrs.attributeID = 633 | |
61 INNER JOIN typeActivityMaterials m1 ON types.typeID = m1.typeID | |
62 INNER JOIN eveGraphics graphics ON types.graphicID = graphics.graphicID | |
63 WHERE types.typeName = ? | |
64 GROUP BY | |
65 types.typeID, | |
66 types.typeName, | |
67 attrs.valueInt, | |
68 types.basePrice | |
69 END | |
70 my $pre_reprocess = $db->prepare($sql_reprocess); | |
71 | |
72 my @output = (); | |
73 for my $sitem (split(/\s*,\s*/, $str_items)) | |
74 { | |
75 my ($tid, $tname, $meta, $basePrice, $icon, | |
3
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
76 $ttrit, $tpyer, $tmexa, $tisog, $tnocx, $tzydr, $tmega, $tmorp); |
0 | 77 |
78 $pre_reprocess->execute($sitem) or die("Can't lookup $sitem: $DBI::errstr"); | |
79 $pre_reprocess->bind_columns(undef, \$tid, \$tname, \$meta, \$basePrice, | |
3
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
80 \$icon, \$ttrit, \$tpyer, \$tmexa, \$tisog, |
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
81 \$tnocx, \$tzydr, \$tmega, \$tmorp); |
0 | 82 |
83 my $item = {}; | |
84 if ($pre_reprocess->fetch()) | |
85 { | |
86 my $isk = ($trit * $ttrit) + ($pyer * $tpyer) + ($mexa * $tmexa) + | |
87 ($isog * $tisog) + ($nocx * $tnocx) + ($zydr * $tzydr) + | |
3
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
88 ($mega * $tmega) + ($morp * $tmorp); |
0 | 89 |
3
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
90 $meta = 0 unless defined $meta; |
0 | 91 $item = { id => $tid, name => $tname, meta => $meta, icon => $icon, |
92 price => $basePrice, reprocess => $isk }; | |
93 } | |
94 push @output, $item; | |
95 } | |
96 | |
97 my $col = 0; | |
98 print<<END; | |
99 <html> | |
100 <head> | |
101 <style type="text/css"> | |
102 .meta4, .meta5, .meta6, .meta7, .meta8, .meta9 | |
103 { | |
104 border: 2px #FF0000 solid; | |
105 } | |
3
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
106 .item |
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
107 { |
4
4351c0bf33d4
Improving IGB formatting
Dominic Cleal <dominic@computerkb.co.uk>
parents:
3
diff
changeset
|
108 text-align: center; |
3
e640eb6cefc3
Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents:
1
diff
changeset
|
109 } |
0 | 110 </style> |
111 </head> | |
4
4351c0bf33d4
Improving IGB formatting
Dominic Cleal <dominic@computerkb.co.uk>
parents:
3
diff
changeset
|
112 |
0 | 113 <body> |
114 <table> | |
115 END | |
116 | |
117 for my $item (@output) | |
118 { | |
119 if ($col == $cols) | |
120 { | |
121 print "</tr><tr>\n"; | |
122 $col = 0; | |
123 } | |
124 | |
125 my ($style, $img, $text); | |
126 | |
127 if (defined $item->{id}) | |
128 { | |
129 $style = "meta$item->{meta}"; | |
130 $img = "icons/icons_items_png/64_64/icon$item->{icon}.png"; | |
131 if ($item->{meta} == 4) | |
132 { | |
133 $text = $item->{name}; | |
134 } | |
135 else | |
136 { | |
137 $text = $item->{reprocess}; | |
138 } | |
139 } | |
140 else | |
141 { | |
142 $text = 'Unknown item'; | |
143 $img = "icons/icons_items_png/64_64/icon07_15.png"; | |
144 } | |
145 | |
4
4351c0bf33d4
Improving IGB formatting
Dominic Cleal <dominic@computerkb.co.uk>
parents:
3
diff
changeset
|
146 print "<td width='64' class='item $style'>"; |
4351c0bf33d4
Improving IGB formatting
Dominic Cleal <dominic@computerkb.co.uk>
parents:
3
diff
changeset
|
147 print "<img src='$img_http_path/$img' width='64' height='64' border='1' alt='$item->{name}' /><br />$text"; |
0 | 148 print "</td>\n"; |
149 | |
150 $col++; | |
151 } | |
152 | |
153 print<<END; | |
154 </tr> | |
155 </table> | |
156 </body> | |
157 </html> | |
158 END | |
159 |