X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/aaff267fdddc495df3bfa2fc0eb0d20a76b6d220..4b431e1f7f87c78282d24fc9690ecb4ae4af34c3:/selfforum-cgi/shared/Conf.pm?ds=inline 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...