15 files changed, 133 insertions, 32 deletions
diff --git a/config-db/OpenSLX/Basics.pm b/config-db/OpenSLX/Basics.pm
index 08a6fa89..9bb721d9 100644
--- a/config-db/OpenSLX/Basics.pm
+++ b/config-db/OpenSLX/Basics.pm
@@ -1,3 +1,9 @@
+# Basics.pm - provides basic functionality of the OpenSLX config-db.
+#
+# (c) 2006 - OpenSLX.com
+#
+# Oliver Tappe <ot@openslx.com>
+#
 package OpenSLX::Basics;
 
 use strict;
diff --git a/config-db/OpenSLX/ConfigDB.pm b/config-db/OpenSLX/ConfigDB.pm
index 9e2ab0fd..45c414e5 100644
--- a/config-db/OpenSLX/ConfigDB.pm
+++ b/config-db/OpenSLX/ConfigDB.pm
@@ -1,3 +1,9 @@
+# ConfigDB.pm - provides full API of the OpenSLX config-db.
+#
+# (c) 2006 - OpenSLX.com
+#
+# Oliver Tappe <ot@openslx.com>
+#
 package OpenSLX::ConfigDB;
 
 use strict;
diff --git a/config-db/OpenSLX/DBSchema.pm b/config-db/OpenSLX/DBSchema.pm
index 3b1a9223..df20d810 100644
--- a/config-db/OpenSLX/DBSchema.pm
+++ b/config-db/OpenSLX/DBSchema.pm
@@ -1,3 +1,9 @@
+# DBSchema.pm - provides database schema of the OpenSLX config-db.
+#
+# (c) 2006 - OpenSLX.com
+#
+# Oliver Tappe <ot@openslx.com>
+#
 package OpenSLX::DBSchema;
 
 use strict;
diff --git a/config-db/OpenSLX/MetaDB/Base.pm b/config-db/OpenSLX/MetaDB/Base.pm
index 832544bd..6a0371b0 100644
--- a/config-db/OpenSLX/MetaDB/Base.pm
+++ b/config-db/OpenSLX/MetaDB/Base.pm
@@ -1,3 +1,9 @@
+# Base.pm - provides empty base of the OpenSLX MetaDB API.
+#
+# (c) 2006 - OpenSLX.com
+#
+# Oliver Tappe <ot@openslx.com>
+#
 ################################################################################
 # OpenSLX::MetaDB:Base - the base class for all MetaDB drivers
 #
diff --git a/config-db/OpenSLX/MetaDB/CSV.pm b/config-db/OpenSLX/MetaDB/CSV.pm
index da11f39b..bfcac9d8 100644
--- a/config-db/OpenSLX/MetaDB/CSV.pm
+++ b/config-db/OpenSLX/MetaDB/CSV.pm
@@ -1,3 +1,9 @@
+# CSV.pm - provides CSV-specific overrides of the OpenSLX MetaDB API.
+#
+# (c) 2006 - OpenSLX.com
+#
+# Oliver Tappe <ot@openslx.com>
+#
 package OpenSLX::MetaDB::CSV;
 
 use vars qw(@ISA $VERSION);
diff --git a/config-db/OpenSLX/MetaDB/DBI.pm b/config-db/OpenSLX/MetaDB/DBI.pm
index ac8401c2..f42ac506 100644
--- a/config-db/OpenSLX/MetaDB/DBI.pm
+++ b/config-db/OpenSLX/MetaDB/DBI.pm
@@ -1,23 +1,16 @@
+# DBI.pm - provides DBI-based implementation of the OpenSLX MetaDB API.
+#
+# (c) 2006 - OpenSLX.com
+#
+# Oliver Tappe <ot@openslx.com>
+#
 package OpenSLX::MetaDB::DBI;
 
+use strict;
 use vars qw(@ISA $VERSION);
 @ISA = ('OpenSLX::MetaDB::Base');
 $VERSION = 1.01;		# API-version . implementation-version
 
-################################################################################
-### This class is the base for all DBI-related metaDB variants.
-### It provides a default implementation for every method, such that
-### each DB-specific implementation needs to override only the methods
-### that require a different implementation than the one provided here.
-###
-### N.B.: In case you ask yourself why none of the SQL-statements in this
-###       file make use of SQL bind params (?), the answer is that at least
-###       one DBD-driver didn't like them at all. As the performance gains
-###       from bound params are not really necessary here, we simply do
-###       not use them.
-################################################################################
-
-use strict;
 use Carp;
 use DBI;
 use OpenSLX::Basics;
