From ce6c0c5e3a0718f09c05645b0412ef1b1029a95c Mon Sep 17 00:00:00 2001
From: Elijah Perrault <elijah@starcoder.info>
Date: Sat, 1 Jan 2011 23:29:25 -0700
Subject: [PATCH] Created a custom configuration parser.

---
 bin/auto             |   7 ++-
 src/Parser/Config.pm | 130 +++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 135 insertions(+), 2 deletions(-)
 create mode 100644 src/Parser/Config.pm

diff --git a/bin/auto b/bin/auto
index e41b72d..4ce1a8d 100755
--- a/bin/auto
+++ b/bin/auto
@@ -8,13 +8,14 @@ use strict;
 use warnings;
 use POSIX;
 use IO::Socket;
+use Data::Dumper;
 use FindBin qw($Bin);
 our $Bin = $Bin;
 unshift(@INC, "$Bin/../src");
 #require Lang::Gettext;
 #require API::Standard;
 #require DB::Flatfile;
-#require Parser::Config;
+require Parser::Config;
 #require Parser::IRC;
 #require IRC::Standard;
 #require Sys::Full;
@@ -25,5 +26,7 @@ use constant {
 	SVER   => 0,
 	REV    => 0,
 	RSTAGE => 'd'
-}
+};
 
+our $CONF = Parser::Config->new("auto.conf") or print "Failed to open configuration file.\n" and exit;
+our %SETTINGS = $CONF->parse;
diff --git a/src/Parser/Config.pm b/src/Parser/Config.pm
new file mode 100644
index 0000000..2b60386
--- /dev/null
+++ b/src/Parser/Config.pm
@@ -0,0 +1,130 @@
+# 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.
+package Parser::Config;
+use strict;
+use warnings;
+
+sub new 
+{
+    my $class = shift;
+    my ($file) = @_;
+    my $self = bless {}, $class;
+
+	if (!-e "$Auto::Bin/../etc/$file") {
+		return 0;
+	}
+	
+	open CONF, "<$Auto::Bin/../etc/$file" or return 0;
+	my @cosfl = <CONF> or return 0;
+	close CONF or return 0;
+	
+	$self->{'config'}->{'path'} = "$Auto::Bin/../etc/$file";
+
+    return $self;
+}
+
+# Parse the configuration file.
+sub parse 
+{
+	# Get the path to the file.
+	my $self = shift;
+	my $file = $self->{'config'}->{'path'};
+	my $blk = 0;
+	my (%rs);
+	
+	# Open, read and close it.
+	open CONF, "<$file" or return 0;
+	my @fbuf = <CONF> or return 0;
+	close CONF or return 0;
+	
+	# Iterate the file.
+	foreach my $buff (@fbuf) {
+		# Main newline buffer.
+		if (defined $buff) {
+			# If the line begins with a #, it's a comment so ignore it.
+			if (substr($buff, 0, 1) eq '#') {
+				next;
+			}
+			
+			if ($buff =~ m/;/) {
+				# Semicolon buffer.
+				my @asbuf = split(';', $buff);
+				foreach my $asbuff (@asbuf) {
+					if (defined $asbuff) {
+						
+						# Space buffer.
+						my @ebuf = split(' ', $asbuff);
+						if (!defined $ebuf[0] or !defined $ebuf[1]) {
+							# Garbage. Ignoring.
+							next;
+						}
+						my $param = $ebuf[1];
+						$param =~ s/"//g;
+						my @param = ($param);
+							
+						unless ($blk eq 0) {
+							if ($blk =~ m/@@@/) {
+								my @sblk = split('@@@', $blk);
+								
+								if (defined $rs{c}{$sblk[0]}{$sblk[1]}{$ebuf[0]}) {
+									push(@{ $rs{c}{$sblk[0]}{$sblk[1]}{$ebuf[0]} }, $param);
+								}
+								else {
+									@{ $rs{c}{$sblk[0]}{$sblk[1]}{$ebuf[0]} } = @param;
+								}
+							}
+							else {
+								$rs{c}{$blk}{$ebuf[0]} = $ebuf[1];
+								
+								if (defined $rs{c}{$blk}{$ebuf[0]}) {
+									push(@{ $rs{c}{$blk}{$ebuf[0]} }, $param);
+								}
+								else {
+									@{ $rs{c}{$blk}{$ebuf[0]} } = @param;
+								}
+							}
+						}
+						else {
+							if (defined $rs{c}{$ebuf[0]}) {
+								push(@{ $rs{c}{$ebuf[0]} }, $param);
+							}
+							else {
+								@{ $rs{c}{$ebuf[0]} } = @param;
+							}
+						}	
+					}
+				}
+			}
+			else {
+				my @ebuf = split(' ', $buff);
+				
+				if (!defined $ebuf[0]) {
+					# Garbage. Ignoring.
+					next;
+				}
+				
+				if (defined $ebuf[1]) {
+					if ($ebuf[1] eq '{') {
+						# This is the beginning of a block with no parameter.
+						$blk = $ebuf[0];
+					}
+					elsif (defined $ebuf[2]) {
+						if ($ebuf[2] eq '{') {
+							# This is the beginning of a block with a parameter.
+							my $param = $ebuf[1];
+							$param =~ s/"//g;
+							$blk = $ebuf[0].'@@@'.$param;
+						}
+					}
+				}
+				if ($ebuf[0] eq '}') {
+					$blk = 0;
+				}
+			}
+		}
+	}	
+	return %rs;				
+}
+
+1;