--- parser3/www/htdocs/Attic/index.html 2002/06/20 14:50:24 1.71
+++ parser3/www/htdocs/Attic/index.html 2002/08/06 09:08:00 1.85
@@ -1,27 +1,22 @@
#@USE
#t.p
-@auto[a]
-^throw[user;$a]
-
-@autoZ[]
+@auto[filespec]
+$selffilespec[$filespec]
#$form:here
-$request:charset[windows-1251]
-$response:charset[windows-1251]
-$response:content-type[$.value[text/html]$.charset[$response:charset]]
+#$request:charset[UTF-8]
+#$response:charset[windows-1251]
+#$response:content-type[$.value[text/html]$.charset[$response:charset]]
#@postprocess[body]
#$body
#$result[123]
-@f[a;b]
-
@main[]
-$a(123)
-^a.format[%.10u]
+#$a(123)
+#^a.format[%.10u]
#$result[111]
#^f[a]
-
#^connect[mysql://mdm:4b833ljq@db-mysql/mdm]{
# ^int:sql{select news_id from news where news_id=-1}[$.default{2}]
# ^string:sql{select news_id from news where news_id=-1}[$.default{2}]
@@ -134,7 +129,6 @@ $a(123)
#$t[^methresult[]] ->$t
#^terror[]
#^ssave[]
-#^calendar[]
#^thash[]
#^tdef[]
#^ford[]
@@ -185,6 +179,206 @@ $a(123)
#^xdocsave[]
#^div[]
#^datecreatestring3[]
+#^tfilespec[]
+#^tcrypt[]
+#^cryptdocsample[]
+#^sendtests[]
+#^tnormalize[]
+#^xmltransformbyxdoc[]
+#^sergestrandef[]
+#^tstdin[]
+#^tfind[]
+#^calendar[]
+^mimet[]
+
+OK
+
+@mimet[]
+$f[^file::stat[a.GIF]]
+$f.content-type
+
+
+@tfind[]
+^file:find[index.html]
+
+@tstdin[]
+$f[^file::exec[test.pl;$.stdin[проверка stdin потока]]]
+$f.text
+
+@sergestrandef[]
+$sQuantity[ ]
+^sQuantity.int(10)
+
+@xmltransformbyxdoc[]
+$xdoc[^xdoc::set{^process{
+
+
+
+ 1 2
+
+
+}}]
+$sheet[^xdoc::create{
+
+
+
+
+
+
+defparam1
+defparam2
+
+
+
+ param1=
+ param2=
+
+ test return
+
+
+
+ test return3
+
+
+
+
+ z
+ para1=
+
+
+
+
+
+
+
+
+
+
+}]
+
+
+$xdoc[^xdoc.transform[$sheet]]
+$string[^xdoc.string[$.method[html]]]
+^string.save[a]
+^untaint[html]{$string}
+
+
+
+@tnormalize[]
+#s состоит из 1000 фрагментов
+$s[^for[i](0;999){фрагмент }]
+#это займет много ресурсов
+^s.match[фраг][g]{перга}
+#это займет меньше ресурсов
+#$normalized[^s.normalize[]]
+#^normalized.match[фраг][g]{перга}
+
+@sendtests[]
+#^text[]
+#^html[]
+#^text-n-html[]
+#^file[]
+#^text-n-file[]
+^text-n-html-n-file[]
+#^backwardcomp[]
+
+@backwardcomp[]
+^mail:send[
+ $.from[paf]
+ $.to[paf]
+ $.body[this is text value]
+]
+
+@text[]
+^mail:send[
+ $.from[paf]
+ $.to[paf]
+ $.text[
+ $.value[this is text value]
+ ]
+]
+
+@html[]
+^mail:send[
+ $.from[paf]
+ $.to[paf]
+ $.html{this is html value ^taint[<] 10}
+]
+
+@text-n-html[]
+^mail:send[
+ $.from[paf]
+ $.to[paf]
+ $.text[
+ $.value[this is text value]
+ ]
+ $.html[
+ $.value{this is html value ^taint[<] 10}
+ ]
+]
+
+@file[]
+^mail:send[
+ $.from[paf]
+ $.to[paf]
+ $.file[^file::load[binary;image.jpg]]
+]
+
+@text-n-file[]
+^mail:send[
+ $.from[paf]
+ $.to[paf]
+ $.text[
+ $.value[this is text value]
+ ]
+ $.file[^file::load[binary;image.jpg]]
+]
+
+@text-n-html-n-file[]
+^mail:send[
+ $.from[paf]
+ $.to[paf]
+ $.text[
+ $.value[this is text value]
+ ]
+ $.html[
+ $.COntent-type[$.value[text/html]$.charset[windows-1251xx]]
+ $.value{this is html value ^taint[<] 10}
+ ]
+ $.file[^file::load[binary;image.jpg]]
+]
+
+
+
+@md5salt[]
+1234
+
+@cryptdocsample[]
+$users[^table::create{name password
+alice ***
+bob ***
+}]
+
+$htpasswd[^table::create[nameless]{}]
+^users.menu{
+ ^htpasswd.append{$users.name:^math:crypt[$users.password;^$apr1^$^md5salt[]]}
+}
+
+^htpasswd.save[nameless;.htpasswd-parser-test]
+
+
+@tcrypt[]
+#^math:crypt[123;^$apr1^$1234567890abcdef]
+^math:crypt[123;^$apr1^$]
+
+@tfilespec[]
+src=$selffilespec
+dirname=^file:dirname[$selffilespec]
+basename=^file:basename[$selffilespec]
+justname=^file:justname[$selffilespec]
+justext=^file:justext[$selffilespec]
@datecreatestring3[]
$new_after[^date::now(-3)]
@@ -1408,10 +1602,12 @@ $abc[abc]
^abc.save[abc]
@calendar[]
-2001;11:
-$week_days[^date:calendar[rus](2001;11)]
+$year(2002)
+$month(8)
+${year}-${month}:
+$week_days[^date:calendar[rus]($year;$month)]
-^week_days.menu{^for[wday](0;7){^if($week_days.$wday){$week_days.$wday; ^; ^;} }
}
+^week_days.menu{^for[wday](0;6){^if($week_days.$wday){$week_days.$wday; ^; ^;} }=$week_days.week=
}
@thash[]