From 6e979ced56981d4516d44ed8d70ce3e520207d9e Mon Sep 17 00:00:00 2001
From: Elijah Perrault <elijah@starcoder.info>
Date: Sun, 16 Jan 2011 00:39:39 -0700
Subject: [PATCH] println() API function.

---
 bin/auto       |  3 ++-
 src/API/Log.pm | 53 ++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 55 insertions(+), 1 deletion(-)
 create mode 100644 src/API/Log.pm

diff --git a/bin/auto b/bin/auto
index 5c977f6..e7054e9 100755
--- a/bin/auto
+++ b/bin/auto
@@ -15,6 +15,7 @@ use FindBin qw($Bin);
 our $Bin = $Bin;
 unshift(@INC, "$Bin/../src");
 require API::Std;
+require API::Log;
 #require DB::Flatfile;
 require Parser::Config;
 require Parser::Lang;
@@ -35,6 +36,6 @@ our %SETTINGS = $CONF->parse;
 my @lclv = API::Std::conf_get("locale");
 our $LOCALE = $lclv[0][0];
 my @lang = split('_', $LOCALE);
-Parser::Lang::parse($lang[0]) or print ".\n" and exit;
+Parser::Lang::parse($lang[0]);
 undef @lang;
 undef @lclv;
diff --git a/src/API/Log.pm b/src/API/Log.pm
new file mode 100644
index 0000000..81cfd87
--- /dev/null
+++ b/src/API/Log.pm
@@ -0,0 +1,53 @@
+# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
+# Copyright (C) 2010-2011 Xelhua Development Team (doc/CREDITS)
+# This program is free software; rights to this code are stated in doc/LICENSE.
+use strict;
+use warnings;
+use Exporter;
+use API::Std qw(conf_get);
+
+# API logging subroutines.
+package API::Log;
+
+our @ISA = qw(Exporter);
+our @EXPORT_OK = qw(println dbug alog);
+
+
+# Print with the system newline appended.
+sub println
+{
+	my ($out) = @_;
+	
+	my ($nl);
+	if ($^O =~ /dos/i or $^O =~ /win/i or $^O =~ /netware/i) {
+		$nl = "\r\n";
+	}
+	elsif ($^O =~ /linux/i or $^O =~ /bsd/i) {
+		$nl = "\n";
+	}
+	elsif ($^O =~ /mac/i or $^O =~ /darwin/i) {
+		$nl = "\r";
+	}
+	else {
+		$nl = "\r\n";
+	}
+	
+	print $out.$nl;
+	
+	return 1;
+}
+
+# Print only if in debug mode.
+sub dbug
+{
+	
+}
+
+# Log to file.
+sub alog
+{
+	
+}
+
+
+1;