Mercurial > hg > reproctool-df

comparison reproctool.cgi @ 24:266c93756c1b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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');