@@ -325,12 +318,6 @@ sub fetchGroupIDsOfClient
 
 ################################################################################
 ### data manipulation functions
-###
-### N.B.: In case you ask yourself why none of the SQL-statements in
-###       the following functions make use of SQL-placeholders (?), the answer
-###       is that at least one DBD-driver didn't like them at all.
-###       As the improved performance gained from using placeholders is not
-###       really necessary here, we simply do not use them.
 ################################################################################
 sub _doInsert
 {
@@ -960,4 +947,26 @@ sub schemaChangeColumns
 	$self->schemaRenameTable($tempTable, $table, $colDescrs, 1);
 }
 
-1;
-\ No newline at end of file
+1;
+
+__END__
+
+=head1 NAME
+
+DBI.pm - provides DBI-based implementation of the OpenSLX MetaDB API.
+
+=head1 SYNOPSIS
+
+This class is the base for all DBI-related metaDB variants.
+It provides a default implementation for every method, such that
+each DB-specific implementation needs to override only the methods
+that require a different implementation than the one provided here.
+
+=head1 NOTES
+
+In case you ask yourself why none of the SQL-statements in this
+file make use of SQL bind params (?), the answer is that at least
+one DBD-driver didn't like them at all. As the performance gains
+from bound params are not really necessary here, we simply do
+not use them.
+
diff --git a/config-db/OpenSLX/MetaDB/SQLite.pm b/config-db/OpenSLX/MetaDB/SQLite.pm
index 3af72128..5f8afe15 100644
--- a/config-db/OpenSLX/MetaDB/SQLite.pm
+++ b/config-db/OpenSLX/MetaDB/SQLite.pm
@@ -1,3 +1,9 @@
+# SQLite.pm - provides SQLite-specific overrides of the OpenSLX MetaDB API.
+#
+# (c) 2006 - OpenSLX.com
+#
+# Oliver Tappe <ot@openslx.com>
+#
 package OpenSLX::MetaDB::SQLite;
 
 use vars qw(@ISA $VERSION);
diff --git a/config-db/OpenSLX/MetaDB/mysql.pm b/config-db/OpenSLX/MetaDB/mysql.pm
index 316bdab0..648fbd6b 100644
--- a/config-db/OpenSLX/MetaDB/mysql.pm
+++ b/config-db/OpenSLX/MetaDB/mysql.pm
@@ -1,3 +1,9 @@
+# mysql.pm - provides mysql-specific overrides of the OpenSLX MetaDB API.
+#
+# (c) 2006 - OpenSLX.com
+#
+# Oliver Tappe <ot@openslx.com>
+#
 package OpenSLX::MetaDB::mysql;
 
 use vars qw(@ISA $VERSION);
diff --git a/config-db/OpenSLX/Translations/de_de_utf_8.pm b/config-db/OpenSLX/Translations/de_de_utf_8.pm
index 36a2a814..0bafe44e 100644
--- a/config-db/OpenSLX/Translations/de_de_utf_8.pm
+++ b/config-db/OpenSLX/Translations/de_de_utf_8.pm
@@ -1,3 +1,9 @@
+# de_de_utf_8.pm - OpenSLX-translations for the German language.
+#
+# (c) 2006 - OpenSLX.com
+#
+# Oliver Tappe <ot@openslx.com>
+#
 package ODLX::Translations::de_de_utf_8;
 
 use strict;
diff --git a/config-db/OpenSLX/Translations/posix.pm b/config-db/OpenSLX/Translations/posix.pm
index 4b48cb55..f0a0d9f4 100644
--- a/config-db/OpenSLX/Translations/posix.pm
+++ b/config-db/OpenSLX/Translations/posix.pm
@@ -1,3 +1,9 @@
+# posix.pm - OpenSLX-translations for the posix locale (English language).
+#
+# (c) 2006 - OpenSLX.com
+#
+# Oliver Tappe <ot@openslx.com>
+#
 package ODLX::Translations::posix;
 
 use strict;
