--- parser3/www/htdocs/Attic/index.html	2002/05/15 09:40:43	1.58
+++ parser3/www/htdocs/Attic/index.html	2002/06/10 14:13:08	1.64
@@ -1,21 +1,21 @@
 #@USE
 #t.p
 
-@autoz[]
+@autoZ[]
+#$form:here
 $request:charset[windows-1251]
 $response:charset[windows-1251]
 $response:content-type[$.value[text/html]$.charset[$response:charset]]
 
-@postprocess[body]
-#=$env:HTTP_TEST=<br>
-#=$env:REDIRECT_HTTP_TEST=<br>
-#<hr>
-$body
-<hr>
-OK
+#@postprocess[body]
+#<b>$body</b>
+#$result[123]
 
 @main[]
-#^sqldefaults[]
+#^connect[mysql://mdm:4b833ljq@db-mysql/mdm]{
+#	^int:sql{select news_id from news where news_id=-1}[$.default{2}]<br>
+#    ^string:sql{select news_id from news where news_id=-1}[$.default{2}]
+#}
 #^eval(2)
 #^tcrashlocaljunctionsv2[]
 #^tcrashlocaljunctions[]
@@ -153,13 +153,72 @@ OK
 #^xpath2[]
 #^callindirect[]
 #^junctionprob[]
-^datecreatestring2[]
+#^datecreatestring2[]
+#^tstoredproc[]
+#^tstoredproc2[]
+#^forkeys[]
+#^pngsize[]
+#^checkList[]
+#^datetest[]
+^tserge[]
+
+@tserge[]
+^if(" 09 "){y}
+
+@datetest[]
+	$f[^file::stat[some.zip]]
+Размер в байтах: $f.size<br>
+Год создания: $f.cdate.year<br>
+$now[^date::now[]]
+$DAYS_CONSIDERED_NEW(3)
+Статус: ^if($f.mdate >= $now-$DAYS_CONSIDERED_NEW){новый;старый}
+
+
+@checkList[]
+...^oneOf[a;a,b,c]...<br>
+#...^oneOf[a;ax,b,c]...<br>
+...^oneWord[word]...<br>
+#...^oneWord[wo rd]...<br>
+
+
+@oneOf[s;list][t] выдаёт строку, если строка она есть в списке(разделенном запятыми)
+$t[^list.lsplit[,]]
+^if(!^t.locate[piece;$s]){^throw[user;$s;unknown]}
+$result[$s]
+
+@oneWord[s]
+^if(^s.match[\W]){^throw[user.data;$s;not word]}{$s}
+
+@pngsize[]
+$i[^image::measure[test.png]]
+^i.html[]
+
+
+@forkeys[]
+$text[^form:fields.foreach[key;val]{$key=$val
+}]
+^text.save[ttt.txt]
+=$text=
+
+
+@tstoredproc2[]
+^connect[odbc://DSN=nestle^;UID=nestle^;PWD=mbm32]{
+	^void:sql{exec pafvoid}
+}
+
+@tstoredproc[]
+^connect[odbc://DSN=nestle^;UID=nestle^;PWD=mbm32]{
+	$t[^table::sql{exec pafproc}]
+#	$t[^table::sql{{call pafproc}}]
+	$c[^t.columns[]]
+	^c.menu{$c.column}[<br>]
+}
 
 @datecreatestring2[]
 <table border=1>
 ^datecreatestring2show[2000]
 ^datecreatestring2show[2000-02]
-^datecreatestring2show[2000-02-03]
+^datecreatestring2show[2000-2-03]
 ^datecreatestring2show[2000-02-03 15]
 ^datecreatestring2show[2000-02-03 15:30] 
 ^datecreatestring2show[2000-02-03 15:30:04] 
@@ -272,6 +331,10 @@ $h[^t.hash[p]]
 	^int:sql{select news_id from news where news_id=-1}[$.default{2}]<br>
     ^string:sql{select news_id from news where news_id=-1}[$.default{2}]
 }
+=======
+<hr>
+OK
+>>>>>>> 1.50
 
 @tcrashlocaljunctionsv2[]
 $a[