Mercurial > hg > reproctool-df

comparison reproctool.cgi @ 15:50d8619bce32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Improving mineral errors
author Dominic Cleal <dominic@computerkb.co.uk>
date Sun, 25 Jan 2009 14:11:12 +0000
parents 9b8670ac1bcc
children 257e748cd08e
comparison
equal deleted inserted replaced
14:9b8670ac1bcc 15:50d8619bce32
27 # Inputs 27 # Inputs
28 my $str_items = $cgi->param('items') or user_error('Items missing'); 28 my $str_items = $cgi->param('items') or user_error('Items missing');
29 my $cols = $cgi->param('cols') || 4; 29 my $cols = $cgi->param('cols') || 4;
30 30
31 # Load mineral prices 31 # Load mineral prices
32 my $trit = $cgi->param('trit') || user_error('No trit price'); 32 my $trit = $cgi->param('trit') || user_error('No tritanium price');
33 my $pyer = $cgi->param('pyer') || user_error('No pyer price'); 33 my $pyer = $cgi->param('pyer') || user_error('No pyerite price');
34 my $mexa = $cgi->param('mexa') || user_error('No mexa price'); 34 my $mexa = $cgi->param('mexa') || user_error('No mexallon price');
35 my $isog = $cgi->param('isog') || user_error('No isog price'); 35 my $isog = $cgi->param('isog') || user_error('No isogen price');
36 my $nocx = $cgi->param('nocx') || user_error('No nocx price'); 36 my $nocx = $cgi->param('nocx') || user_error('No nocxium price');
37 my $zydr = $cgi->param('zydr') || user_error('No zydr price'); 37 my $zydr = $cgi->param('zydr') || user_error('No zydrine price');
38 my $mega = $cgi->param('mega') || user_error('No mega price'); 38 my $mega = $cgi->param('mega') || user_error('No megacyte price');
39 my $morp = $cgi->param('morp') || user_error('No morp price'); 39 my $morp = $cgi->param('morp') || user_error('No morphite price');
40 40
41 our @dbparams; 41 our @dbparams;
42 require './dbparams.cgi'; 42 require './dbparams.cgi';
43 my $db = DBI->connect(@dbparams) 43 my $db = DBI->connect(@dbparams)
44 or die("Database connection failure: $DBI::errstr"); 44 or die("Database connection failure: $DBI::errstr");