diff --git a/config-db/slxconfig-demuxer.pl b/config-db/slxconfig-demuxer.pl
index 74c7fba0..71eb7b7e 100755
--- a/config-db/slxconfig-demuxer.pl
+++ b/config-db/slxconfig-demuxer.pl
@@ -1,6 +1,18 @@
 #! /usr/bin/perl
+#
+# slxconfig-demuxer.pl - OpenSLX configuration demultiplexer
+#
+# (c) 2006 - OpenSLX.com
+#
+# Oliver Tappe <ot@openslx.com>
+#
 use strict;
 
+use Fcntl qw(:DEFAULT :flock);
+use File::Basename;
+use Getopt::Long qw(:config pass_through);
+use Pod::Usage;
+
 # add the lib-folder and the folder this script lives in to perl's search
 # path for modules:
 use FindBin;
@@ -9,11 +21,6 @@ use lib "$FindBin::RealBin/../lib";
 use lib "$FindBin::RealBin";
 	# development path
 
-use Fcntl qw(:DEFAULT :flock);
-use File::Basename;
-use Getopt::Long qw(:config pass_through);
-use Pod::Usage;
-
 use OpenSLX::Basics;
 use OpenSLX::ConfigDB qw(:access :aggregation :support);
 
diff --git a/config-db/slxsetup-test-data-simple.pl b/config-db/slxsetup-test-data-simple.pl
index 7fb47930..fa0d6f75 100755
--- a/config-db/slxsetup-test-data-simple.pl
+++ b/config-db/slxsetup-test-data-simple.pl
@@ -1,4 +1,15 @@
 #! /usr/bin/perl
+#
+# slxsetup-test-data-simple.pl - Simple OpenSLX test data generator
+#
+# (c) 2006 - OpenSLX.com
+#
+# Oliver Tappe <ot@openslx.com>
+#
+use strict;
+
+use Getopt::Long qw(:config pass_through);
+use Pod::Usage;
 
 # add the lib-folder and the folder this script lives in to perl's search
 # path for modules:
@@ -11,9 +22,6 @@ use lib "$FindBin::RealBin";
 use OpenSLX::Basics;
 use OpenSLX::ConfigDB qw(:access :manipulation);
 
-use Getopt::Long qw(:config pass_through);
-use Pod::Usage;
-
 my (
 	$clobber,
 	$helpReq,
diff --git a/config-db/slxsetup.pl b/config-db/slxsetup.pl
index 8b28cef2..2b7ce15c 100755
--- a/config-db/slxsetup.pl
+++ b/config-db/slxsetup.pl
@@ -1,4 +1,15 @@
 #! /usr/bin/perl
+#
+# slxsetup.pl - OpenSLX-script to show & change local settings
+#
+# (c) 2006 - OpenSLX.com
+#
+# Oliver Tappe <ot@openslx.com>
+#
+use strict;
+
+use Getopt::Long qw(:config pass_through);
+use Pod::Usage;
 
 # add the lib-folder and the folder this script lives in to perl's search
 # path for modules:
@@ -10,9 +21,6 @@ use lib "$FindBin::RealBin";
 
 use OpenSLX::Basics;
 
-use Getopt::Long qw(:config pass_through);
-use Pod::Usage;
-
 my (
 	$noShow,
 	$quiet,
diff --git a/config-db/test-config-db.pl b/config-db/test-config-db.pl
index 63c914a9..0bf04d91 100755
--- a/config-db/test-config-db.pl
+++ b/config-db/test-config-db.pl
@@ -1,4 +1,12 @@
 #! /usr/bin/perl
+#
+# test-config-db.pl - test-script for the OpenSLX config-db & MetaDB modules.
+#
+# (c) 2006 - OpenSLX.com
+#
+# Oliver Tappe <ot@openslx.com>
+#
+use strict;
 
 # add the lib-folder and the folder this script lives in to perl's search
 # path for modules:
diff --git a/config-db/test-config-demuxer.pl b/config-db/test-config-demuxer.pl
index 91fa38bc..d4f2ff4d 100755
--- a/config-db/test-config-demuxer.pl
+++ b/config-db/test-config-demuxer.pl
@@ -1,4 +1,11 @@
 #! /usr/bin/perl
+#
+# test-config-demuxer.pl - test-script for the OpenSLX config-demuxer.
+#
+# (c) 2006 - OpenSLX.com
+#
+# Oliver Tappe <ot@openslx.com>
+#
 use strict;
 
 # add the lib-folder and the folder this script lives in to perl's search