From 64c48cbb28ddaeb1580049376c3c7be8dabb3081 Mon Sep 17 00:00:00 2001
From: Elijah Perrault <elijah@starcoder.info>
Date: Sun, 16 Jan 2011 22:55:49 -0700
Subject: [PATCH] Added API function alog()

---
 src/API/Log.pm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/src/API/Log.pm b/src/API/Log.pm
index 14f2999..2da827f 100644
--- a/src/API/Log.pm
+++ b/src/API/Log.pm
@@ -50,8 +50,19 @@ sub alog
 {
 	my ($lmsg) = @_;
 	
-	my $date = POSIX::strftime("%Y%m%d", time);
+	my $date = POSIX::strftime("%Y%m%d", localtime);
+	my $time = POSIX::strftime("%Y-%m-%d %I:%M:%S %p", localtime);
 	
+	unless (-d "$Auto::Bin/../var") {
+		`mkdir $Auto::Bin/../var`;
+	}
+	unless (-e "$Auto::Bin/../var/$date.log") {
+		`touch $Auto::Bin/../var/$date.log`;
+	}
+	
+	open LOG, ">>$Auto::Bin/../var/$date.log" or return 0;
+	print LOG "[$time] $lmsg\n" or return 0;
+	close LOG or return 0;
 	
 	return 1;
 }