|
|
| version 1.23, 2004/03/02 14:56:42 | version 1.103, 2005/11/22 11:21:35 |
|---|---|
| Line 1 | Line 1 |
| $request:charset[windows-1251] | ^for[i](1;200){ |
| $response:charset[windows-1251] | <hr> |
| $original[^for[j](1;$i){$j}] | |
| ^connect[$SQL.connect-string]{ | $original |
| #$f[^file::sql{select 2*2 from dual}] | <br> |
| #^f.save[binary;file_sql.dat] | $encoded[^original.base64[]] |
| $f[^file::load[binary;_bug.gif]] | $encoded |
| =^f.sql-string[]= | <br> |
| $decoded[^string:base64[$encoded]] | |
| $decoded | |
| ^if($decoded ne $original){^throw[bug;here]} | |
| } | } |