Ну, это конечно протез, но всё-же...

Givi 08.05.2003 16:06

@CLASS
userRequest

@init[wPath]
$self.wPath[$wPath]
$self.ext[$MAIN:ext]
$self.index[${MAIN:index}.$ext]
$self.uri[$request:uri]
$self.path[^uri.match[(^^${wPath}([A-Za-z]{2,2})(/.*))][]{$self.lang[$match.2]$match.3}]
^if(!def $lang){
	$lang[ru]
}{
#Вот здесь нужно поставить проверку на существование языка, чтоб не обращаться к несуществующим таблицам в случае неправильного запроса.
}
$path[^path.match[([^^\/]+^$)][gi]{$self.file[$match.1]}]
^if(def $file){
	$file[^file.match[(^^[^^\?]*)\?{0,1}(.*)][gi]{${match.1}$self.Form[$match.2]}]
	^if(!def $file){
		$file[$index]
	}
}{
	$file[$index]
}
$uri[${path}$file]
^if(-f "$uri"){
	$self.exist(1)
}{
	$self.exist(0)
}
^if($form:fields){
	$Form[$form:fields]
}{
	^if(def $Form){
		$Form[^getForm[]]
	}
}

@getForm[][table;split;hash]
$table[^Form.split[&]]
$hash[
	^table.menu{
		$split[^table.piece.split[=;h]]
		$.[$split.0][$split.1]
	}
]
$result[$hash]