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 );