Авто-поиск "не вэб пространства"

AleXp 28.11.2005 00:10 / 28.11.2005 01:25

$tmpDir[^searchOutOfSpaceDir[_tmp]]

......

@searchOutOfSpaceDir[name][_file]
##################################
^try{
	^name.save[/$name/_test.htm]
	$_file[^file::load[text;http://$env:SERVER_NAME/$name/_test.htm]]
	$result[^searchOutOfSpaceDir[../$name]]
}{
	$exception.handled(1)
	$result[/$name]
}
^file:delete[/$name/_test.htm]
#end @searchOutOfSpaceDir[]