DTDs are now in /cgi-config.

[selfforum.git] / selfforum-cgi / shared / Conf.pm

diff --git a/selfforum-cgi/shared/Conf.pm b/selfforum-cgi/shared/Conf.pm
index 3d2d5be9e7881ac1908e4c90e2c477889c298909..b67599568d79dba92359e358ea8c6d27caf221a5 100644 (file)
--- a/selfforum-cgi/shared/Conf.pm
+++ b/selfforum-cgi/shared/Conf.pm
@@ -28,12 +28,12 @@ use base qw(Exporter);
 ################################
 
 sub read_script_conf ($$$) {
 ################################
 
 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
 
   $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...
   my %conf=();                             # conf-Hash
 
   &parse_script_conf ($common , \%conf, $Script);   # und los...