[BACK]Return to 346-curl.html CVS log [TXT] [DIR] Up to [parser3project] / parser3 / tests

Diff for /parser3/tests/346-curl.html between versions 1.1 and 1.5

version 1.1, 2016/08/03 16:36:16 version 1.5, 2016/08/04 20:13:48
Line 1 Line 1
   @main[]
   
   ^try-catch{ ^curl:info[] }
   ^try-catch{ ^curl:options[ $.charset[UTF-8] ] }
   ^try-catch{ ^curl:options[ $.url[http://parser.ru/] ] }
   
   ^curl:session{ $s[^curl:version[]] }
   
   ^try-catch{ ^curl:options[ $.library[no-such-library.so] ] }
   
 ^curl:session{  ^curl:session{
     $s[^curl:version[]]          ^try-catch{ ^curl:options[ $.url[ftp://parser.ru/] ] }
     ^json:string[^curl:info[]]          ^try-catch{ ^curl:options[ $.httppost[ $.name[ $.hash[] ]] ] }
           ^try-catch{ ^curl:options[ $.httppost[string] ] }
           ^try-catch{ ^curl:options[ $.no-such-option[] ] }
           ^try-catch{ ^curl:info[no-such-info] }
           ^json:string[^curl:info[]]
   
           ^curl:options[
                   $.url[http://www.parser.ru/_/tests/readme]
                   $.timeout(5)
           ]
   
           $f[^curl:load[
                   $.range[4-] 
           ]]
   
           $f.text $f.CONTENT-RANGE
   
           $f[^curl:load[
                   $.range[33-]
           ]]
   
           $f.text $f.CONTENT-RANGE
 }  }
 $s[^curl:version[]]  
 ^try-catch{^curl:load[ $.url[ftp://parser.ru/] ]}  ^show[text;
           $.postfields[test]
           $.useragent[^taint[parser 3]]
   
           $.name[test.txt]
           $.mode[binary]
           $.content-type[something/text]
   ]
   
   ^show[binary;
           $.postfields[^file::load[binary;155.cfg]]
   ]
   
   ^show[empty post;
           $.httppost[]
   ]
   
   ^try-catch{ ^curl:load[ $.url[http://no-such-domain.parser.ru/] ] }
   
   @show[title;options][f;text;t;post]
   
   $f[^curl:load[
           $options
           $.timeout(5)
           $.url[http://www.parser.ru/_/tests/223.pl]
   ]]
   
   $title : {
   "name":"$f.name",
   "size":$f.size,
   "mode":"$f.mode",
   "content-type":"^taint[json;$f.content-type]",
   }
   
   $text[^taint[as-is][$f.text]]
   # cut off the post's body is any
   $text[^text.match[POST:(.*)<EOF>][]{$post[$match.1]}]
   
   # create table with http headers
   $t[^table::create[nameless]{^taint[as-is][^text.replace[^table::create{a        b
    =      ^taint[^#09]
   ^taint[^#0A]    ^taint[^#0A]}]]}]
   ^t.sort{$t.0}
   
   # print all
   <h3>Headers</h3>
   <pre>^t.menu{$t.0       : $t.1}[^#0A]</pre>
   
   <h3>Body</h3>
   <pre>^taint[as-is][$post]</pre>
   <hr />
Removed from v.1.1  
changed lines
  Added in v.1.5

E-mail: