Mercurial > hg > reproctool-df
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 |