#exportable
function tag
var $path = /tag.tx
var $path = call strrev $val=$path
var $path = call strstr $haystack=$path;$needle=/;$before_needle=1
var $path = call strrev $val=$path
var $file = call source $file=/$path;$html_safe=0
var $dau = call strrpos $haystack=$file;$needle=
var $cuoi = call strrpos $haystack=$file;$needle=
var $tag = call substr $val=$file; $start=($dau+7); $length=($cuoi-7-$dau)
var $tag = call str_replace $subject=$tag;$search=-;$replace=,;
var $spc = call chr $val=32
var $tagx = call str_replace $subject=$tag; $search=$spc; $replace=, ;
if not $tagx
var $tagxt=
