Mercurial > hg > reproctool-df

changeset 27:789877ff0e1a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Changing dbparams to contain all settings
author Dominic Cleal <dominic@computerkb.co.uk>
date Sun, 25 Jan 2009 17:33:07 +0000
parents be92d2f1ab3f
children 61fb1a6de2c5
files reproctool.cgi
diffstat 1 files changed, 11 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/reproctool.cgi	Sun Jan 25 17:31:03 2009 +0000
+++ b/reproctool.cgi	Sun Jan 25 17:33:07 2009 +0000
@@ -9,12 +9,18 @@
 use LWP::UserAgent;
 use Storable qw/store_fd fd_retrieve/;
 
-# Settings
-my $img_http_path = '/itemimgs';
-my $eve_central_url = 'http://eve-central.com/api/evemon';
-my $marks_cache = 'minerals.cache';
-my $marks_cache_expiry = 4 * 60 * 60;  # 4 hours
+# Settings from params.cgi
+our (@dbparams, $img_http_path, $eve_central_url,
+     $marks_cache, $marks_cache_expiry);
 
+$img_http_path = '/itemimgs';
+$eve_central_url = 'http://eve-central.com/api/evemon';
+$marks_cache = 'minerals.cache';
+$marks_cache_expiry = 4 * 60 * 60;  # 4 hours
+
+require './params.cgi';
+
+# Begin script
 my $cgi = new CGI;
 print $cgi->header(-type    => 'text/html',
                    -pragma  => 'no-cache',
@@ -136,8 +142,6 @@
 my $mega = $cgi->param('mega') || user_error('No megacyte price');
 my $morp = $cgi->param('morp') || user_error('No morphite price');
 
-our @dbparams;
-require './dbparams.cgi';
 my $db = DBI->connect(@dbparams)
     or die("Database connection failure: $DBI::errstr");