File: dupHandle.tcl

package info (click to toggle)
tclcurl 0.9.5-1
  • links: PTS
  • area: main
  • in suites: woody
  • size: 764 kB
  • ctags: 222
  • sloc: ansic: 1,804; tcl: 712; sh: 212; makefile: 42
file content (16 lines) | stat: -rw-r--r-- 250 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
package require TclCurl

set curlHandle1 [curl::init]

$curlHandle1 configure -url 127.0.0.1

set curlHandle2 [$curlHandle1 duphandle]

$curlHandle1 configure -url 127.0.0.1/~Andres/

$curlHandle2 perform


$curlHandle1 cleanup
$curlHandle2 cleanup