# HG changeset patch # User Dominic Cleal # Date 1232890591 0 # Node ID 6d5296efb9ef92f4411a869d14b0950be68bc07f # Parent f749981ad86289afc0654d6d6442762d6de85192 Shows user-errors to output, not dying diff -r f749981ad862 -r 6d5296efb9ef reproctool.cgi --- 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<Error +Error: $text +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';