copied config reading from the client

added DBI.  added connection code.
tested, works.


svn path=/branches/new-fu/; revision=264

1 files changed, 33 insertions, 3 deletions

diff --git a/server/scireserver.pl b/server/scireserver.pl
index 2c7a718..30251e5 100755
--- a/server/scireserver.pl
+++ b/server/scireserver.pl
@@ -2,13 +2,25 @@
 
 use strict;
 use warnings;
+use DBI;
+use Data::Dumper;
 
 $| = 1;
-my $jobdir = "/tmp/scirejobs";
+
+my $SCIRE_CONFIG_FILE = '../etc/scireserver.conf'; #will be /etc/scire.conf when released.
+my %conf;
+	
+my $conf_file = (defined($conf{config})) ? $conf{config} : $SCIRE_CONFIG_FILE;
+read_config_file($conf_file);
+Dumper(\%conf);
+#Connect to the Database.
+my $connect_string = "DBI:$conf{db_type}:$conf{db_name};host=$conf{db_host}";
+#print STDERR "Connecting to $connect_string\n";
+my $dbh = DBI->connect($connect_string, $conf{db_user}, $conf{db_passwd},  { RaiseError => 1 }  )
+	or die "Could not connect to database: $DBI::errstr";
 
 while(<>) {
-  my $line = $_;
-  chomp $line;
+	chomp( my $line = $_);
   if($line =~ /^IDENTIFY (.+)$/) {
     my $rand_int = int(rand(3));
     if($rand_int == 0) {
@@ -25,3 +37,21 @@ while(<>) {
     print "ERROR Unknown command\n";
   }
 }
+
+
+sub read_config_file {
+	my $conf_file = shift;
+	open(FH, "< ${conf_file}") or die("Couldn't open the config file ${conf_file}: $!");
+	while (<FH>) {
+		chomp;
+		next if /^\s*(?:#|$)/;
+		if(/^\s*(.+?)\s*=\s*(.+?)\s*(?:#.*)?$/) {
+			unless(defined($conf{lc($1)})) {  #Don't overwrite anything specified in cmdline
+				$conf{lc($1)} = $2;
+			}
+		}
+	}
+	close(FH) or die("Couldn't close the config file ${conf_file}: $!");
+#	print "Conf file $conf_file read.\n";
+}
+