← Back to branch summary

~ubuntu-branches/debian/lenny/tclcurl/lenny

« back to all changes in this revision

Viewing changes to generic/tclcurl.tcl

  • Committer: Bazaar Package Importer
  • Author(s): Sven Hoexter
  • Date: 2008-02-13 21:21:39 UTC
  • mfrom: (1.3.1 upstream) (4.1.1 gutsy)
  • Revision ID: james.westby@ubuntu.com-20080213212139-rj3683kvvyovvuon
Tags: 7.17.1-1
* New upstream release to support curl 7.17.1 features.
* Following lintian advice for debian-rules-ignores-make-clean-error.
* Moved the Homepage from the Description into the new Homepage field.
* Removed man-quoting patch; got applied upstream.
* Standards-Version: 3.7.3 - no changes required.
* Build depend on tcl-dev instead of tcl8.4-dev.
* Refreshed man-section and correct-linking patch.
* Added LDFLAGS += -Wl,-z,defs -Wl,--as-needed so that I can shorten
  the correct-linking patch to kerberos related libs.
* Switched to use tcltk-depends to depend on the right Tcl version.
* Added Vcs-Svn field to debian/control.
* Reworked debian/rules to make it a bit clearer what happens.
* Adopt the new Tcl/Tk policy and move the lib into /usr/lib/tcltk.
* Added patch reformat-tclcurl3 to prevent confusion of man.
* Updated the copyright file and formated it to make lintian happy.

Show diffs side-by-side

added added

removed removed

Lines of Context:
generic/tclcurl.tcl
6
6
## Includes the tcl part of TclCurl
7
7
################################################################################
8
8
################################################################################
9
 
## (c) 2001-2006 Andr�s Garc�a Garc�a. fandom@telefonica.net
 
9
## (c) 2001-2007 Andres Garcia Garcia. fandom@telefonica.net
10
10
## See the file "license.terms" for information on usage and redistribution
11
11
## of this file and for a DISCLAIMER OF ALL WARRANTIES.
12
12
################################################################################
13
13
################################################################################
14
14
 
15
 
package provide TclCurl 0.15.3
 
15
package provide TclCurl 7.17.1
16
16
 
17
17
namespace eval curl {
18
18
 
67
67
    set i 0
68
68
    set newArgs ""
69
69
    catch {unset getInfo}
 
70
 
70
71
    foreach {option value} $args {
71
72
        set noPassOption 0
72
73
        set block        1
101
102
    if {[catch {::curl::init} curlHandle]} {
102
103
        error "Could not init a curl session: $curlHandle"
103
104
    }
 
105
 
104
106
    if {[catch {eval $curlHandle configure $newArgs} result]} {
105
107
        $curlHandle  cleanup
106
108
        error $result
132
134
 
133
135
        # And we return, it is non blocking after all.
134
136
    }
135
 
 
136
137
    return 0
137
138
}
138
139