--- parser3/www/htdocs/Attic/index.html	2002/11/25 14:10:53	1.179
+++ parser3/www/htdocs/Attic/index.html	2002/11/29 07:48:38	1.191
@@ -296,9 +296,67 @@ OK
 #^http_prefix[]
 #^http_prefix_table[]
 ^http_prefix_xml[]
+#^imagefont[]
+#^downloadtest[]
+#^cachebug[]
+#^quickregexatend[]
+#^docsamplehttpfileload[]
+
+@docsamplehttpfileload[]
+$file[^file::load[text;http://parser.ru/]]
+Ïðîãðàììíîå îáåñïå÷åíèå ñåðâåðà: $file.SERVER
+<hr>
+<pre>$file.text</pre>
+
+@quickregexatend[]
+#$subject[xxxabcd]
+#^if(^subject.match[^(?>.*)(?<=abcd)]){y;n}
+$subject[^for[i](0;1000){xxxxxyyyyy}   ]
+^for[j](0;1000){
+#$trimmed[^subject.match[\s+^$][]{}]
+#$table[^subject.match[^(.*\S)\s+^$]]
+$table[^subject.match[^(.*\S)\s+^$]]
+$trimmed[$table.1]
+}
+^untaint[html]{"$trimmed"}
+#$table[^subject.match[^(.*?)\s+^$]]
+#^untaint[html]{"$table.1"}
+
+
+@cachebug[]
+^cache[test](10){body}
+
+@downloadtest[]
+$response:body[^file::load[binary;index.html]]
+
+
+@imagefont[]
+$image[^image::create(200;30;0x00FFFF)]
+height(font)=1950<br>
+$alph[ ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ0123456789-+=!\"%:,.^;<>?@()^[^]'&*/]
+^^alph.length[]=^alph.length[]<br>
+^eval(1950/^alph.length[])[%.10f]
+
+^image.font[$alph;font.gif](20)
+$text[AÏðèâåò*]
+^image.text(0;0)[$text]
+$length[^image.length[$text]]
+#^image.rectangle(0;50)(2;2)(0x000000)
+^image.rectangle(0;0)($length-1;5)(0x000000)
+$response:body[^image.gif[]]
 
 @http_prefix_xml[]
- $xdoc[^xdoc::load[http://www.cbr.ru/scripts/XML_daily.asp?date_req=02/03/2002;$.param[1]]]
+$xdoc[^xdoc::load[http://www.cbr.ru/scripts/XML_daily.asp?^taint[ñåãîäíÿ];
+    $.headers[
+		$.user-agent[ÏÀÔ]
+	]
+]]
+Íà ^xdoc.selectString[string(/ValCurs/@Date)]
+êóðñ âàëþòû
+$USD_node[^xdoc.selectSingle[/ValCurs/Valute[CharCode='USD']]]
+"^USD_node.selectString[string(Name)]" ðàâåí ^USD_node.selectString[string(Value)]
+
+<hr>
 <pre>^taint[^xdoc.string[]]</pre>
 
 @http_prefix_table[]
@@ -310,9 +368,13 @@ $table[^table::load[nameless;http://www.
 @http_prefix[]
 #$file[^file::load[text;http://www.artlebedev.ru]]
 #$file[^file::load[text;http://www.artlebedev.ru;alt]]
-$file[^file::load[text;http://www.artlebedev.ru;
-	$.USER-AGENT[paf]
+#$file[^file::load[text;http://parser3/exif.html;
+$file[^file::load[text;http://parser3/none;
+	$.headers[
+		$.USER-AGENT[paf]
+	]
 ]]
+server: $file.SERVER<br>
 $file.status
 <hr>
 <pre>$file.text</pre>