--- parser3/src/www/htdocs/Attic/index.html 2001/09/30 14:39:48 1.342
+++ parser3/src/www/htdocs/Attic/index.html 2001/10/08 15:50:22 1.367
@@ -1,18 +1,74 @@
-@auto[]
-$CHARSETS[
- $.windows-125o[^table::load[windows-1251.cfg]]
-]
-
@main[]
-$response:content-type[$.value[text/html] $.charset[windows-125o]]
+^mail[]
+#^cookie[]
+#^response[]
+#^regexp2[]
+#^ttablerem[]
+#^pcre[]
#^regexp[]
#^mail[]
#^exec[]
#^fori[]
-#^connect[mysql://hren]{^void:sql{nothing}}
-^xslt[]
+#^tconnect[]
+#^xslt[]
+#^xml[]
+#^header[]
OK
+@mail[]
+^mail:send[
+ $.to[Александр Петросян ]
+ ..
+]
+
+@cookie[]
+$env:HTTP_COOKIE
+
+#$cookie:переменная[test тест ТЕСТ2]
+=$cookie:переменная=
+#$cookie:переменная2[test тест ТЕСТ3]
+=$cookie:переменная2=
+
+@response[]
+#^if($form:reload){
+ $response:refresh[$.value[0] $.url[./t.html?uri=$env:SERVER_NAME]]
+#}
+
+@xslt[]
+^xdata[]
+^show-xdoc2[^xdoc.transform[global.xsl]]
+
+@regexp2[]
+$s[ select]
+$s[^s.match[^^\s*][]{!}]
+$s
+
+@header[]
+$response:refresh[
+ $.value[0]
+ $.url[http://design.ru?a=^taint[123]]
+]
+
+@ttablerem[]
+$table[^table::load[a.cfg]]
+^table.menu{$table.a}
+
+@tconnect[]
+^connect[mysql://test:test@paf/test?charset=cp1251_koi8&compress=1&timeout=1&named_pipe=1]{
+$tables[^table::sql{show tables}]
+#$cols[^tables.columns[]]
+#$cols.column
+^tables.menu{
+ $tables.[Tables_in_test]
+}
+}
+
+@pcre[]
+$s[1 2]
+^s.match[\s;ig]{!}
+#^s.match[\d;ig]{!}
+
+
@regexp[]
$s[abcАБВ]
^if(^s.match[б][i]){y}{n}
@@ -37,19 +93,12 @@ $a.status|$a.stderr
@fori[][i]
^for[i](1;3){... =$i= ...}
-@xslt[]
-$xdoc[^xdoc::set{
-
+@xdata[]
+#$response:content-type[$.value[text/html] $.charset[windows-1251]]
+$xdoc[^xdoc::load[input.xml]]
-
-
- P«^;AF
-
-
- ПИФ
-
-
-}]
+@xml[]
+^xdata[]
^show-xdoc2[$xdoc]
#^show-xnode1[$xdoc]
@@ -88,7 +137,7 @@ by id:
$pairs[$x.attributes]
^if(def $pairs){
$names[^pairs._keys[]]
- ^names.menu{$names.key=$pairs.[$names.key].nodeValue }
+ ^names.menu{ $names.key="$pairs.[$names.key].nodeValue"}
}
>^;
}{
@@ -116,7 +165,7 @@ $file[^xdoc.file[
$.method[html]
]]
^file.save[text;save_file.html]
-^taint[^xdoc.string[]]
+^taint[^xdoc.string[]]
# $.encoding[windows-1251]
# $.method[xml]
#]]