Mercurial > hg > reproctool-df
comparison reproctool.cgi @ 12:6d5296efb9ef
Shows user-errors to output, not dying
author | Dominic Cleal <dominic@computerkb.co.uk> |
---|---|
date | Sun, 25 Jan 2009 13:36:31 +0000 |
parents | f749981ad862 |
children | 135adaf0eed2 |
comparison
equal
deleted
inserted
replaced
11:f749981ad862 | 12:6d5296efb9ef |
---|---|
12 my $cgi = new CGI; | 12 my $cgi = new CGI; |
13 print $cgi->header(-type => 'text/html', | 13 print $cgi->header(-type => 'text/html', |
14 -pragma => 'no-cache', | 14 -pragma => 'no-cache', |
15 -expires => '-365d'); | 15 -expires => '-365d'); |
16 | 16 |
17 sub user_error | |
18 { | |
19 my $text = shift; | |
20 print<<END; | |
21 <html><head><title>Error</title></head> | |
22 <body><font colour="#FF0000"><b>Error:</b></font> $text</body></html> | |
23 END | |
24 exit; | |
25 } | |
26 | |
17 # Inputs | 27 # Inputs |
18 my $str_items = $cgi->param('items') or die('Items missing'); | 28 my $str_items = $cgi->param('items') or user_error('Items missing'); |
19 my $cols = $cgi->param('cols') || 4; | 29 my $cols = $cgi->param('cols') || 4; |
20 | 30 |
21 # Load mineral prices | 31 # Load mineral prices |
22 my $trit = $cgi->param('trit') || die('No trit price'); | 32 my $trit = $cgi->param('trit') || user_error('No trit price'); |
23 my $pyer = $cgi->param('pyer') || die('No pyer price'); | 33 my $pyer = $cgi->param('pyer') || user_error('No pyer price'); |
24 my $mexa = $cgi->param('mexa') || die('No mexa price'); | 34 my $mexa = $cgi->param('mexa') || user_error('No mexa price'); |
25 my $isog = $cgi->param('isog') || die('No isog price'); | 35 my $isog = $cgi->param('isog') || user_error('No isog price'); |
26 my $nocx = $cgi->param('nocx') || die('No nocx price'); | 36 my $nocx = $cgi->param('nocx') || user_error('No nocx price'); |
27 my $zydr = $cgi->param('zydr') || die('No zydr price'); | 37 my $zydr = $cgi->param('zydr') || user_error('No zydr price'); |
28 my $mega = $cgi->param('mega') || die('No mega price'); | 38 my $mega = $cgi->param('mega') || user_error('No mega price'); |
29 my $morp = $cgi->param('morp') || die('No morp price'); | 39 my $morp = $cgi->param('morp') || user_error('No morp price'); |
30 | 40 |
31 our @dbparams; | 41 our @dbparams; |
32 require './dbparams.cgi'; | 42 require './dbparams.cgi'; |
33 my $db = DBI->connect(@dbparams) | 43 my $db = DBI->connect(@dbparams) |
34 or die("Database connection failure: $DBI::errstr"); | 44 or die("Database connection failure: $DBI::errstr"); |