Mercurial > hg > reproctool

comparison reproctool.cgi @ 11:6d5296efb9ef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
10:f749981ad862 11: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");