annotate reproctool.cgi @ 47:964393fff57e

Case insensitive sorting to match game
author Dominic Cleal <dominic@computerkb.co.uk>
date Wed, 28 Jan 2009 16:43:51 +0000
parents 783d0f954927
children 9c55ad1214ee
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
32
583e4c324c24 Adding file copyright
Dominic Cleal <dominic@computerkb.co.uk>
parents: 30
diff changeset
2 #
583e4c324c24 Adding file copyright
Dominic Cleal <dominic@computerkb.co.uk>
parents: 30
diff changeset
3 # CGI script for assessing reprocessing value of items in EVE-Online based
583e4c324c24 Adding file copyright
Dominic Cleal <dominic@computerkb.co.uk>
parents: 30
diff changeset
4 # on mineral prices.
583e4c324c24 Adding file copyright
Dominic Cleal <dominic@computerkb.co.uk>
parents: 30
diff changeset
5 #
583e4c324c24 Adding file copyright
Dominic Cleal <dominic@computerkb.co.uk>
parents: 30
diff changeset
6 # Released under the revised BSD licence
583e4c324c24 Adding file copyright
Dominic Cleal <dominic@computerkb.co.uk>
parents: 30
diff changeset
7 # Copyright (c) 2009 Dominic Cleal
583e4c324c24 Adding file copyright
Dominic Cleal <dominic@computerkb.co.uk>
parents: 30
diff changeset
8 # Portions copyright (c) 2009 Bjorn Hamels
0
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
9
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
10 use warnings;
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
11 use strict;
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
12
22
66a63068fb23 Cleaned up the styles and added colour s on meta level .... the happy colour show.
df
parents: 21
diff changeset
13 use Switch;
0
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
14 use CGI;
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
15 use DBI;
17
a79168f03fc4 Replacing XML::DOM with LWP and regex, tidying code
Dominic Cleal <dominic@computerkb.co.uk>
parents: 16
diff changeset
16 use LWP::UserAgent;
25
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
17 use Storable qw/store_fd fd_retrieve/;
0
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
18
27
789877ff0e1a Changing dbparams to contain all settings
Dominic Cleal <dominic@computerkb.co.uk>
parents: 26
diff changeset
19 # Settings from params.cgi
789877ff0e1a Changing dbparams to contain all settings
Dominic Cleal <dominic@computerkb.co.uk>
parents: 26
diff changeset
20 our (@dbparams, $img_http_path, $eve_central_url,
789877ff0e1a Changing dbparams to contain all settings
Dominic Cleal <dominic@computerkb.co.uk>
parents: 26
diff changeset
21 $marks_cache, $marks_cache_expiry);
0
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
22
27
789877ff0e1a Changing dbparams to contain all settings
Dominic Cleal <dominic@computerkb.co.uk>
parents: 26
diff changeset
23 $img_http_path = '/itemimgs';
789877ff0e1a Changing dbparams to contain all settings
Dominic Cleal <dominic@computerkb.co.uk>
parents: 26
diff changeset
24 $eve_central_url = 'http://eve-central.com/api/evemon';
789877ff0e1a Changing dbparams to contain all settings
Dominic Cleal <dominic@computerkb.co.uk>
parents: 26
diff changeset
25 $marks_cache = 'minerals.cache';
789877ff0e1a Changing dbparams to contain all settings
Dominic Cleal <dominic@computerkb.co.uk>
parents: 26
diff changeset
26 $marks_cache_expiry = 4 * 60 * 60; # 4 hours
789877ff0e1a Changing dbparams to contain all settings
Dominic Cleal <dominic@computerkb.co.uk>
parents: 26
diff changeset
27
789877ff0e1a Changing dbparams to contain all settings
Dominic Cleal <dominic@computerkb.co.uk>
parents: 26
diff changeset
28 require './params.cgi';
789877ff0e1a Changing dbparams to contain all settings
Dominic Cleal <dominic@computerkb.co.uk>
parents: 26
diff changeset
29
789877ff0e1a Changing dbparams to contain all settings
Dominic Cleal <dominic@computerkb.co.uk>
parents: 26
diff changeset
30 # Begin script
0
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
31 my $cgi = new CGI;
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
32 print $cgi->header(-type => 'text/html',
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
33 -pragma => 'no-cache',
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
34 -expires => '-365d');
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
35
12
6d5296efb9ef Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents: 11
diff changeset
36 sub user_error
6d5296efb9ef Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents: 11
diff changeset
37 {
6d5296efb9ef Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents: 11
diff changeset
38 my $text = shift;
6d5296efb9ef Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents: 11
diff changeset
39 print<<END;
6d5296efb9ef Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents: 11
diff changeset
40 <html><head><title>Error</title></head>
13
135adaf0eed2 Colour!
Dominic Cleal <dominic@computerkb.co.uk>
parents: 12
diff changeset
41 <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
42 END
6d5296efb9ef Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents: 11
diff changeset
43 exit;
6d5296efb9ef Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents: 11
diff changeset
44 }
6d5296efb9ef Shows user-errors to output, not dying
Dominic Cleal <dominic@computerkb.co.uk>
parents: 11
diff changeset
45
24
266c93756c1b Putting inputs next to each other again
Dominic Cleal <dominic@computerkb.co.uk>
parents: 21
diff changeset
46 # Inputs
266c93756c1b Putting inputs next to each other again
Dominic Cleal <dominic@computerkb.co.uk>
parents: 21
diff changeset
47 my $cols = $cgi->param('cols') || 4;
266c93756c1b Putting inputs next to each other again
Dominic Cleal <dominic@computerkb.co.uk>
parents: 21
diff changeset
48 my $str_items = $cgi->param('items');
266c93756c1b Putting inputs next to each other again
Dominic Cleal <dominic@computerkb.co.uk>
parents: 21
diff changeset
49
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
50 # Generate the first page, where eve-central mineral prices are prefilled.
17
a79168f03fc4 Replacing XML::DOM with LWP and regex, tidying code
Dominic Cleal <dominic@computerkb.co.uk>
parents: 16
diff changeset
51 unless ($str_items)
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
52 {
29
420807d41e04 Updating comments
Dominic Cleal <dominic@computerkb.co.uk>
parents: 28
diff changeset
53 # Try and pull the marks out of a stored cache
25
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
54 my $marks;
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
55 if (-e $marks_cache)
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
56 {
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
57 open CACHE, "< $marks_cache" || die("Can't open cache $marks_cache: $!");
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
58 $marks = fd_retrieve(*CACHE) || die("Can't read marks from cache: $!");
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
59 close CACHE;
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
60
29
420807d41e04 Updating comments
Dominic Cleal <dominic@computerkb.co.uk>
parents: 28
diff changeset
61 # Check expiry time
25
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
62 if (time > ($marks->{timestamp} + $marks_cache_expiry))
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
63 {
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
64 $marks = undef;
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
65 }
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
66 }
17
a79168f03fc4 Replacing XML::DOM with LWP and regex, tidying code
Dominic Cleal <dominic@computerkb.co.uk>
parents: 16
diff changeset
67
25
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
68 unless ($marks)
17
a79168f03fc4 Replacing XML::DOM with LWP and regex, tidying code
Dominic Cleal <dominic@computerkb.co.uk>
parents: 16
diff changeset
69 {
35
7d9abc345081 Handling mineral defaults correctly
Dominic Cleal <dominic@computerkb.co.uk>
parents: 33
diff changeset
70 # User can enter their own numbers if eve-central was down
7d9abc345081 Handling mineral defaults correctly
Dominic Cleal <dominic@computerkb.co.uk>
parents: 33
diff changeset
71 $marks->{$_} = 1 foreach ('Tritanium', 'Pyerite', 'Mexallon',
7d9abc345081 Handling mineral defaults correctly
Dominic Cleal <dominic@computerkb.co.uk>
parents: 33
diff changeset
72 'Isogen', 'Nocxium', 'Zydrine',
7d9abc345081 Handling mineral defaults correctly
Dominic Cleal <dominic@computerkb.co.uk>
parents: 33
diff changeset
73 'Megacyte', 'Morphite');
7d9abc345081 Handling mineral defaults correctly
Dominic Cleal <dominic@computerkb.co.uk>
parents: 33
diff changeset
74
29
420807d41e04 Updating comments
Dominic Cleal <dominic@computerkb.co.uk>
parents: 28
diff changeset
75 # If cache was unavailable or had expired, pull again from eve-central
25
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
76 my $ua = LWP::UserAgent->new;
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
77 $ua->agent('reproctool');
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
78 my $resp = $ua->request(HTTP::Request->new(GET => $eve_central_url));
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
79
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
80 if ($resp->is_success)
17
a79168f03fc4 Replacing XML::DOM with LWP and regex, tidying code
Dominic Cleal <dominic@computerkb.co.uk>
parents: 16
diff changeset
81 {
29
420807d41e04 Updating comments
Dominic Cleal <dominic@computerkb.co.uk>
parents: 28
diff changeset
82 # Store as Mineral => 1234
25
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
83 $marks = { timestamp => time };
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
84 foreach (split(/[\n\r]/, $resp->content))
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
85 {
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
86 next unless (/<name>(.+)<\/name>.*<price>([0-9\.]+)<\/price>/i);
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
87 $marks->{$1} = $2;
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
88 }
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
89
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
90 if (-e $marks_cache)
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
91 {
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
92 unlink $marks_cache
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
93 || die("Unable to unlink cache $marks_cache: $!");
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
94 }
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
95
29
420807d41e04 Updating comments
Dominic Cleal <dominic@computerkb.co.uk>
parents: 28
diff changeset
96 # Store into the cache
25
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
97 open CACHE, "> $marks_cache"
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
98 || die("Can't open cache $marks_cache to write: $!");
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
99 store_fd($marks, *CACHE) || die("Can't write to cache: $!");
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
100 close CACHE;
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
101 }
17
a79168f03fc4 Replacing XML::DOM with LWP and regex, tidying code
Dominic Cleal <dominic@computerkb.co.uk>
parents: 16
diff changeset
102 }
a79168f03fc4 Replacing XML::DOM with LWP and regex, tidying code
Dominic Cleal <dominic@computerkb.co.uk>
parents: 16
diff changeset
103
28
61fb1a6de2c5 Fixing timestamp entry sometimes left
Dominic Cleal <dominic@computerkb.co.uk>
parents: 27
diff changeset
104 delete $marks->{timestamp} if exists $marks->{timestamp};
61fb1a6de2c5 Fixing timestamp entry sometimes left
Dominic Cleal <dominic@computerkb.co.uk>
parents: 27
diff changeset
105
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
106 # What evenutally will be printed.
17
a79168f03fc4 Replacing XML::DOM with LWP and regex, tidying code
Dominic Cleal <dominic@computerkb.co.uk>
parents: 16
diff changeset
107 print<<END;
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
108 <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
109 <body>
34
2709fae95b1e Added help text.
df
parents: 33
diff changeset
110 Welcome to the sell, reprocess or keep tool. :)
2709fae95b1e Added help text.
df
parents: 33
diff changeset
111 <p />
2709fae95b1e Added help text.
df
parents: 33
diff changeset
112 Here's a <a href="http://rammsrdi.com/img/reproctool.png">screenshot</a>
2709fae95b1e Added help text.
df
parents: 33
diff changeset
113 on how it looks in game.
2709fae95b1e Added help text.
df
parents: 33
diff changeset
114 <p />
2709fae95b1e Added help text.
df
parents: 33
diff changeset
115 Mineral prices below are empire averages from <a
39
b231022614aa Proof-reading
Dominic Cleal <dominic@computerkb.co.uk>
parents: 38
diff changeset
116 href="http://www.eve-central.com/">EVE-Central</a>. Usually you dont need to
b231022614aa Proof-reading
Dominic Cleal <dominic@computerkb.co.uk>
parents: 38
diff changeset
117 update those yourself, unless the EVE-Central is down, or you live in
b231022614aa Proof-reading
Dominic Cleal <dominic@computerkb.co.uk>
parents: 38
diff changeset
118 special areas and are not welcome in empire space anymore.
34
2709fae95b1e Added help text.
df
parents: 33
diff changeset
119 <p />
2709fae95b1e Added help text.
df
parents: 33
diff changeset
120 How does this work? Well, you need to copy paste an item list (text) in the
39
b231022614aa Proof-reading
Dominic Cleal <dominic@computerkb.co.uk>
parents: 38
diff changeset
121 input box below, then press submit. Getting this item list from your
34
2709fae95b1e Added help text.
df
parents: 33
diff changeset
122 inventory is simple, albeit unusual. Follow these steps:
2709fae95b1e Added help text.
df
parents: 33
diff changeset
123 <ol>
2709fae95b1e Added help text.
df
parents: 33
diff changeset
124 <li>Put all the items in a container in your station</li>
2709fae95b1e Added help text.
df
parents: 33
diff changeset
125 <li>Richt click to container and select 'Create contract'.</li>
2709fae95b1e Added help text.
df
parents: 33
diff changeset
126 <li>Click 'Next' and then again 'Next'.</li>
2709fae95b1e Added help text.
df
parents: 33
diff changeset
127 <li>A popup will appear which will list the items in the container!
2709fae95b1e Added help text.
df
parents: 33
diff changeset
128 Richt click the text area of the popup, and select 'Copy'.</li>
2709fae95b1e Added help text.
df
parents: 33
diff changeset
129 <li>Cancel the contract creation! (We only needed the item list, there
39
b231022614aa Proof-reading
Dominic Cleal <dominic@computerkb.co.uk>
parents: 38
diff changeset
130 is no contract needed).</li>
34
2709fae95b1e Added help text.
df
parents: 33
diff changeset
131 <li>Paste the text you just copied in the text box below, and click
2709fae95b1e Added help text.
df
parents: 33
diff changeset
132 'Submit'.</li>
2709fae95b1e Added help text.
df
parents: 33
diff changeset
133 <li>The page will take some seconds to load, be patient. If the server
2709fae95b1e Added help text.
df
parents: 33
diff changeset
134 gives you an error, you just copy pasted too many items. Try again with
2709fae95b1e Added help text.
df
parents: 33
diff changeset
135 half the list.</li>
2709fae95b1e Added help text.
df
parents: 33
diff changeset
136 </ol>
2709fae95b1e Added help text.
df
parents: 33
diff changeset
137 <p />
2709fae95b1e Added help text.
df
parents: 33
diff changeset
138 Tip: Set the number of columns to match your inventory columns for easy comparison.
2709fae95b1e Added help text.
df
parents: 33
diff changeset
139 <p />
2709fae95b1e Added help text.
df
parents: 33
diff changeset
140 <hr>
17
a79168f03fc4 Replacing XML::DOM with LWP and regex, tidying code
Dominic Cleal <dominic@computerkb.co.uk>
parents: 16
diff changeset
141 <form method="post">
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
142 <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
143 <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
144 <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
145 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
146 # Lists the name of the minerals.
25
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
147 print "<td>$_</td>\n" foreach (keys %{$marks});
17
a79168f03fc4 Replacing XML::DOM with LWP and regex, tidying code
Dominic Cleal <dominic@computerkb.co.uk>
parents: 16
diff changeset
148 print "</tr><tr>";
a79168f03fc4 Replacing XML::DOM with LWP and regex, tidying code
Dominic Cleal <dominic@computerkb.co.uk>
parents: 16
diff changeset
149
25
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
150 foreach (keys %{$marks})
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
151 {
17
a79168f03fc4 Replacing XML::DOM with LWP and regex, tidying code
Dominic Cleal <dominic@computerkb.co.uk>
parents: 16
diff changeset
152 my $sname = lc substr($_, 0, 4);
25
ccbd8fa63b9f Adding a cache for mineral marks
Dominic Cleal <dominic@computerkb.co.uk>
parents: 24
diff changeset
153 my $fmt = sprintf('%.2f', $marks->{$_});
17
a79168f03fc4 Replacing XML::DOM with LWP and regex, tidying code
Dominic Cleal <dominic@computerkb.co.uk>
parents: 16
diff changeset
154 print "<td><input type='text' name='$sname' size='7' value='$fmt' /></td>\n";
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
155 }
17
a79168f03fc4 Replacing XML::DOM with LWP and regex, tidying code
Dominic Cleal <dominic@computerkb.co.uk>
parents: 16
diff changeset
156
a79168f03fc4 Replacing XML::DOM with LWP and regex, tidying code
Dominic Cleal <dominic@computerkb.co.uk>
parents: 16
diff changeset
157 print <<END;
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
158 </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
159 </table>
18
67f13a371c18 Adding columns input
Dominic Cleal <dominic@computerkb.co.uk>
parents: 17
diff changeset
160 Columns: <input type='text' name='cols' size='2' value='4' /><br /><br />
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
161 <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
162 </form>
21
5ae40a1161e6 Added eve central credit (still need to cache some vals, got an idea on that dom?)
df
parents: 20
diff changeset
163 <br />
36
e8772d1bd517 Correcting capitalisation
Dominic Cleal <dominic@computerkb.co.uk>
parents: 35
diff changeset
164 Mineral prices are empire averages from <a href="http://www.eve-central.com/">EVE-Central</a>.
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
165 </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
166 </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
167 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
168
17
a79168f03fc4 Replacing XML::DOM with LWP and regex, tidying code
Dominic Cleal <dominic@computerkb.co.uk>
parents: 16
diff changeset
169 exit;
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
170 }
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
171
0
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
172 # Load mineral prices
15
50d8619bce32 Improving mineral errors
Dominic Cleal <dominic@computerkb.co.uk>
parents: 14
diff changeset
173 my $trit = $cgi->param('trit') || user_error('No tritanium price');
50d8619bce32 Improving mineral errors
Dominic Cleal <dominic@computerkb.co.uk>
parents: 14
diff changeset
174 my $pyer = $cgi->param('pyer') || user_error('No pyerite price');
50d8619bce32 Improving mineral errors
Dominic Cleal <dominic@computerkb.co.uk>
parents: 14
diff changeset
175 my $mexa = $cgi->param('mexa') || user_error('No mexallon price');
50d8619bce32 Improving mineral errors
Dominic Cleal <dominic@computerkb.co.uk>
parents: 14
diff changeset
176 my $isog = $cgi->param('isog') || user_error('No isogen price');
50d8619bce32 Improving mineral errors
Dominic Cleal <dominic@computerkb.co.uk>
parents: 14
diff changeset
177 my $nocx = $cgi->param('nocx') || user_error('No nocxium price');
50d8619bce32 Improving mineral errors
Dominic Cleal <dominic@computerkb.co.uk>
parents: 14
diff changeset
178 my $zydr = $cgi->param('zydr') || user_error('No zydrine price');
50d8619bce32 Improving mineral errors
Dominic Cleal <dominic@computerkb.co.uk>
parents: 14
diff changeset
179 my $mega = $cgi->param('mega') || user_error('No megacyte price');
50d8619bce32 Improving mineral errors
Dominic Cleal <dominic@computerkb.co.uk>
parents: 14
diff changeset
180 my $morp = $cgi->param('morp') || user_error('No morphite price');
0
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
181
1
c39512d94605 Adding dbparams config
Dominic Cleal <dominic@computerkb.co.uk>
parents: 0
diff changeset
182 my $db = DBI->connect(@dbparams)
0
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
183 or die("Database connection failure: $DBI::errstr");
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
184
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
185 # Strip out line endings
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
186 $str_items =~ s/[\n\r]+//g;
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
187
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
188 # If the items string contains the contract info too, strip it out
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
189 $str_items = $1 if ($str_items =~ /The container .+ contains the following items:(.+)/);
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
190 $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
191
9
6b98a17fbe22 Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents: 7
diff changeset
192 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
193
6b98a17fbe22 Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents: 7
diff changeset
194 # 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
195 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
196 $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
197 $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
198
0
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
199 # SQL lookup for reprocessing amounts
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
200 my $sql_reprocess = <<END;
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
201 SELECT
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
202 types.typeID,
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
203 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
204 groups.groupName,
3
e640eb6cefc3 Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents: 1
diff changeset
205 attrs.valueInt, -- metaLevel
0
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
206 types.basePrice,
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
207 graphics.icon,
3
e640eb6cefc3 Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents: 1
diff changeset
208 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
209 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
210 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
211 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
212 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
213 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
214 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
215 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
216 FROM invTypes types
11
f749981ad862 Fixes items with no metalevel attribute, improves sorting
Dominic Cleal <dominic@computerkb.co.uk>
parents: 10
diff changeset
217 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
218 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
219 INNER JOIN invGroups groups ON types.groupID = groups.groupID
0
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
220 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
221 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
222 GROUP BY types.typeID
40
20870c5d9b45 Using name sorting, handling unknowns
Dominic Cleal <dominic@computerkb.co.uk>
parents: 39
diff changeset
223 ORDER BY typeName ASC
0
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
224 END
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
225 my $pre_reprocess = $db->prepare($sql_reprocess);
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
226
9
6b98a17fbe22 Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents: 7
diff changeset
227 # 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
228 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
229 $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
230
6b98a17fbe22 Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents: 7
diff changeset
231 $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
232 $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
233 \$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
234 \$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
235
40
20870c5d9b45 Using name sorting, handling unknowns
Dominic Cleal <dominic@computerkb.co.uk>
parents: 39
diff changeset
236 my $item_lookup = {};
0
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
237 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
238 while ($pre_reprocess->fetch())
0
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
239 {
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
240 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
241 my $isk = ($trit * $ttrit) + ($pyer * $tpyer) + ($mexa * $tmexa) +
37
56794934b5b2 Indentation
Dominic Cleal <dominic@computerkb.co.uk>
parents: 36
diff changeset
242 ($isog * $tisog) + ($nocx * $tnocx) + ($zydr * $tzydr) +
56794934b5b2 Indentation
Dominic Cleal <dominic@computerkb.co.uk>
parents: 36
diff changeset
243 ($mega * $tmega) + ($morp * $tmorp);
20
877806fb69a3 Fixed double use of var, and added reprocessing details in ALT
df
parents: 18
diff changeset
244 my $repDetails = sprintf( "Trit=%d Py=%d Mex=%d Iso=%d Nocx=%d Zyd=%d Mega=%d Morp=%d",
877806fb69a3 Fixed double use of var, and added reprocessing details in ALT
df
parents: 18
diff changeset
245 $ttrit, $tpyer, $tmexa, $tisog, $tnocx, $tzydr, $tmega, $tmorp );
9
6b98a17fbe22 Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents: 7
diff changeset
246
6b98a17fbe22 Changing to a single SQL query for type-based sorting and efficiency
Dominic Cleal <dominic@computerkb.co.uk>
parents: 7
diff changeset
247 $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
248 $item = { id => $tid, name => $tname, meta => $meta, icon => $icon,
20
877806fb69a3 Fixed double use of var, and added reprocessing details in ALT
df
parents: 18
diff changeset
249 price => $basePrice, reprocessIsk => $isk, reprocessDetails => $repDetails };
40
20870c5d9b45 Using name sorting, handling unknowns
Dominic Cleal <dominic@computerkb.co.uk>
parents: 39
diff changeset
250 $item_lookup->{$tname} = $item;
20870c5d9b45 Using name sorting, handling unknowns
Dominic Cleal <dominic@computerkb.co.uk>
parents: 39
diff changeset
251 }
20870c5d9b45 Using name sorting, handling unknowns
Dominic Cleal <dominic@computerkb.co.uk>
parents: 39
diff changeset
252
20870c5d9b45 Using name sorting, handling unknowns
Dominic Cleal <dominic@computerkb.co.uk>
parents: 39
diff changeset
253 # Now match up the item lookups to the input list
47
964393fff57e Case insensitive sorting to match game
Dominic Cleal <dominic@computerkb.co.uk>
parents: 43
diff changeset
254 foreach (sort { lc $a cmp lc $b } @item_names)
40
20870c5d9b45 Using name sorting, handling unknowns
Dominic Cleal <dominic@computerkb.co.uk>
parents: 39
diff changeset
255 {
20870c5d9b45 Using name sorting, handling unknowns
Dominic Cleal <dominic@computerkb.co.uk>
parents: 39
diff changeset
256 push @output, (exists $item_lookup->{$_} ? $item_lookup->{$_}
20870c5d9b45 Using name sorting, handling unknowns
Dominic Cleal <dominic@computerkb.co.uk>
parents: 39
diff changeset
257 : { name => $_ } );
0
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
258 }
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
259
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
260 my $col = 0;
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
261 print<<END;
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
262 <html>
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
263 <head>
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
264 <style type="text/css">
22
66a63068fb23 Cleaned up the styles and added colour s on meta level .... the happy colour show.
df
parents: 21
diff changeset
265 .reg
3
e640eb6cefc3 Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents: 1
diff changeset
266 {
4
4351c0bf33d4 Improving IGB formatting
Dominic Cleal <dominic@computerkb.co.uk>
parents: 3
diff changeset
267 text-align: center;
3
e640eb6cefc3 Making DB stuff more generic, fixing missing mineral
Dominic Cleal <dominic@computerkb.co.uk>
parents: 1
diff changeset
268 }
0
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
269 </style>
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
270 </head>
4
4351c0bf33d4 Improving IGB formatting
Dominic Cleal <dominic@computerkb.co.uk>
parents: 3
diff changeset
271
0
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
272 <body>
34
2709fae95b1e Added help text.
df
parents: 33
diff changeset
273 Welcome to the sell, reprocess or keep tool. :)
2709fae95b1e Added help text.
df
parents: 33
diff changeset
274 <p />
2709fae95b1e Added help text.
df
parents: 33
diff changeset
275 Here is how it works, the colour coding:
2709fae95b1e Added help text.
df
parents: 33
diff changeset
276 <ul>
2709fae95b1e Added help text.
df
parents: 33
diff changeset
277 <li>Items in <font color='#666600'>dark yellow</font> are meta 0.</li>
2709fae95b1e Added help text.
df
parents: 33
diff changeset
278 <li>Items in grey to white are meta 1, 2 or 3.</li>
2709fae95b1e Added help text.
df
parents: 33
diff changeset
279 <li>Items in <font color='#4444FF'>blue</font> are meta 4.</li>
2709fae95b1e Added help text.
df
parents: 33
diff changeset
280 <li>Items in <font color='#FF0000'>red</font> are T2 (meta 5).</li>
2709fae95b1e Added help text.
df
parents: 33
diff changeset
281 <li>items in <font color='#00FF00'>green</font> are above meta 5.</li>
2709fae95b1e Added help text.
df
parents: 33
diff changeset
282 </ul>
2709fae95b1e Added help text.
df
parents: 33
diff changeset
283 <p />
39
b231022614aa Proof-reading
Dominic Cleal <dominic@computerkb.co.uk>
parents: 38
diff changeset
284 The number below the item represents the item's value if you would reprocess
b231022614aa Proof-reading
Dominic Cleal <dominic@computerkb.co.uk>
parents: 38
diff changeset
285 and sell the minerals on the market. Basically, if you have the option of
34
2709fae95b1e Added help text.
df
parents: 33
diff changeset
286 selling that item for a price below that number, its better to keep the item
2709fae95b1e Added help text.
df
parents: 33
diff changeset
287 and reprocess it.
2709fae95b1e Added help text.
df
parents: 33
diff changeset
288 <p />
40
20870c5d9b45 Using name sorting, handling unknowns
Dominic Cleal <dominic@computerkb.co.uk>
parents: 39
diff changeset
289 As you might see, the items are listed similarly to your inventory in EVE.
20870c5d9b45 Using name sorting, handling unknowns
Dominic Cleal <dominic@computerkb.co.uk>
parents: 39
diff changeset
290 You will need to sort your EVE window by name to match. If you have this browser
39
b231022614aa Proof-reading
Dominic Cleal <dominic@computerkb.co.uk>
parents: 38
diff changeset
291 window next to your inventory window, matching the columns(!), it is very
34
2709fae95b1e Added help text.
df
parents: 33
diff changeset
292 easy to pick out those valuable items.
2709fae95b1e Added help text.
df
parents: 33
diff changeset
293 <p />
39
b231022614aa Proof-reading
Dominic Cleal <dominic@computerkb.co.uk>
parents: 38
diff changeset
294 Tip: Because this can be a huge page to load in EVE, resizing might freeze the
34
2709fae95b1e Added help text.
df
parents: 33
diff changeset
295 game a bit.<br />
39
b231022614aa Proof-reading
Dominic Cleal <dominic@computerkb.co.uk>
parents: 38
diff changeset
296 Also, clicking on the item gives you the general information of that item. It
34
2709fae95b1e Added help text.
df
parents: 33
diff changeset
297 is not the same as clicking 'Show info' on the real item. (For example: the
39
b231022614aa Proof-reading
Dominic Cleal <dominic@computerkb.co.uk>
parents: 38
diff changeset
298 real item might be damaged.)<br />
34
2709fae95b1e Added help text.
df
parents: 33
diff changeset
299 <a href="http://rammsrdi.com">Ramm's RDI</a>.
2709fae95b1e Added help text.
df
parents: 33
diff changeset
300 <p />
2709fae95b1e Added help text.
df
parents: 33
diff changeset
301 <hr>
0
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
302 <table>
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
303 END
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
304
30
d1028107ab75 Pretty numbers function
Dominic Cleal <dominic@computerkb.co.uk>
parents: 29
diff changeset
305 sub pretty_numbers
d1028107ab75 Pretty numbers function
Dominic Cleal <dominic@computerkb.co.uk>
parents: 29
diff changeset
306 {
d1028107ab75 Pretty numbers function
Dominic Cleal <dominic@computerkb.co.uk>
parents: 29
diff changeset
307 my $num = shift;
43
783d0f954927 Rounding numbers off, not 2dp
Dominic Cleal <dominic@computerkb.co.uk>
parents: 42
diff changeset
308 $num = int($num);
30
d1028107ab75 Pretty numbers function
Dominic Cleal <dominic@computerkb.co.uk>
parents: 29
diff changeset
309 $num = reverse $num;
d1028107ab75 Pretty numbers function
Dominic Cleal <dominic@computerkb.co.uk>
parents: 29
diff changeset
310 $num =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
d1028107ab75 Pretty numbers function
Dominic Cleal <dominic@computerkb.co.uk>
parents: 29
diff changeset
311 return reverse $num;
d1028107ab75 Pretty numbers function
Dominic Cleal <dominic@computerkb.co.uk>
parents: 29
diff changeset
312 }
d1028107ab75 Pretty numbers function
Dominic Cleal <dominic@computerkb.co.uk>
parents: 29
diff changeset
313
10
de10d02dc715 Using item images for non-IGB browsers
Dominic Cleal <dominic@computerkb.co.uk>
parents: 9
diff changeset
314 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
315
0
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
316 for my $item (@output)
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
317 {
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
318 if ($col == $cols)
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
319 {
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
320 print "</tr><tr>\n";
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
321 $col = 0;
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
322 }
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
323
42
e9429d4a7942 Making alt and title text consistent
Dominic Cleal <dominic@computerkb.co.uk>
parents: 40
diff changeset
324 my ($img, $alt, $text, $link, $colour);
0
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
325
42
e9429d4a7942 Making alt and title text consistent
Dominic Cleal <dominic@computerkb.co.uk>
parents: 40
diff changeset
326 $alt = $item->{name};
0
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
327 if (defined $item->{id})
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
328 {
10
de10d02dc715 Using item images for non-IGB browsers
Dominic Cleal <dominic@computerkb.co.uk>
parents: 9
diff changeset
329 if ($igb)
de10d02dc715 Using item images for non-IGB browsers
Dominic Cleal <dominic@computerkb.co.uk>
parents: 9
diff changeset
330 {
de10d02dc715 Using item images for non-IGB browsers
Dominic Cleal <dominic@computerkb.co.uk>
parents: 9
diff changeset
331 $img = "typeicon:$item->{id}";
de10d02dc715 Using item images for non-IGB browsers
Dominic Cleal <dominic@computerkb.co.uk>
parents: 9
diff changeset
332 $link = "showinfo:$item->{id}";
de10d02dc715 Using item images for non-IGB browsers
Dominic Cleal <dominic@computerkb.co.uk>
parents: 9
diff changeset
333 }
de10d02dc715 Using item images for non-IGB browsers
Dominic Cleal <dominic@computerkb.co.uk>
parents: 9
diff changeset
334 else
de10d02dc715 Using item images for non-IGB browsers
Dominic Cleal <dominic@computerkb.co.uk>
parents: 9
diff changeset
335 {
de10d02dc715 Using item images for non-IGB browsers
Dominic Cleal <dominic@computerkb.co.uk>
parents: 9
diff changeset
336 $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
337 }
de10d02dc715 Using item images for non-IGB browsers
Dominic Cleal <dominic@computerkb.co.uk>
parents: 9
diff changeset
338
22
66a63068fb23 Cleaned up the styles and added colour s on meta level .... the happy colour show.
df
parents: 21
diff changeset
339 switch ($item->{meta})
66a63068fb23 Cleaned up the styles and added colour s on meta level .... the happy colour show.
df
parents: 21
diff changeset
340 {
66a63068fb23 Cleaned up the styles and added colour s on meta level .... the happy colour show.
df
parents: 21
diff changeset
341 case 0 { $colour = "#666600"; }
66a63068fb23 Cleaned up the styles and added colour s on meta level .... the happy colour show.
df
parents: 21
diff changeset
342 case 1 { $colour = "#777777"; }
66a63068fb23 Cleaned up the styles and added colour s on meta level .... the happy colour show.
df
parents: 21
diff changeset
343 case 2 { $colour = "#BBBBBB"; }
66a63068fb23 Cleaned up the styles and added colour s on meta level .... the happy colour show.
df
parents: 21
diff changeset
344 case 3 { $colour = "#FFFFFF"; }
23
b505b076c493 Small reversal of the more bright colour for meta 6+
df
parents: 22
diff changeset
345 case 4 { $colour = "#4444FF"; }
22
66a63068fb23 Cleaned up the styles and added colour s on meta level .... the happy colour show.
df
parents: 21
diff changeset
346 case 5 { $colour = "#FF0000"; }
23
b505b076c493 Small reversal of the more bright colour for meta 6+
df
parents: 22
diff changeset
347 case [6..30]{ $colour = "#00FF00"; }
22
66a63068fb23 Cleaned up the styles and added colour s on meta level .... the happy colour show.
df
parents: 21
diff changeset
348 }
66a63068fb23 Cleaned up the styles and added colour s on meta level .... the happy colour show.
df
parents: 21
diff changeset
349
66a63068fb23 Cleaned up the styles and added colour s on meta level .... the happy colour show.
df
parents: 21
diff changeset
350 if ($item->{meta} >= 4)
0
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
351 {
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
352 $text = $item->{name};
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
353 }
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
354 else
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
355 {
33
a4197a854e79 Using pretty numbers on output
Dominic Cleal <dominic@computerkb.co.uk>
parents: 32 31
diff changeset
356 $text = pretty_numbers($item->{reprocessIsk});
0
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
357 }
42
e9429d4a7942 Making alt and title text consistent
Dominic Cleal <dominic@computerkb.co.uk>
parents: 40
diff changeset
358
e9429d4a7942 Making alt and title text consistent
Dominic Cleal <dominic@computerkb.co.uk>
parents: 40
diff changeset
359 $alt .= " ($item->{reprocessDetails})";
0
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
360 }
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
361 else
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
362 {
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
363 $text = 'Unknown item';
5
42268fc087a9 Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents: 4
diff changeset
364 $img = "typeicon:07_15";
0
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
365 }
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
366
22
66a63068fb23 Cleaned up the styles and added colour s on meta level .... the happy colour show.
df
parents: 21
diff changeset
367 print "<td width='64' class='reg'>";
5
42268fc087a9 Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents: 4
diff changeset
368 print "<a href='$link'>" if defined $link;
14
9b8670ac1bcc Adding title attr to images
Dominic Cleal <dominic@computerkb.co.uk>
parents: 13
diff changeset
369 print "<img src='$img' width='64' height='64' border='1' ";
42
e9429d4a7942 Making alt and title text consistent
Dominic Cleal <dominic@computerkb.co.uk>
parents: 40
diff changeset
370 print "title=\"$alt\" alt=\"$alt\" />";
5
42268fc087a9 Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents: 4
diff changeset
371 print "</a>" if defined $link;
42268fc087a9 Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents: 4
diff changeset
372 print "<br />";
42268fc087a9 Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents: 4
diff changeset
373 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
374 print $text;
42268fc087a9 Improving IGB integration with links and images
Dominic Cleal <dominic@computerkb.co.uk>
parents: 4
diff changeset
375 print "</font>" if defined $colour;
0
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
376 print "</td>\n";
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
377
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
378 $col++;
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
379 }
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
380
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
381 print<<END;
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
382 </tr>
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
383 </table>
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
384 </body>
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
385 </html>
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
386 END
9c46727ce7ab Initial version
Dominic Cleal <dominic@computerkb.co.uk>
parents:
diff changeset
387