From 8ca426316a00b24c032e5f43b2e394eb694f25e2 Mon Sep 17 00:00:00 2001
From: Elijah Perrault <elijah@starcoder.info>
Date: Thu, 20 Jan 2011 21:43:39 -0700
Subject: [PATCH] Added awarn() to API::Std for warnings.

---
 doc/CHANGELOG  |  1 +
 src/API/Std.pm | 20 ++++++++++++++++++++
 2 files changed, 21 insertions(+)

diff --git a/doc/CHANGELOG b/doc/CHANGELOG
index 409ac3e..e371a38 100644
--- a/doc/CHANGELOG
+++ b/doc/CHANGELOG
@@ -3,6 +3,7 @@ Auto IRC Bot 3.0: Change Log
 
 3.0 Indev
 ==================================================================
+    * Added awarn() to API::Std for warnings.
     * Parse Numeric:432.
     * Parse Numeric:433.
     * Added nick() to API::IRC.
diff --git a/src/API/Std.pm b/src/API/Std.pm
index bdf4de8..a10f658 100644
--- a/src/API/Std.pm
+++ b/src/API/Std.pm
@@ -193,4 +193,24 @@ sub err
 	}
 }
 
+# Warn subroutine.
+sub awarn
+{
+	my ($lvl, $msg) = @_;
+	
+	# Check for an invalid level.
+	if ($lvl =~ m/[^0-9]/) {
+		return 0;
+	}
+	
+	# Level 1: Print to screen.
+	if ($lvl >= 1) {
+		API::Log::println("WARNING: $msg");
+	}
+	# Level 2: Log to file.
+	if ($lvl >= 2) {
+		API::Log::alog("WARNING: $msg");
+	}
+}
+
 1;