Mercurial > hg > reproctool-df
changeset 38:558b63789352
Merging -df
author | Dominic Cleal <dominic@computerkb.co.uk> |
---|---|
date | Sun, 25 Jan 2009 20:00:30 +0000 |
parents | 56794934b5b2 (diff) 2709fae95b1e (current diff) |
children | b231022614aa |
files | reproctool.cgi |
diffstat | 1 files changed, 9 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/reproctool.cgi Sun Jan 25 18:43:30 2009 +0000 +++ b/reproctool.cgi Sun Jan 25 20:00:30 2009 +0000 @@ -67,6 +67,11 @@ unless ($marks) { + # User can enter their own numbers if eve-central was down + $marks->{$_} = 1 foreach ('Tritanium', 'Pyerite', 'Mexallon', + 'Isogen', 'Nocxium', 'Zydrine', + 'Megacyte', 'Morphite'); + # If cache was unavailable or had expired, pull again from eve-central my $ua = LWP::UserAgent->new; $ua->agent('reproctool'); @@ -94,13 +99,6 @@ store_fd($marks, *CACHE) || die("Can't write to cache: $!"); close CACHE; } - else - { - # User can enter their own numbers if eve-central was down - $marks->{$_} = 1 foreach ('Tritanium', 'Pyerite', 'Mexallon', - 'Isogen', 'Nocxium', 'Zydrine', - 'Megacyte', 'Morphite'); - } } delete $marks->{timestamp} if exists $marks->{timestamp}; @@ -162,6 +160,8 @@ Columns: <input type='text' name='cols' size='2' value='4' /><br /><br /> <input type="submit" /> </form> +<br /> +Mineral prices are empire averages from <a href="http://www.eve-central.com/">EVE-Central</a>. </body> </html> END @@ -238,8 +238,8 @@ { my $item = {}; my $isk = ($trit * $ttrit) + ($pyer * $tpyer) + ($mexa * $tmexa) + - ($isog * $tisog) + ($nocx * $tnocx) + ($zydr * $tzydr) + - ($mega * $tmega) + ($morp * $tmorp); + ($isog * $tisog) + ($nocx * $tnocx) + ($zydr * $tzydr) + + ($mega * $tmega) + ($morp * $tmorp); my $repDetails = sprintf( "Trit=%d Py=%d Mex=%d Iso=%d Nocx=%d Zyd=%d Mega=%d Morp=%d", $ttrit, $tpyer, $tmexa, $tisog, $tnocx, $tzydr, $tmega, $tmorp );