From 98ecd61f61507ea49828b81e762be02239056ebf Mon Sep 17 00:00:00 2001 From: Oliver Tappe Date: Tue, 3 Oct 2006 11:40:53 +0000 Subject: * added OpenSLX-header to all my files. git-svn-id: http://svn.openslx.org/svn/openslx/trunk@434 95ad53e4-c205-0410-b2fa-d234c58c8868 --- config-db/OpenSLX/Basics.pm | 6 ++++ config-db/OpenSLX/ConfigDB.pm | 6 ++++ config-db/OpenSLX/DBSchema.pm | 6 ++++ config-db/OpenSLX/MetaDB/Base.pm | 6 ++++ config-db/OpenSLX/MetaDB/CSV.pm | 6 ++++ config-db/OpenSLX/MetaDB/DBI.pm | 51 ++++++++++++++++----------- config-db/OpenSLX/MetaDB/SQLite.pm | 6 ++++ config-db/OpenSLX/MetaDB/mysql.pm | 6 ++++ config-db/OpenSLX/Translations/de_de_utf_8.pm | 6 ++++ config-db/OpenSLX/Translations/posix.pm | 6 ++++ config-db/slxconfig-demuxer.pl | 17 ++++++--- config-db/slxsetup-test-data-simple.pl | 14 ++++++-- config-db/slxsetup.pl | 14 ++++++-- config-db/test-config-db.pl | 8 +++++ config-db/test-config-demuxer.pl | 7 ++++ 15 files changed, 133 insertions(+), 32 deletions(-) (limited to 'config-db') 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 +# 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 +# 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 +# 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 +# ################################################################################ # 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 +# 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 +# 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 +# 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 +# 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 +# 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 +# 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 +# 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 +# +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 +# +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 +# +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 +# use strict; # add the lib-folder and the folder this script lives in to perl's search -- cgit v1.2.3-55-g7522