package Kernel::Config::Defaults; use strict; # ---------------------------------------------------------------------- sub Load_Defaults { my ($Config_Dir) = @_; our $Self = { DB_Handle => 'Microsoft SQL Server'}; if ( -e "$Config_Dir" ) { print "Positive Erkennung des Config - Files Ordners $Config_Dir\n"; # Ich nehme an, hier wird noch mehr Zeug aus den Dateien # in den Hash eingetragen, hier einfach hart codiert: $Self -> { Database } = 'Bezeichnung der DB'; $Self -> { DatabaseUser } = 'Standard User'; $Self -> { DatabasePw } = 'XXXXXXXX'; } else { die "Keine Defaults, keine Attribute. Versuch's nochmal."; } return %$Self; }; # ---------------------------------------------------------------------- 1;