А вот так?

Сухроб Хусамов 20.04.2006 20:45

Пример использования класса:

^use[/cntfilednld.p]
$cnt[^counterFileDownload::init[/path/to/file.ext]]
^cnt.a[Скачать файл] (скачано $cnt.count раз.)

Файл cntfilednld.p:

@CLASS
counterFileDownload

@init[filepath]
$self.filepath[$filepath]
$filepathCounter[${filepath}.count]

@a[linkDescription]
^if(def $form:downloadfile){
	$response:refresh[ 
		$.value(0) 
		$.url[$filepath] 
	]
	$response:body[]
	^_countIncrement[]
}{
	<a href="./?downloadfile=$filepath">$linkDescription</a>
}

@GET_count[]
^try{
	$fileCounter[^file::load[text;$filepathCounter]]
	$result(^eval($fileCounter.text))
}{
	$exception.handled(1)
	$result(0)
}

@_countIncrement[]
^file:lock[${file_name}.lock]{
	$newCount[^eval($count+1)]
	^newCount.save[$filepathCounter]
}

---