Mercurial > hg > reproctool-df
changeset 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 |
files | reproctool.cgi |
diffstat | 1 files changed, 19 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/reproctool.cgi Sun Jan 25 13:33:20 2009 +0000 +++ b/reproctool.cgi Sun Jan 25 13:36:31 2009 +0000 @@ -14,19 +14,29 @@ -pragma => 'no-cache', -expires => '-365d'); +sub user_error +{ + my $text = shift; + print<<END; +<html><head><title>Error</title></head> +<body><font colour="#FF0000"><b>Error:</b></font> $text</body></html> +END + exit; +} + # Inputs -my $str_items = $cgi->param('items') or die('Items missing'); +my $str_items = $cgi->param('items') or user_error('Items missing'); my $cols = $cgi->param('cols') || 4; # Load mineral prices -my $trit = $cgi->param('trit') || die('No trit price'); -my $pyer = $cgi->param('pyer') || die('No pyer price'); -my $mexa = $cgi->param('mexa') || die('No mexa price'); -my $isog = $cgi->param('isog') || die('No isog price'); -my $nocx = $cgi->param('nocx') || die('No nocx price'); -my $zydr = $cgi->param('zydr') || die('No zydr price'); -my $mega = $cgi->param('mega') || die('No mega price'); -my $morp = $cgi->param('morp') || die('No morp price'); +my $trit = $cgi->param('trit') || user_error('No trit price'); +my $pyer = $cgi->param('pyer') || user_error('No pyer price'); +my $mexa = $cgi->param('mexa') || user_error('No mexa price'); +my $isog = $cgi->param('isog') || user_error('No isog price'); +my $nocx = $cgi->param('nocx') || user_error('No nocx price'); +my $zydr = $cgi->param('zydr') || user_error('No zydr price'); +my $mega = $cgi->param('mega') || user_error('No mega price'); +my $morp = $cgi->param('morp') || user_error('No morp price'); our @dbparams; require './dbparams.cgi';