Fix name headers.

auto

@@ -1,4 +1,6 @@
 #!/bin/sh
+
+# auto - Launcher.
 # Copyright (C) 2010-2011 Xelhua Development Group, et al.
 # Written in sh because the user may not have Perl...to run Auto....
 

bin/auto

@@ -1,6 +1,6 @@
 #!/usr/bin/env perl
 
-# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
+# bin/auto - Main file.
 # Copyright (C) 2010-2011 Xelhua Development Group, et al.
 # This program is free software; rights to this code are stated in doc/LICENSE.
 package Auto;

bin/buildmod

@@ -1,5 +1,6 @@
 #!/usr/bin/env perl
-# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
+
+# bin/buildmod - Module builder.
 # Copyright (C) 2010-2011 Xelhua Development Group, et al.
 # This program is free software; rights to this code are stated in doc/LICENSE.
 use 5.010_000;

bin/critic

@@ -1,5 +1,6 @@
 #!/usr/bin/env perl
-# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
+
+# bin/critic - Perl::Critic script.
 # Copyright (C) 2010-2011 Xelhua Development Group, et al.
 # This program is free software; rights to this code are stated in doc/LICENSE.
 require 5.010000;

bin/genssl

@@ -1,5 +1,6 @@
 #!/usr/bin/env perl
-# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
+
+# bin/genssl - SSL CertFP generation script.
 # Copyright (C) 2010-2011 Xelhua Development Group, et al.
 # This program is free software; rights to this code are stated in doc/LICENSE.
 

install

@@ -1,5 +1,6 @@
 #!/usr/bin/env perl
-# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
+
+# install - Installation wizard.
 # Copyright (C) 2010-2011 Xelhua Development Group, et al.
 # This program is free software; rights to this code are stated in doc/LICENSE.
 package Install;

lang/de.alf

@@ -1,9 +1,7 @@
-# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
+# lang/de.alf - German translation file.
 # Copyright (C) 2010-2011 Xelhua Development Group, et al.
 # This program is free software; rights to this code are stated in doc/LICENSE.
 
-# German translation file.
-
 
 # Permission denied - Keine Berechtigung
 msge "Permission_denied" "Keine Berechtigung"

lang/en.alf

@@ -1,9 +1,7 @@
-# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
+# lang/en.alf - English translation file.
 # Copyright (C) 2010-2011 Xelhua Development Group, et al.
 # This program is free software; rights to this code are stated in doc/LICENSE.
 
-# English translation file.
-
 
 # Permission denied - Permission denied
 msge "Permission_denied" "Permission denied"

lang/es.alf

@@ -1,10 +1,8 @@
-# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
+# lang/es.alf - Spanish translation file.
+# Contributed by Matthew Burket.
 # Copyright (C) 2010-2011 Xelhua Development Group, et al.
 # This program is free software; rights to this code are stated in doc/LICENSE.
 
-# Spanish translation file.
-# Contributed by Matthew Burket.
-
 
 # Permission denied - Permiso denegado
 msge "Permission_denied" "Permiso denegado"

lang/fr.alf

@@ -1,9 +1,7 @@
-# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
+# lang/fr.alf - French translation file.
 # Copyright (C) 2010-2011 Xelhua Development Group, et al.
 # This program is free software; rights to this code are stated in doc/LICENSE.
 
-# French translation file.
-
 
 # Permission denied - Autorisation refusée
 msge "Permission_denied" "Autorisation refusée"

lib/API/IRC.pm

@@ -1,8 +1,6 @@
-# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
+# lib/API/IRC.pm - IRC API subroutines.
 # Copyright (C) 2010-2011 Xelhua Development Group, et al.
 # This program is free software; rights to this code are stated in doc/LICENSE.
-
-# IRC API subroutines.
 package API::IRC;
 use strict;
 use warnings;

lib/API/Log.pm

@@ -1,8 +1,6 @@
-# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
+# lib/API/Log.pm - API logging subroutines.
 # Copyright (C) 2010-2011 Xelhua Development Group, et al.
 # This program is free software; rights to this code are stated in doc/LICENSE.
-
-# API logging subroutines.
 package API::Log;
 use strict;
 use warnings;

lib/API/Std.pm

@@ -1,8 +1,6 @@
-# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
+# lib/API/Std.pm - Standard API subroutines.
 # Copyright (C) 2010-2011 Xelhua Development Group, et al.
 # This program is free software; rights to this code are stated in doc/LICENSE.
-
-# Standard API subroutines.
 package API::Std;
 use strict;
 use warnings;

lib/Core/Cmd.pm

