--- parser3/src/www/htdocs/Attic/index.html 2001/04/03 07:24:45 1.91
+++ parser3/src/www/htdocs/Attic/index.html 2001/04/07 11:55:35 1.118
@@ -1,5 +1,5 @@
@auto[]
-!!$html-typo[^table:set{user html comment
+$html-typo[^table:set{user html comment
<< «^; длинные user вперёд
>> »^;
\n\n
!эти есть в таблице по умолчанию
@@ -23,9 +23,128 @@ $n
@twop[a;b]
($a,$b)
-@post-process[data]
-($data)
+@Zpost-process[data]
+#(
$data)
+^data.match[1][g]{X}
+
+@mt[s;m]
+$m ^if(^s.match[$:m;i]){matches}{does not match} $s
+
@main[]
+
^mail:send[
+ $content-type[
+ $value[text/plain]
+ $charset[windows-1251]
+ ]
+ $to[paul]
+ $from[paf]
+ $body[hi, paul.
+
+sincerily yours,
+PAF
+]
+]
+
+
+
+^mail:send[
+ $to[sdsfsdf]
+ $from[sdfsdf]
+ $body[
+ $2[
+ $content-type[$value[message/rfc822] $name[letter.eml]]
+ $body[to: paul
+from: paf
+subject: 2
+
+2.body
+ ]
+ ]
+ $1[
+ $to[paul]
+ $from[paf]
+ $subject[1]
+ $content-type[text/plain]
+ $body[image]
+ ]
+ ]
+]
+
+
+
+^^table:dir[/]:
+$d[^table:dir[/]]
+^d.menu{$name;
}
+
+
+^^table:dir[/;html^$]
+$d[^table:dir[/;html^$]]
+^d.menu{$name;
}
+
+
+^connect[$SQL.connect-string]{
+ $shit[^taint[our's]]
+# $paf[^table:sql{insert into paf (name, age) values ('$shit', ^random:generate(10000))}]
+ $paf[^table:sql{select * from paf order by id desc}(5)]
+ $paf{
+ ^empty{query result is empty}{
+
+ | id | name | age |
+ ^menu{| $id | $name | $age |
}
+
+ }}
+}
+
+
+
+$with-cr[^table:set{a b
+^taint[<1
+2>] 3
+}]
+"$with-cr.a"
+
+^if(def $form:s){
+ $form:s
+ ^form:s.match[!][g]{!}
+
+}
+
+$r[1223]
+^^"$r".match[2][]{(^$match)}=^r.match[2][]{($match)}
+^^"$r".match[2][i]{(^$match)}=^r.match[2][i]{($match)}
+^^"$r".match[2][g]{(^$match)}=^r.match[2][g]{($match)}
+^^"$r".match[2+][g]{(^$match)}=^r.match[2+][g]{($match)}
+
+$s[abcЯ]
+$sm[^s.match[(.)][g]]
+^^"$s".match[(.)][g]:
+^sm.menu{
+ ^line[]:
+ ^$pre-match=$pre-match
+ ^$match=$match
+ ^$post-match=$post-match
+ ^$1=$1
+}
+
+$sm[^s.match[(.)][]]
+^^"$s".match[(.)][]:
+^sm.menu{
+ ^line[]:
+ ^$pre-match=$pre-match
+ ^$match=$match
+ ^$post-match=$post-match
+ ^$1=$1
+}
+
+^mt[$s;я]
+^mt[$s;Я]
+^mt[$s;b]
+^mt[$s;^^b]
+^mt[$s;^^a]
+^mt[$s;x]
+
+
+
$dest[^table:set[nameless]{
$form:d11 d12 d13
d21 d22 d23
@@ -80,7 +199,7 @@ $a[vasya,fedya,kolya]
^$request:browser.version=$request:browser.version
$tf[^file:load[test.zip;abc.zip;image/gif]]
-$response:body[$tf]
+#$response:body[$tf]
^$tf.name=$tf.name
^$tf.size=$tf.size
@@ -153,12 +272,14 @@ $response:location[http://parser3/123]
^${cookie:вот}=${cookie:вот}?
+^${cookie:вот}=${cookie:вот}?
^$request:query=$request:query
^$request:uri=$request:uri