comparison reproctool.cgi @ 1:c39512d94605

Adding dbparams config
author Dominic Cleal <dominic@computerkb.co.uk>
date Sat, 24 Jan 2009 16:46:51 +0000
parents 9c46727ce7ab
children e640eb6cefc3
comparison
equal deleted inserted replaced
0:9c46727ce7ab 1:c39512d94605
27 my $nocx = $cgi->param('nocx') || die('No nocx price'); 27 my $nocx = $cgi->param('nocx') || die('No nocx price');
28 my $zydr = $cgi->param('zydr') || die('No zydr price'); 28 my $zydr = $cgi->param('zydr') || die('No zydr price');
29 my $mega = $cgi->param('mega') || die('No mega price'); 29 my $mega = $cgi->param('mega') || die('No mega price');
30 my $morp = $cgi->param('morp') || die('No morp price'); 30 my $morp = $cgi->param('morp') || die('No morp price');
31 31
32 my $db = DBI->connect("DBI:SQLite:$db_path") 32 require 'dbparams.cgi';
33 my $db = DBI->connect(@dbparams)
33 or die("Database connection failure: $DBI::errstr"); 34 or die("Database connection failure: $DBI::errstr");
34 35
35 # Strip out line endings 36 # Strip out line endings
36 $str_items =~ s/[\n\r]+//g; 37 $str_items =~ s/[\n\r]+//g;
37 38