--- parser3/www/htdocs/Attic/_bug.html 2004/12/08 08:45:13 1.70 +++ parser3/www/htdocs/Attic/_bug.html 2005/11/22 11:31:58 1.104 @@ -1,12 +1,13 @@ -
$response:charset[windows-1251]
-$request:charset[UTF-8]
-$s[
-^mail:send[
- ...
- $.charset[windows-1251]
- ...
- $.text[Для подтверждения пройдите по ссылке: http://aaa.ru/?name=^taint[uri][Миша]]
-]
-]
-^s.save[s.txt]
-OK
\ No newline at end of file
+^for[i](1;100){
+
+$original[^for[j](1;$i){$j}]
+$original[^file::create[text;original.txt;$original]]
+$original.text
+
+$encoded[^original.base64[]]
+$encoded
+
+$decoded[^file::base64[$encoded]]
+$decoded.text
+^if($decoded.text ne $original.text){^throw[bug;here]}
+}