X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/aaff267fdddc495df3bfa2fc0eb0d20a76b6d220..c6b8e3075d2fd6cd5ef345aa686a68cc899eb5fe:/selfforum-cgi/shared/Conf.pm diff --git a/selfforum-cgi/shared/Conf.pm b/selfforum-cgi/shared/Conf.pm index 3d2d5be..b675995 100644 --- a/selfforum-cgi/shared/Conf.pm +++ b/selfforum-cgi/shared/Conf.pm @@ -28,12 +28,12 @@ use base qw(Exporter); ################################ sub read_script_conf ($$$) { - my ($Bin, $Shared, $Script) = @_; + my ($Config, $Shared, $Script) = @_; $Script =~ s/^(.*)\..*$/$1/; # Vornamen extrahieren my $common = "$Shared/common.xml"; # gemeinsame Konf-datei - my $group = "$Bin/config/common.xml"; # gemeinsame (Gruppen-)Konf-datei - my $special = "$Bin/config/$Script.xml"; # spezielle Konf-datei + my $group = "$Config/common.xml"; # gemeinsame (Gruppen-)Konf-datei + my $special = "$Config/$Script.xml"; # spezielle Konf-datei my %conf=(); # conf-Hash &parse_script_conf ($common , \%conf, $Script); # und los...