|
|
1.1 misha 1: @main[]
2: $request:charset[windows-1251]
3: $response:charset[windows-1251]
4: $response:content-type[
5: $.value[text/html]
6: $.charset[$response:charset]
7: ]
8:
9: ^do[utf-8]
10:
11: ^do[utf-8;
12: $.content-type[
13: $.value[application/x-www-form-urlencoded]
14: $.charset[utf-8]
15: ]
16: ]
17:
18: ^do[windows-1251;
19: $.content-type[
20: $.value[application/x-www-form-urlencoded]
21: $.charset[windows-1251]
22: ]
23: ]
24:
25:
26:
27: @do[sCharset;hHeaders][f]
28: $f[^file::load[text;http://www.parser.ru/_/tests/228.html;
29: $.charset[$sCharset]
30: $.timeout(5)
31: $.any-status(1)
32: $.method[post]
33: ^if(def $hHeaders){
34: $.headers[$hHeaders]
35: }
36: $.body[charset=$sCharset&a=áóêâû&b=^taint[uri][ÁÓÊÂÛ]]
37: ]]
38: ^taint[as-is][$f.text]<br />