From c1e1a325890d630924ea1869711fad40f929dacb Mon Sep 17 00:00:00 2001
From: Elijah Perrault <elijah@starcoder.info>
Date: Sat, 29 Jan 2011 11:45:59 -0700
Subject: [PATCH] Code cleanup.

---
 src/API/Log.pm | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/src/API/Log.pm b/src/API/Log.pm
index cd80330..b992417 100644
--- a/src/API/Log.pm
+++ b/src/API/Log.pm
@@ -53,18 +53,18 @@ sub alog
 	my $time = POSIX::strftime("%Y-%m-%d %I:%M:%S %p", localtime);
 	
 	# Create var/ if it doesn't exist.
-	unless (-d "$Auto::Bin/../var") {
-		`mkdir $Auto::Bin/../var`;
+	if (!-d "$Auto::Bin/../var") {
+		system("mkdir $Auto::Bin/../var");
 	}
 	# Create var/DATE.log if it doesn't exist.
-	unless (-e "$Auto::Bin/../var/$date.log") {
-		`touch $Auto::Bin/../var/$date.log`;
-	}
+	if (!-e "$Auto::Bin/../var/$date.log") {
+		system("touch $Auto::Bin/../var/$date.log");
+	}	
 	
 	# Open the logfile, print the log message to it and close it.
-	open LOG, ">>$Auto::Bin/../var/$date.log" or return 0;
-	print LOG "[$time] $lmsg\n" or return 0;
-	close LOG or return 0;
+	open(my $FLOG, q{>>}, "$Auto::Bin/../var/$date.log") or return 0;
+	print $FLOG "[$time] $lmsg\n" or return 0;
+	close $FLOG or return 0;
 	
 	return 1;
 }
@@ -98,7 +98,7 @@ sub expire_logs
 		
 		# If it's older than <config_value> days, delete it.
 		if (time - $epoch > 86400 * $celog) {
-			`rm $Auto::Bin/../var/$file`;
+			system("rm $Auto::Bin/../var/$file");
 		}
 	}
 }