sydney/Autobot
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed a bug and started sockets.

Browse Source
This commit is contained in:
Elijah Perrault committed 2011-01-17 11:56:29 -07:00
1 parent b00085fc2f
commit 8917048b80
1 file changed
+8 -2
Download Patch File Download Diff File Expand all files Collapse all files
bin/auto
+8 -2
View File
@@ -50,10 +50,14 @@ our %SETTINGS = $CONF->parse or err(1, "Failed to parse configuration file!", 1)
println "Success"; println "Success";
# Check for required configuration values. # Check for required configuration values.
my @REQCVALS = qw(locale expire_logs); my @REQCVALS = qw(locale expire_logs servers);
foreach my $REQCVAL (@REQCVALS) { foreach my $REQCVAL (@REQCVALS) {
if (!conf_get($REQCVAL)) { 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; undef @REQCVALS;
@@ -73,3 +77,5 @@ alog "Auto successfully started.";
# Expire old logs. # Expire old logs.
API::Log::expire_logs(); API::Log::expire_logs();
# Create sockets.
my @cservers = conf_get("server");