@@ -1,8 +1,6 @@
-# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
+# lib/Core/Cmd.pm - Core commands.
 # Copyright (C) 2010-2011 Xelhua Development Group, et al.
 # This program is free software; rights to this code are stated in doc/LICENSE.
-
-# Core::Cmd - Core commands.
 package Core::Cmd;
 use strict;
 use warnings;

lib/Core/IRC.pm

@@ -1,8 +1,6 @@
-# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
+# lib/Core/IRC.pm - Core IRC hooks.
 # Copyright (C) 2010-2011 Xelhua Development Group, et al.
 # This program is free software; rights to this code are stated in doc/LICENSE.
-
-# Core::IRC - Core IRC hooks.
 package Core::IRC;
 use strict;
 use warnings;

lib/DB/Flatfile.pm

@@ -1,133 +0,0 @@
-# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
-# Copyright (C) 2010-2011 Xelhua Development Group, et al.
-# This program is free software; rights to this code are stated in doc/LICENSE.
-
-# Database subroutines for the Auto-Flatfile database format.
-package DB;
-use strict;
-use warnings;
-
-my (%MEM);
-
-
-# Database initial loading.
-sub load
-{
-	# Open, read and close the database.
-	open(my $FDB, q{<}, "$Auto::Bin/../etc/auto.db") or return 0;
-	my @fbuf = <$FDB> or return 0;
-	close $FDB or return 0;
-	
-	# Make sure the database version is compatible.
-	if ($fbuf[0] ne "DBV Auto-Flatfile_1.0\n") {
-		# It is not. Bail.
-		return 0;
-	}
-	
-	# Iterate the buffer.
-	foreach my $buff (@fbuf) {
-		# Check if the buffer is defined.
-		if (defined $buff) {
-			# Space buffer.
-			my @lbuf = split(' ', $buff);
-			
-			# Check if the first two values are defined.
-			if (defined $lbuf[0] and defined $lbuf[1]) {
-				# Make sure it isn't DBV.
-				if ($lbuf[0] eq "DBV") {
-					next;
-				}
-				# Get a count of the values in the buffer minus one.
-				my $c = scalar(@lbuf) - 1;
-				
-				# Create an array of the values excluding the first.
-				my @vs;
-				for (my $i = $c; $i <= $c; $i++) {
-					push(@vs, $lbuf[$i]);
-				}
-				
-				# Insert data into memory.
-				if (defined $MEM{$lbuf[0]}) {
-					# There is a database entry of the same name already, add to existing array.
-					push(@{ $MEM{$lbuf[0]} }, [ @vs ]);
-				}
-				else {
-					# This is the first database entry of this name, create an array.
-					@{ $MEM{$lbuf[0]} } = [ @vs ];
-				}
-			}
-		}
-	}		
-	return 1;
-}
-
-# Database flush to disk.
-sub flush
-{
-	my $wd = "DBV Auto-Flatfile_1.0\n";
-	# Iterate through all the database data in memory.
-	foreach my $mek (keys %MEM) {
-		foreach my $mas (@{ $MEM{$mek} }) {
-			$wd .= $mek;
-			foreach my $masl (@{ $mas }) {
-				$wd .= " ".$masl;
-			}
-			$wd .= "\n";
-		}
-	}
-	
-	# Write to disk.
-	unless (-e "$Auto::Bin/../etc/auto.db") {
-		`touch $Auto::Bin/../etc/auto.db`;
-	}
-	open(my $FDB, q{>}, "$Auto::Bin/../etc/auto.db") or return 0;
-	print $FDB $wd or return 0;
-	close $FDB or return 0;
-	
-	return 1;
-}
-
-# Get database value.
-sub get
-{
-	my ($name) = @_;
-	
-	if (defined $MEM{$name}) {
-		return $MEM{$name};
-	}
-	else {
-		return 0;
-	}
-}
-
-# Write to database.
-sub mwrite
-{
-	my ($name, @values) = @_;
-	
-	if (defined $MEM{$name}) {
-		# There is a database entry of the same name already, add to existing array.
-		push(@{ $MEM{$name} }, [ @values ]);
-	}
-	else {
-		# This is the first database entry of this name, create an array.
-		@{ $MEM{$name} } = [ @values ];
-	}
-	
-	return 1;
-}
-
-# Delete from database.
-sub mdelete
-{
-	my ($name, $i) = @_;
-	
-	if (defined $MEM{$name}[$i]) {
-		delete $MEM{$name}[$i];
-	}
-	
-	return 1;
-}
-
-
-1;

lib/Lib/Auto.pm

