+^t.upper[] -@line[] -$картинка[^image::create(200;200)] -$картинка.line-width(2) -^картинка.line(0;0;$картинка.width;$картинка.height;0)[**** * ] -$response:body[^картинка.gif[]] +@treplace[] +$copy-paste-clean[^table::set{a b +. _ +, _ ++ _ +& _ +? _ += _}] + +$cache_key[^taint[в.а,с+я]&был?тут=недавно.cache] +# почему-то этот replace роняет апач в 500 ошибку :( +#^cache_key.replace[$copy-paste-clean] +$test[abc] +^test.save[$cache_key]saved
+$cache[^file:list[.;\.cache^$]] +^file:delete[$cache_key]deleted($cache.name)
-@emptyprotocol[] -^connect[]{zz} -@emptytableisnotdef[] -$table[^table::set[nameless]{}] -^if(def $table){y;n} +@xslt2[] +$xdoc[^xdoc::set{ +
привет
-@autoconvemptystring[] -^if($form:v){y}{n} +@tcache2[] +^cache[$DB_HOME/keyключ](2){ + ^math:random(100) +} + +@ttaintuntaint[] +^taint[html][ -@tdupleform[] -#$form:fields.a -#$c[^form:tables.a.columns[]] -#^c.menu{$c.column}[,]
-$atable[$form:tables.a] -^atable.menu{a=$atable.field}[,] +]zz +
+^untaint[html]{1^taint[ ]2 3} -@tvoiddefault[] -$var[$form:element] -^var.int(2) +@tappend2[] +$t[^table::set{a b}]^t.append{1 2}$t.a + +@badvsnprintf[] +^connect[zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz]{ +} -@testdom0[] -$dom[^dom::load[a.xml]] +@badoracequoting[] +$SQL.connect-string[oracle://webspb:webpwd@mts?NLS_LANG=RUSSIAN_AMERICA.CL8MSWIN1251&NLS_DATE_FORMAT=YYYY-MM-DD HH24:MI:SS] +^connect[$SQL.connect-string]{ +^void:sql{delete from paf} +^void:sql{insert into paf values (1, '$form:text')} +$paf[^table::sql{select * from paf}] +^paf.menu{ + $paf.id: ^untaint{$paf.block}
-@testlocal[level][local] -$local($level) -before($level):$local
-^if($level<10){ - ^testlocal($level+1) } -after($level):$local
+
-@thashdefault2[] -$hash[ - $.a[1] - $.b[2] - $._default[xx] -] -$hash.c -@tcase2[] -$hash[ - $.1{^load[code1]} - $.2{code2} -] -$hash.1 +^rem{ +$news[^table::sql{select description from news}[$.limit(3)]] +^news.menu{ + ^untaint{$news.description}
-@tlsplit2[] -$splitURI[^request:uri.mid(1;^request:uri.length[]-1).lsplit[/]] -OK +} +
+} -@tconnect[] -#^connect[mysql://hren:pwd@hren/zz]{hren} -^connect[mysql://]{^void:sql{show tables}} +$tables[^table::sql{select table_name from user_tables}] +^tables.menu{ +$tables.table_name
+} +} +
+$env:PATH -@timghtmlyu[] -^img[/i/commons_22_prev.gif][$.vspace(100)] -@img[filename;params] -^if(-f $filename){$thisImage[^image::measure[$filename]]^thisImage.html[$params]} +@badconstructors[] +$bred[^string::length[]] +$bred[^response::clear[]] +$bred[^int::int[]] -@timghtml[] -$картинка[^image::measure[i/commons_22_prev.gif]] -#$hash[$.alt[222]] -#^timghtml-nested[$hash] -^timghtml-nested[$.alt[222]] -@timghtml-nested[params] -^картинка.html[$params] +@xloadwrongtable[] +$constr[^xdoc::load[wrongtable.xml]] +^show-xdoc2[$constr] -@tresult[] -44 -$result[] +@xsetwrongtable[] +$constr[^xdoc::set{ +
+=$cookie:clientType=
-$response:body[^картинка.gif[]] -@tdoubledefault[] -$a[123.6x] -#^a.double[] -^a.double(999) +@tableset[] +$a[^table::set{a +1 +2}] +^eval(100\$a) -@tintdefault[] -$a[123x] -#^a.int[] -^a.int(999) - -@t3partycookie2[] -#z
-get:$cookie:test -#
-@measuretest[] -$im[^image::measure[mm3.gif]] -x:y=${im.width}:${im.height}
- -@savetest[] -$file[^file::load[text;index.html]] -^file.save[binary;/some/dir/here.dat] -OK - -@oratestinsert[] -^connect[oracle://mts_admin:admin_pwd@ORACLE.PAF.OFFICE.DESIGN.RU]{ -#^void:sql{create table lobtest(test clob)} -^void:sql{insert into lobtest values (/**test**/'бу''квы')} -$table[^table::sql{select * from lobtest}] -^table.menu{^table.line[] } -} +$constructor[ +
-} -
-} -$news[^table::sql{select * from news}[$.limit(2)]] -^rem{ -news columns:
-$news_columns[^news.columns[]] -^news_columns.menu{ - $news_columns.column
+$constr[^xdoc::set{ +
} -
} -news description:
-^news.menu{ -
- $news.description + + +@thashforeach3[] +$h[ + $.a[1] + $.b[2] +] +$c[^table::set{a +^h.foreach[key;value]{$value +}}] +$c.a + +@thashforeach2[] +$h[ + $.a[1] + $.b[2] +] +$c[ +^h.foreach[key;value]{ + $.$key[$value] } +] +$c.b + +@thashforeach[] +$h[ + $.a[1] + $.b[2] +] +^h.foreach[key;value]{ + $key=$value
} -@process_check[] -$f[^file::load[text;process.tpl]] -^process[$f.text] +@thashdelete[] +$h[$.a[1] $.b[2]] +was:
+count=^h._count[]
+b='$h.b'
-@ffcheck[] -^file:find[bug/index.html]{not found} +^h.delete[b] -@list[] -$list[^file:list[.;.*\.html^$]] -^list.menu{$list.name
} -#^list.count[] +now:
+count=^h._count[]
+b='$h.b' -@func[param] -#[local] -$local(0) -^local.inc(1) -#$local($local+1) -^if($param<10){^func($param+1)} -=$local= +@sappend[] +$test[123] +^test.save[test] +^test.save[append;test] -@bannerSSI[][code] -$code[^file::cgi[/../cgi-bin/bbssi.pl; - $.QUERY_STRING[d=1&H=ad1.lbe.ru&pubid=91033&pg=1&vbn=26&num=1&w=-1&h=-1&r=ssi&i=http://go.bb.ru/images/onerror/bb.gif&g=http://www.bb.ru&before=
^untaint[as-is]{$code.text}]
+@tappend[]
+$test[^table::set{a b
+a1 b1}]
+^test.save[test]
+$test[^table::set{a b
+a2 b2}]
+^test.save[append;test]
-@bannerJS[]
-
-
-
-
-@tests[]
-$ab(123)
-${[ab]}=
--$хэш[$.возраст(88)] $достать[$.поле[возраст]] ^хэш.[$достать.поле].format{%05d} -
- -$люди[ - $.вася[ - $.возраст(45) - ] -] -$человек[ - $.поле[возраст] -] -$люди.вася.[$человек.поле]
-^люди.вася.[$человек.поле].format{%010d}
+@tform[] +^if(def $form:new_file){y}{n} +