Mercurial > hg > reproctool-df
comparison reproctool.cgi @ 15:50d8619bce32
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"); |