Hallo Florian,
Hier mal meine config.pm line 1-80:
package Kernel::System::Config;
use strict;
use Kernel::System::XML; use Kernel::System::Main; use Kernel::Config;
use vars qw(@ISA $VERSION); $VERSION = '$Revision: 1.57.2.3 $'; $VERSION =~ s/^\$.*:\W(.*)\W.+?$/$1/;
=head1 NAME
Kernel::System::Config - to manage config settings
=head1 SYNOPSIS
All functions to manage config settings.
=head1 PUBLIC INTERFACE
=over 4
=cut
=item new()
create a object
use Kernel::Config; use Kernel::System::Log; use Kernel::System::DB; use Kernel::System::Config;
my $ConfigObject = Kernel::Config->new(); my $LogObject = Kernel::System::Log->new( ConfigObject => $ConfigObject, ); my $DBObject = Kernel::System::DB->new( ConfigObject => $ConfigObject, LogObject => $LogObject, ); my $ConfigToolObject = Kernel::System::Config->new( LogObject => $LogObject, ConfigObject => $ConfigObject, DBObject => $DBObject, );
=cut
sub new { my $Type = shift; my %Param = @_;
# allocate new hash for object my $Self = {}; bless ($Self, $Type);
# check needed objects foreach (qw(DBObject ConfigObject LogObject TimeObject)) { $Self->{$_} = $Param{$_} || die "Got no $_!"; }
$Self->{Home} = $Self->{ConfigObject}->Get('Home');
# create xml object
Das ist die ursprungsdatei. Habe erst oben die 4 SMTP Lines eingefügt, und dann wieder zurückgepatched also wurde nix an der File verändert.
schick mir mal bitte die komplette config.pm per Anhang ! Bitte an meine eMail Adresse - nicht an die Liste ! Gruß Stefan