Mercurial > hg > reproctool-df
comparison reproctool.cgi @ 24:266c93756c1b
Putting inputs next to each other again
author | Dominic Cleal <dominic@computerkb.co.uk> |
---|---|
date | Sun, 25 Jan 2009 17:03:23 +0000 |
parents | 5ae40a1161e6 |
children | ccbd8fa63b9f |
comparison
equal
deleted
inserted
replaced
21:5ae40a1161e6 | 24:266c93756c1b |
---|---|
23 <body><font color="#FF0000"><b>Error:</b></font> $text</body></html> | 23 <body><font color="#FF0000"><b>Error:</b></font> $text</body></html> |
24 END | 24 END |
25 exit; | 25 exit; |
26 } | 26 } |
27 | 27 |
28 # Inputs | |
29 my $cols = $cgi->param('cols') || 4; | |
30 my $str_items = $cgi->param('items'); | |
31 | |
28 # Generate the first page, where eve-central mineral prices are prefilled. | 32 # Generate the first page, where eve-central mineral prices are prefilled. |
29 # TODO: depending on the traffic, cache these eve-central prices. | 33 # TODO: depending on the traffic, cache these eve-central prices. |
30 my $str_items = $cgi->param('items'); | 34 |
31 unless ($str_items) | 35 unless ($str_items) |
32 { | 36 { |
33 my $eveCentralURL = 'http://eve-central.com/api/evemon'; | 37 my $eveCentralURL = 'http://eve-central.com/api/evemon'; |
34 my $ua = LWP::UserAgent->new; | 38 my $ua = LWP::UserAgent->new; |
35 $ua->agent('reproctool'); | 39 $ua->agent('reproctool'); |
81 </html> | 85 </html> |
82 END | 86 END |
83 | 87 |
84 exit; | 88 exit; |
85 } | 89 } |
86 | |
87 # Inputs | |
88 my $cols = $cgi->param('cols') || 4; | |
89 | 90 |
90 # Load mineral prices | 91 # Load mineral prices |
91 my $trit = $cgi->param('trit') || user_error('No tritanium price'); | 92 my $trit = $cgi->param('trit') || user_error('No tritanium price'); |
92 my $pyer = $cgi->param('pyer') || user_error('No pyerite price'); | 93 my $pyer = $cgi->param('pyer') || user_error('No pyerite price'); |
93 my $mexa = $cgi->param('mexa') || user_error('No mexallon price'); | 94 my $mexa = $cgi->param('mexa') || user_error('No mexallon price'); |