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

Additional println() modifications.

Browse Source
This commit is contained in:
Timothy Estes committed 2011-01-18 20:08:17 -05:00
1 parent db9417e5b8
commit 55eb8d282c
1 file changed
+3 -2
Download Patch File Download Diff File Expand all files Collapse all files
bin/auto
+3 -2
View File
@@ -47,7 +47,7 @@ if (defined $ARGV[0]) {
println "* Parsing configuration file auto.conf..."; println "* Parsing configuration file auto.conf...";
our $CONF = Parser::Config->new("auto.conf") or err(1, "Failed to parse configuration file!", 1); our $CONF = Parser::Config->new("auto.conf") or err(1, "Failed to parse configuration file!", 1);
our %SETTINGS = $CONF->parse or err(1, "Failed to parse configuration file!", 1); our %SETTINGS = $CONF->parse or err(1, "Failed to parse configuration file!", 1);
println "Success"; println "Great Success!";
# Check for required configuration values. # Check for required configuration values.
my @REQCVALS = qw(locale expire_logs servers); my @REQCVALS = qw(locale expire_logs servers);
@@ -68,7 +68,7 @@ our $LOCALE = (conf_get("locale"))[0][0];
my @lang = split('_', $LOCALE); my @lang = split('_', $LOCALE);
Parser::Lang::parse($lang[0]) or err(2, "Failed to parse translation files!", 1); Parser::Lang::parse($lang[0]) or err(2, "Failed to parse translation files!", 1);
undef @lang; undef @lang;
println "(Great) Success!"; println "Great Success!";
our $STARTTIME = time; our $STARTTIME = time;
println "* Auto successfully started at ".POSIX::strftime("%Y-%m-%d %I:%M:%S %p", localtime)."."; println "* Auto successfully started at ".POSIX::strftime("%Y-%m-%d %I:%M:%S %p", localtime).".";
@@ -78,5 +78,6 @@ alog "Auto successfully started.";
API::Log::expire_logs(); API::Log::expire_logs();
# Create sockets. # Create sockets.
println "* Connecting to servers...";
my %cservers = conf_get("server"); my %cservers = conf_get("server");
# Aww... we ran out of steam. :/ # Aww... we ran out of steam. :/