@@ -1,4 +1,4 @@
-# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
+# lib/Lib/Auto.pm - Core Auto subroutines.
 # Copyright (C) 2010-2011 Xelhua Development Group, et al.
 # This program is free software; rights to this code are stated in doc/LICENSE.
 package Lib::Auto;

lib/Lib/Install.pm

@@ -1,4 +1,4 @@
-# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
+# lib/Lib/Install.pm - Installation subroutines.
 # Copyright (C) 2010-2011 Xelhua Development Group, et al.
 # This program is free software; rights to this code are stated in doc/LICENSE.
 package Lib::Install;

lib/Parser/Config.pm

@@ -1,8 +1,6 @@
-# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
+# lib/Parser/Config.pm - Configuration parser.
 # Copyright (C) 2010-2011 Xelhua Development Group, et al.
 # This program is free software; rights to this code are stated in doc/LICENSE.
-
-# Parser::Config - Configuration parser.
 package Parser::Config;
 use strict;
 use warnings;

lib/Parser/IRC.pm

@@ -1,8 +1,6 @@
-# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
+# lib/Parser/IRC.pm - Subroutines for parsing incoming data from IRC.
 # Copyright (C) 2010-2011 Xelhua Development Group, et al.
 # This program is free software; rights to this code are stated in doc/LICENSE.
-
-# Parser::IRC - Subroutines for parsing incoming data from IRC.
 package Parser::IRC;
 use strict;
 use warnings;

lib/Parser/Lang.pm

@@ -1,8 +1,6 @@
-# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
+# lib/Parser/Lang.pm - Language file parser.
 # Copyright (C) 2010-2011 Xelhua Development Group, et al.
 # 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;

modules/Badwords.pm

@@ -1,4 +1,4 @@
-# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
+# Module: Badwords. See below for documentation.
 # Copyright (C) 2010-2011 Xelhua Development Group, et al.
 # This program is free software; rights to this code are stated in doc/LICENSE.
 package m_Badwords;

modules/Bitly.pm

@@ -1,4 +1,4 @@
-# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
+# Module: Bitly. See below for documentation.
 # Copyright (C) 2010-2011 Xelhua Development Group, et al.
 # This program is free software; rights to this code are stated in doc/LICENSE.
 package m_Bitly;

modules/Calc.pm

@@ -1,4 +1,4 @@
-# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
+# Module: Calc. See below for documentation.
 # Copyright (C) 2010-2011 Xelhua Development Group, et al.
 # This program is free software; rights to this code are stated in doc/LICENSE.
 package m_Calc;

modules/EightBall.pm

@@ -1,4 +1,4 @@
-# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
+# Module: EightBall. See below for documentation.
 # Copyright (C) 2010-2011 Xelhua Development Group, et al.
 # This program is free software; rights to this code are stated in doc/LICENSE.
 package m_EightBall;

modules/FML.pm

@@ -1,4 +1,4 @@
-# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
+# Module: FML. See below for documentation.
 # Copyright (C) 2010-2011 Xelhua Development Group, et al.
 # This program is free software; rights to this code are stated in doc/LICENSE.
 package m_FML;

modules/HelloChan.pm

@@ -1,4 +1,4 @@
-# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
+# Module: HelloChan.
 # Copyright (C) 2010-2011 Xelhua Development Group, et al.
 # This program is free software; rights to this code are stated in doc/LICENSE.
 package m_HelloChan;

modules/IsItUp.pm

@@ -1,4 +1,4 @@
-# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
+# Module: IsItUp. See below for documentation.
 # Copyright (C) 2010-2011 Xelhua Development Group, et al.
 # This program is free software; rights to this code are stated in doc/LICENSE.
 package m_IsItUp;

modules/QDB.pm

@@ -1,4 +1,4 @@
-# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
+# Module: QDB. See below for documentation.
 # Copyright (C) 2010-2011 Xelhua Development Group, et al.
 # This program is free software; rights to this code are stated in doc/LICENSE.
 package m_QDB;

modules/SASLAuth.pm

@@ -1,4 +1,4 @@
-# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
+# Module: SASLAuth. See below for documentation.
 # Copyright (C) 2010-2011 Xelhua Development Group, et al.
 # This program is free software; rights to this code are stated in doc/LICENSE.
 package m_SASLAuth;

modules/Weather.pm

@@ -1,4 +1,4 @@
-# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
+# Module: Weather. See below for documentation.
 # Copyright (C) 2010-2011 Xelhua Development Group, et al.
 # This program is free software; rights to this code are stated in doc/LICENSE.
 package m_Weather;