From 8917048b805ee951685f58e06431ca889c94c546 Mon Sep 17 00:00:00 2001
From: Elijah Perrault <elijah@starcoder.info>
Date: Mon, 17 Jan 2011 11:56:29 -0700
Subject: [PATCH] Fixed a bug and started sockets.

---
 bin/auto | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/bin/auto b/bin/auto
index 4c3ecb8..3d6b640 100755
--- a/bin/auto
+++ b/bin/auto
@@ -50,10 +50,14 @@ our %SETTINGS = $CONF->parse or err(1, "Failed to parse configuration file!", 1)
 println "Success";
 
 # Check for required configuration values.
-my @REQCVALS = qw(locale expire_logs);
+my @REQCVALS = qw(locale expire_logs servers);
 foreach my $REQCVAL (@REQCVALS) {
 	if (!conf_get($REQCVAL)) {
-		err(2, "Missing required configuration value: $REQCVAL", 1);
+		my $err = 2;
+		if ($REQCVAL eq "expire_logs") {
+			$err = 1;
+		}
+		err($err, "Missing required configuration value: $REQCVAL", 1);
 	}
 }
 undef @REQCVALS;
@@ -73,3 +77,5 @@ alog "Auto successfully started.";
 # Expire old logs.
 API::Log::expire_logs();
 
+# Create sockets.
+my @cservers = conf_get("server");