--- parser3/src/www/htdocs/Attic/index.html 2001/11/05 11:46:35 1.465
+++ parser3/src/www/htdocs/Attic/index.html 2001/12/10 09:44:18 1.497
@@ -1,6 +1,22 @@
@main[]
-^status[]
-
+^treplace[]
+#^xslt2[]
+#^tcache2[]
+#$ORIGINS(1)
+#$t[^table::set{a b} ^table::set{c d}]
+#^ttaintuntaint[]
+#^tappend2[]
+#^badvsnprintf[]
+#^badoracequoting[]
+#^badconstructors[]
+#^xloadwrongtable[]
+#^xsetwrongtable[]
+#^if($form:test){y}{n}
+#^tablecolumnerror[]
+#^roll[]
+#^cookie2[]
+#^tableset[]
+#^math:PI.format{%.30f}
#^xchildren[]
#^thashforeach3[]
#^thashforeach2[]
@@ -17,7 +33,7 @@
#^безнадёжна_попытка_поправить_непоправимое[]
#^tcache[]
#^thashfileexp[]
-^tcounter[]
+#^tcounter[]
#^tablehash[]
#j^hashfile[]
#^formclass[]
@@ -54,82 +70,129 @@
#^mail[]
#^exec[]
#^fori[]
-^tconnect[]
-^xslt[]
+#^tconnect[]
+#^xslt[]
#^xml[]
#^header[]
-^status[]
OK
-@status[]
-$c[$status:sql.cache]
-sql.cache:
-
-
- | url |
- time |
-
-^c.menu{
-
- | $c.url |
- $c.time |
-
-}
-
-
-$c[$status:stylesheet.cache]
-stylesheet.cache:
-
-
- | file |
- time |
-
-^c.menu{
-
- | $c.file |
- $c.time |
-
-}
-
-
-$c[$status:charset.cache]
-charset.cache:
-
-
- | file |
-
-^c.menu{
-
- | $c.file |
-
-}
-
-
-
-$db_homes[$status:db.cache]
-db.cache:
-^db_homes.foreach[db_home;tables]{
-
-
- | $db_home |
-
-
- | name |
- time |
- users |
-
+@treplace[]
+$copy-paste-clean[^table::set{a b
+. _
+, _
++ _
+& _
+? _
+= _}]
+
+$cache_key[^taint[в.а,с+я]&был?тут=недавно]
+# почему-то этот replace роняет апач в 500 ошибку :(
+^cache_key.replace[$copy-paste-clean]
+
+
+@xslt2[]
+$xdoc[^xdoc::set{
+hi
+}]
+#^show-xdoc2[$xdoc]
+^show-xdoc2[^xdoc.transform[templates/_document.xslt]]
+
+
+
+@tcache2[]
+^cache[$DB_HOME/keyключ](2){
+ ^math:random(100)
+}
+
+@ttaintuntaint[]
+^taint[html][
+
+]zz
+
+^untaint[html]{1^taint[ ]2 3}
+
+
+@tappend2[]
+$t[^table::set{a b}]^t.append{1 2}$t.a
+
+@badvsnprintf[]
+^connect[zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz]{
+}
+
+
+@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}
+
+}
+
+
+
+^rem{
+$news[^table::sql{select description from news}[$.limit(3)]]
+^news.menu{
+ ^untaint{$news.description}
+
+}
+
+}
+
+$tables[^table::sql{select table_name from user_tables}]
^tables.menu{
-
- | $tables.name |
- $tables.time |
- $tables.users |
-
+$tables.table_name
}
-
+
}
+
+$env:PATH
+
+@badconstructors[]
+$bred[^string::length[]]
+$bred[^response::clear[]]
+$bred[^int::int[]]
+
+
+@xloadwrongtable[]
+$constr[^xdoc::load[wrongtable.xml]]
+
+@xsetwrongtable[]
+$constr[^xdoc::set{
+^untaint[as-is]{$constructor}}]
+
+
+@tablecolumnerror[]
+$t[^table::set{a}]
+$t.$a
+
+@roll[]
+#$date[^date::set(1970;1;2)]
+#^date.roll[month](-1)
+$date[^date::set(2038;1;1)]
+^date.roll[month](+1)
+$date.year $date.month $date.day
+
+@cookie2[]
+#=$cookie:clientType[$.value[test]]=
+=$cookie:clientType=
+
+
+@tableset[]
+$a[^table::set{a
+1
+2}]
+^eval(100\$a)
+
+
+
+@zzz[]
+
-@xchildren[]
$constructor[
@@ -231,13 +294,14 @@ $dom_created_in_air[^xdoc::create[doc]]
@tcache[]
+^rem{
#^hashfile:clear[cache]
$code[^hashfile::open[$DB_HOME;cache]]
^code.cache[key](2){
^math:random(100)
# ^code.delete[]
}
-
+}
@thashfileexp[]
$hf[^hashfile::open[$DB_HOME;hashfile]]
@@ -254,10 +318,10 @@ $hash[^hf.hash[]]
@tcounter[]
^tcounterone[$DB_HOME]
-#other root:
-#^tcounterone[${DB_HOME}2]
-#again, first:
-#^tcounterone[$DB_HOME]
+other root:
+^tcounterone[${DB_HOME}2]
+again, first:
+^tcounterone[$DB_HOME]
@tcounterone[DB_HOME]
$counter[^hashfile::open[$DB_HOME;counter]]
@@ -310,8 +374,8 @@ paf=$hf.paf
$a
$xdoc[^xdoc::create[doc]]
$doc[$xdoc.documentElement]
-$name[^doc.appendChild[^xdoc.createElement{name}]]
-$text[^name.appendChild[^xdoc.createTextNode{петросян ^;co}]]
+$name[^doc.appendChild[^xdoc.createElement[name]]]
+$text[^name.appendChild[^xdoc.createTextNode[петросян&coz]]]
^untaint[as-is]{=$text.nodeValue=}
@domedit[]
@@ -570,9 +634,33 @@ $a.status|$a.stderr
@fori[][i]
^for[i](1;3){... =$i= ...}
+@xdata0[]
+#$response:content-type[$.value[text/html] $.charset[windows-1251]]
+$xdoc[^xdoc::set{
+
+
+
+ P«^;AF B
+
+
+ ПИФ^taint[&]
+
+
+}]
+
@xdata[]
#$response:content-type[$.value[text/html] $.charset[windows-1251]]
-$xdoc[^xdoc::load[input.xml]]
+$xdoc[^xdoc::set{^process{
+
+
+
+ P«^;AF B
+
+
+ ПИФ^taint[&]
+
+
+}}]
@xml[]
^xdata[]
@@ -633,7 +721,7 @@ by id:
}
@show-xdoc2[xdoc]
-^xdoc.save[save.xml;
+^xdoc.save[out/save.xml;
# $.encoding[windows-1251]
$.method[xml]
]
@@ -641,10 +729,18 @@ $file[^xdoc.file[
# $.encoding[windows-1251]
$.method[html]
]]
-^file.save[text;save_file.html]
-^taint[^xdoc.string[]]
-# $.encoding[windows-1251]
+^file.save[text;out/save_file.html]
+#$response:body[^xdoc.file[ $.media-type[text/paf] ]]
+^taint[html][^xdoc.string[
# $.method[html]
-#]]
+# $.version[1.0]
+# $.encoding[utf-8]
+# $.omit-xml-declaration[yes]
+# $.standalone[yes]
+# $.doctype-public[-//W3C//DTD XHTML]
+# $.doctype-system[/a/b/c/]
+# $.indent[no]
+ $.media-type[text/paf]
+]]