Ответ

G100m 10.09.2004 15:08

@main[][qwerty]
...
^if(^form:go.int(0)){
	$MAIN:pSQL[^mysql::init[$SQL.connect-string;$.is_debug(1)]]
	^MAIN:pSQL.server{
		^rem{ *** Ищу по уникальному номеру запись, чтобы достать из нее правильную ссылку *** }
		$link_base[^table::sql{SELECT id, link FROM link_base WHERE id = $form:go}]
		^if(def $link_base){
			^rem{ *** Добавляю номер_ссылки+IP/proxy в БД за исключением собственных кликов *** }
				^try{
					^if(!^env:REMOTE_ADDR.match[^^127\.0\.0\]){
						$qwerty[${link_base.id}${env:REMOTE_ADDR}${env:HTTP_X_FORWARDED_FOR}]
						^void:sql{INSERT INTO click_rating (unique, id) VALUES ('^math:md5[$user]',$link_base.id)}
					}
				}{
					$exception.handled(1)
				}
				^rem{ *** Увожу по ссылке, а в случае неудачи показываю главную страницу *** }
			$response:location[^if(def $link_base.link){^taint[uri][$link_base.link]}{http://www.spearance.ru}]
		}{
			^rem{ *** В случае если запись не найдена показываю главную страницу, а можно и 404 *** }
			$response:location[http://www.spearance.ru]
		}
	}
}
...