+^t.upper[] + +@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[z]{zz} -@emptytableisnotdef[] -$table[^table::set[nameless]{}] -^if(def $table){y;n} -@autoconvemptystring[] -^if($form:v){y}{n} +@xslt2[] +$xdoc[^xdoc::set{ +
hi
-@tdupleform[] -#$form:fields.a -#$c[^form:tables.a.columns[]] -#^c.menu{$c.column}[,]
-$atable[$form:tables.a] -^atable.menu{a=$atable.field}[,] +@tcache2[] +^cache[$DB_HOME/keyключ](2){ + ^math:random(100) +} -@tvoiddefault[] -$var[$form:element] -^var.int(2) +@ttaintuntaint[] +^taint[html][ +]zz +
+^untaint[html]{1^taint[ ]2 3} -@testdom0[] -$dom[^dom::load[a.xml]] +@tappend2[] +$t[^table::set{a b}]^t.append{1 2}$t.a -@testlocal[level][local] -$local($level) -before($level):$local
-^if($level<10){ - ^testlocal($level+1) +@badvsnprintf[] +^connect[zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz]{ } -after($level):$local
-@thashdefault2[] -$hash[ - $.a[1] - $.b[2] - $._default[xx] -] -$hash.c -@tcase2[] -$hash[ - $.1{^load[code1]} - $.2{code2} -] -$hash.1 +@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}
-@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}} +^rem{ +$news[^table::sql{select description from news}[$.limit(3)]] +^news.menu{ + ^untaint{$news.description}
-@timghtmlyu[] -^img[/i/commons_22_prev.gif][$.vspace(100)] -@img[filename;params] -^if(-f $filename){$thisImage[^image::measure[$filename]]^thisImage.html[$params]} +} +
+} -@timghtml[] -$картинка[^image::measure[i/commons_22_prev.gif]] -#$hash[$.alt[222]] -#^timghtml-nested[$hash] -^timghtml-nested[$.alt[222]] +$tables[^table::sql{select table_name from user_tables}] +^tables.menu{ +$tables.table_name
+} -@timghtml-nested[params] -^картинка.html[$params] +} +
+$env:PATH -@tresult[] -44 -$result[] +@badconstructors[] +$bred[^string::length[]] +$bred[^response::clear[]] +$bred[^int::int[]] -@voidtest[] -#$var[123x] -^var.int(4) -@ttext[] -$картинка[^image::load[/i/commons_22_prev.gif]] -^картинка.font[ ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя0123456789-+=!\"%:,.^^^;<>?@()[]'&*/^$;/i/font.gif](5) +@xloadwrongtable[] +$constr[^xdoc::load[wrongtable.xml]] +^show-xdoc2[$constr] -^картинка.text(10;10)[ ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijkl] -^картинка.text(10;30)[mnopqrstuvwxyzАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ] -^картинка.text(10;50)[абвгдежзийклмнопрстуфхцчшщъыьэюя0123456789] -^картинка.text(10;70)[!-+=!\"%:,.^^^;<>?@()[]'&*/^$!] +@xsetwrongtable[] +$constr[^xdoc::set{ +
+=$cookie:clientType=
-@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[] } -} -@oratestread[] -^connect[oracle://mts_admin:admin_pwd@ORACLE.PAF.OFFICE.DESIGN.RU]{ -^rem{ -$tables[^table::sql{select table_name from user_tables}] -^tables.menu{ - $tables.table_name
-} -
-} -$news[^table::sql{select * from news}[$.limit(2)]] -^rem{ -news columns:
-$news_columns[^news.columns[]] -^news_columns.menu{ - $news_columns.column
+@zzz[] + + +$constructor[ +
} -
} -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} + +@tform[] +^if(def $form:new_file){y}{n} +