lilalo

diff l3-backend @ 110:2fc1f3f08760

fix
author igor
date Wed Feb 13 02:43:33 2008 +0200 (2008-02-13)
parents 05e99d32f1f5
children 9e6359b7ad55
line diff
     1.1 --- a/l3-backend	Mon Jun 12 09:32:18 2006 +0300
     1.2 +++ b/l3-backend	Wed Feb 13 02:43:33 2008 +0200
     1.3 @@ -121,7 +121,7 @@
     1.4  # Путь l3cd должен быть не пуст, 
     1.5  # и в нём могут быть только символы латинского алфавита, цифры и знаки _ и -
     1.6                  if ($l3cd && $l3cd =~ /^[a-zA-Z_\/0-9-]*/) {
     1.7 -                    system("mkdir -p $Config{backend_datadir}/$l3cd");
     1.8 +                    system("mkdir -m 770 -p $Config{backend_datadir}/$l3cd");
     1.9                      if (open(OUT, ">>", $Config{"backend_datadir"}."/$l3cd/data.xml")) {
    1.10                          print OUT "<$element_name>".$element."</$element_name>";
    1.11                          close(OUT);