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);