Mercurial > hg > reproctool-df

annotate reproctool.cgi @ 15:50d8619bce32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Improving mineral errors
author Dominic Cleal <dominic@computerkb.co.uk>
date Sun, 25 Jan 2009 14:11:12 +0000
parents 9b8670ac1bcc
children 257e748cd08e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
1 #!/usr/bin/perl -T
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
2
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
3 use warnings;
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
4 use strict;
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
5
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
6 use CGI;
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
7 use DBI;
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
8
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
9 # Settings
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
10 my $img_http_path = '/itemimgs';
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
11
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
12 my $cgi = new CGI;
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
13 print $cgi->header(-type => 'text/html',
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
14 -pragma => 'no-cache',
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
15 -expires => '-365d');
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
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>
13
135adaf0eed2 Colour!
Dominic Cleal <dominic@computerkb.co.uk>
parents: 12
diff changeset
22 <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
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
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
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
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
29 my $cols = $cgi->param('cols') || 4;
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
30
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
31 # Load mineral prices
15
50d8619bce32 Improving mineral errors
Dominic Cleal <dominic@computerkb.co.uk>
parents: 14
diff changeset
32 my $trit = $cgi->param('trit') || user_error('No tritanium price');
50d8619bce32 Improving mineral errors
Dominic Cleal <dominic@computerkb.co.uk>
parents: 14
diff changeset
33 my $pyer = $cgi->param('pyer') || user_error('No pyerite price');
50d8619bce32 Improving mineral errors
Dominic Cleal <dominic@computerkb.co.uk>
parents: 14
diff changeset
34 my $mexa = $cgi->param('mexa') || user_error('No mexallon price');
50d8619bce32 Improving mineral errors
Dominic Cleal <dominic@computerkb.co.uk>
parents: 14
diff changeset
35 my $isog = $cgi->param('isog') || user_error('No isogen price');
50d8619bce32 Improving mineral errors
Dominic Cleal <dominic@computerkb.co.uk>
parents: 14
diff changeset
36 my $nocx = $cgi->param('nocx') || user_error('No nocxium price');
50d8619bce32 Improving mineral errors
Dominic Cleal <dominic@computerkb.co.uk>
parents: 14
diff changeset
37 my $zydr = $cgi->param('zydr') || user_error('No zydrine price');
50d8619bce32 Improving mineral errors
Dominic Cleal <dominic@computerkb.co.uk>
parents: 14
diff changeset
38 my $mega = $cgi->param('mega') || user_error('No megacyte price');
50d8619bce32 Improving mineral errors
Dominic Cleal <dominic@computerkb.co.uk>
parents: 14
diff changeset
39 my $morp = $cgi->param('morp') || user_error('No morphite price');
0
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
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
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
44 or die("Database connection failure: $DBI::errstr");
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
45
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
46 # Strip out line endings
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
47 $str_items =~ s/[\n\r]+//g;
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
48
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
49 # If the items string contains the contract info too, strip it out
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
50 $str_items = $1 if ($str_items =~ /The container .+ contains the following items:(.+)/);
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
51 $str_items = $1 if ($str_items =~ /(.+)Are you sure you want to continue?/);
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
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
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
60 # SQL lookup for reprocessing amounts
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
61 my $sql_reprocess = <<END;
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
62 SELECT
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
63 types.typeID,
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
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
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
67 types.basePrice,
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
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
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
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
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
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
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
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
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
85 END
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
86 my $pre_reprocess = $db->prepare($sql_reprocess);
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
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
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
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
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
99 {
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
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
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
113 }
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
114
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
115 my $col = 0;
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
116 print<<END;
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
117 <html>
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
118 <head>
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
119 <style type="text/css">
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
120 .meta4, .meta5, .meta6, .meta7, .meta8, .meta9
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
121 {
5
42268fc087a9 Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents: 4
diff changeset
122 color: #FF0000;
0
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
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
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
128 </style>
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
129 </head>
4
4351c0bf33d4 Improving IGB formatting
Dominic Cleal <dominic@computerkb.co.uk>
parents: 3
diff changeset
130
0
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
131 <body>
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
132 <table>
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
133 END
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
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
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
137 for my $item (@output)
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
138 {
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
139 if ($col == $cols)
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
140 {
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
141 print "</tr><tr>\n";
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
142 $col = 0;
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
143 }
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
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
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
146
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
147 if (defined $item->{id})
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
148 {
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
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
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
160 if ($item->{meta} == 4)
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
161 {
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
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
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
164 }
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
165 else
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
166 {
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
167 $text = $item->{reprocess};
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
168 }
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
169 }
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
170 else
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
171 {
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
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
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
174 }
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
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;
14
9b8670ac1bcc Adding title attr to images
Dominic Cleal <dominic@computerkb.co.uk>
parents: 13
diff changeset
178 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
179 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
180 print "</a>" if defined $link;
42268fc087a9 Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents: 4
diff changeset
181 print "<br />";
42268fc087a9 Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents: 4
diff changeset
182 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
183 print $text;
42268fc087a9 Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents: 4
diff changeset
184 print "</font>" if defined $colour;
0
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
185 print "</td>\n";
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
186
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
187 $col++;
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
188 }
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
189
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
190 print<<END;
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
191 </tr>
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
192 </table>
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
193 </body>
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
194 </html>
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
195 END
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
196