Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Changes In Branch fix-ldap-partial Excluding Merge-Ins
This is equivalent to a diff from 00329f8b8f to 8b8f10e2bb
|
2018-01-24
| ||
| 19:12 | Tkt [c247ed5db4] ldap/ldap <B,D>. Merge of fix for protocol error, into release prep. check-in: 2f3369f04b user: aku tags: tcllib-1-19-rc | |
| 19:11 | Tkt [c247ed5db4] ldap/ldap <B,D>. Merge of fix for protocol error. check-in: 0826350f8d user: aku tags: trunk | |
|
2017-11-02
| ||
| 18:21 | Added a timeout to ::coroutine::util::gets_safety. The delay is setable as a new optional argument. The default is 2 minutes. Refactored the HTTP header parsing system for httpd. Fixed a point where the parser was performing a bare read instead of the coroutine savvy version. Fixed bugs in the httpd test suite. New version of Practcl. Simplified the class structure. Shuffled functions to be closer to be where they are used, and also indicate who calls them. Tcl and Tk now compile in the directory relative to the master project. check-in: e0d0875ab4 user: hypnotoad tags: trunk | |
|
2017-11-01
| ||
| 22:48 | Ticket [c247ed5db4]. Fixed handling of partial reception. Thanks to [email protected] for report and patch. Bumped version to 1.9.2. Note, this may fix tickets [b9a39c02c7] and [5f4f30667b] as well. Ping their reporters. Closed-Leaf check-in: 8b8f10e2bb user: aku tags: fix-ldap-partial | |
| 22:18 | Pulling changes from trunk check-in: 1db8e05b30 user: hypnotoad tags: hypnotoad | |
| 19:53 | Extended the generic feedback block with info about desired formats and actions for patches. Regenerated docs. check-in: 00329f8b8f user: aku tags: trunk | |
|
2017-10-31
| ||
| 23:57 | Fix Tcl requirements in math packages. Update affected testsuites. Fix problems with `customMatch` calls. check-in: beb2a1874a user: aku tags: trunk | |
Changes to modules/ldap/ldap.man.
1 |
[comment {-*- tcl -*- doctools manpage}]
| | | 1 2 3 4 5 6 7 8 9 |
[comment {-*- tcl -*- doctools manpage}]
[vset VERSION 1.9.2]
[manpage_begin ldap n [vset VERSION]]
[keywords {directory access}]
[keywords internet]
[keywords ldap]
[keywords {ldap client}]
[keywords protocol]
[keywords {rfc 2251}]
|
| ︙ | ︙ |
Changes to modules/ldap/ldap.tcl.
| ︙ | ︙ | |||
40 41 42 43 44 45 46 | # written by Jochen Loewer # 3 June, 1999 # #----------------------------------------------------------------------------- package require Tcl 8.4 package require asn 0.7 | | | 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 |
# written by Jochen Loewer
# 3 June, 1999
#
#-----------------------------------------------------------------------------
package require Tcl 8.4
package require asn 0.7
package provide ldap 1.9.2
namespace eval ldap {
namespace export connect secure_connect \
disconnect \
bind unbind \
bindSASL \
|
| ︙ | ︙ | |||
764 765 766 767 768 769 770 |
CleanupWaitingMessages $handle
set conn(lastError) [format "Expected SEQUENCE (0x30) but got %x" $type]
return
} else {
set conn(pdu,partial) 1
append conn(pdu,received) $type
}
| | > > > > | | | < | 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 |
CleanupWaitingMessages $handle
set conn(lastError) [format "Expected SEQUENCE (0x30) but got %x" $type]
return
} else {
set conn(pdu,partial) 1
append conn(pdu,received) $type
}
}
partial {
# See ticket https://core.tcl.tk/tcllib/tktview/c247ed5db42e373470bf8a6302717e76eb3c6106
return
}
eof {
CleanupWaitingMessages $handle
set conn(lastError) "Server closed connection"
catch {close $conn(sock)}
return
}
default {
CleanupWaitingMessages $handle
set bytes $type[read $conn(sock)]
binary scan $bytes h* values
set conn(lastError) [format \
"Error reading SEQUENCE response for handle %s : %s : %s" $handle $code $values]
return
}
}
}
# fetch the length
if {[::info exists conn(pdu,length)] && $conn(pdu,length) >= 0} {
# we already have a decoded length
} else {
if {[::info exists conn(pdu,length)] && $conn(pdu,length) < 0} {
# we already know the length, but have not received enough bytes to decode it
|
| ︙ | ︙ |
Changes to modules/ldap/pkgIndex.tcl.
1 2 3 |
# Tcl package index file, version 1.1
if {![package vsatisfies [package provide Tcl] 8.4]} {return}
| | | 1 2 3 4 5 6 7 |
# Tcl package index file, version 1.1
if {![package vsatisfies [package provide Tcl] 8.4]} {return}
package ifneeded ldap 1.9.2 [list source [file join $dir ldap.tcl]]
# the OO level wrapper for ldap
package ifneeded ldapx 1.0 [list source [file join $dir ldapx.tcl]]
|