Renamed src/ to lib/ because it's more Perly.

lib/Parser/Lang.pm

@@ -0,0 +1,69 @@
+# 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.
+
+# Parser::Lang - Language file parser.
+package Parser::Lang;
+use strict;
+use warnings;
+use API::Log qw(dbug alog);
+
+
+# Parser.
+sub parse
+{
+	my ($lang) = @_;
+	
+	# Check that the language file exists.
+	unless (-e "$Auto::Bin/../lang/$lang.alf") {
+		# Otherwise, use English.
+		dbug "Language '$lang' not found. Using English.";
+		alog "Language '$lang' not found. Using English.";
+		$lang = "en";
+	}
+	
+	# Open, read and close the file.
+	open(my $FALF, q{<}, "$Auto::Bin/../lang/$lang.alf") or return 0;
+	my @fbuf = <$FALF>;
+	close $FALF;
+	
+	# Iterate the file buffer.
+	foreach my $buff (@fbuf) {
+		if (defined $buff) {
+			# Space buffer.
+			my @sbuf = split(' ', $buff);
+			
+			# Check for all required values.
+			if (!defined $sbuf[0] or !defined $sbuf[1] or !defined $sbuf[2]) {
+				# Missing a value.
+				next;
+			}
+			
+			# Make sure the first value is "msge".
+			if ($sbuf[0] ne "msge") {
+				# It isn't.
+				next;
+			}
+			
+			my $id = $sbuf[1];
+			my $val = $sbuf[2];
+			
+			# If the translation is multi-word, continue to parse.
+			if (defined $sbuf[3]) {
+				for (my $i = 3; $i < scalar(@sbuf); $i++) {
+					$val .= " ".$sbuf[$i];
+				}
+			}
+			
+			# Save to memory.
+			$id =~ s/"//g;
+			$val =~ s/"//g;
+			$API::Std::LANGE{$id} = $val;
+		}
+	}
+	return 1;
+}
+
+
+1;
+# vim: set ai sw=4 ts=4: