1
Sanitarium WebLoG / Проблема
« : 23 Декабря 2004, 23:09:37 »
Тот кусочек взят с admin.cgi
А этот с setup.cgi
Testing Configurate Data (cfg.cfg)
~; my @dirs=($public_dir, $data, "$data/comments", $img_dir, $foto_dir, "$tmpl_dir/include"); foreach my $direct(@dirs){ if (-e $direct){print qq~
Found: $direct !~;} else { print "
NOT Found: $direct!
"; print qq~Creating $direct ...~; if (mkdir($direct, 0777)){ print qq~$direct Created! OK!
~; chmod (0777, $direct) or die "Can not chmod $direct, reason: $!"; } else{die "Can not creating $direct, reason $!
";} } } print "
Creating DataBase (index.dat, authors.dat)
"; eval { $obj=new Sanitarium_WL("$data/index", \'index\'); $obj->create_db; $obj=0; $obj=new Sanitarium_WL("$data/authors", \'authors\'); $obj->create_db; $obj=0; $obj=new Sanitarium_WL("$data/search", \'\'); $obj->create_db; $obj=0; }; if ($@){ print "ERROR $@"; } else { #Now Get Index Url my $refer; while($index_url=~/(\\S)/g){$refer .= \'%\'.sprintf "%x", ord($1);} print "
Created: $data/index.dat\\n
Created: $data/authors.dat\\n
А этот с setup.cgi
Testing Configurate Data (cfg.cfg)
~; my @dirs=($public_dir, $data, "$data/comments", $img_dir, $foto_dir, "$tmpl_dir/include"); foreach my $direct(@dirs){ if (-e $direct){print qq~
Found: $direct !~;} else { print "
NOT Found: $direct!
"; print qq~Creating $direct ...~; if (mkdir($direct, 0777)){ print qq~$direct Created! OK!
~; chmod (0777, $direct) or die "Can not chmod $direct, reason: $!"; } else{die "Can not creating $direct, reason $!
";} } } print "
Creating DataBase (index.dat, authors.dat)
"; eval { $obj=new Sanitarium_WL("$data/index", \'index\'); $obj->create_db; $obj=0; $obj=new Sanitarium_WL("$data/authors", \'authors\'); $obj->create_db; $obj=0; $obj=new Sanitarium_WL("$data/search", \'\'); $obj->create_db; $obj=0; }; if ($@){ print "ERROR $@"; } else { #Now Get Index Url my $refer; while($index_url=~/(\\S)/g){$refer .= \'%\'.sprintf "%x", ord($1);} print "
Created: $data/index.dat\\n
Created: $data/authors.dat\\n