Renamed API/Standard to API/API and added API::conf_get()

src/API/API.pm

@@ -0,0 +1,44 @@
+# 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;
+
+# Standard API subroutines.
+package API;
+
+# Configuration value getter.
+sub conf_get
+{
+	my ($value) = @_;
+	
+	# Create an array out of the value.
+	my @val;
+	if ($value =~ m/:/) {
+		@val = split(':', $value);
+	}
+	else {
+		@val = ($value);
+	}
+	# Undefine this as it's unnecessary now.
+	undef $value;
+	
+	# Get the count of elements in the array.
+	my $count = scalar(@val);
+	
+	# Return the requested configuration value(s).
+	if ($count == 1) {
+		return $Auto::SETTINGS{c}{$val[0]};
+	}
+	elsif ($count == 2) {
+		return $Auto::SETTINGS{c}{$val[0]}{$val[1]};
+	}
+	elsif ($count == 3) {
+		return $Auto::SETTINGS{c}{$val[0]}{$val[1]}{$val[2]};
+	}
+	else {
+		return 0;
+	}	
+}
+
+1;

src/API/Standard.pm

@@ -1,8 +0,0 @@
-# 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;
-
-# Standard API.
-package API;