[Tcllib-bugs] [ tcllib-Bugs-1412021 ] Ignoring -service option in DIGEST-MD5
by SourceForge.net other posts by this author
Apr 20 2006 3:09AM messages near this date
[Tcllib-bugs] tcllib-cvs: "tcllib/modules/sasl ChangeLog ntlm.test sasl.tcl sasl.test" modified
|
[Tcllib-bugs] tcllib-cvs: "tcllib/modules/fileutil ChangeLog fileutil.man fileutil.tcl fileutil.test" modified
Bugs item #1412021, was opened at 2006-01-22 12:51
Message generated for change (Comment added) made by patthoyts
You can respond by visiting:
https://sourceforge.net/tracker/?func=detail&atid=112883&aid=1412021&group_id=12883
Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: sasl
Group: None
> Status: Closed
> Resolution: Accepted
Priority: 5
Submitted By: Nobody/Anonymous (nobody)
Assigned to: Pat Thoyts (patthoyts)
Summary: Ignoring -service option in DIGEST-MD5
Initial Comment:
Option -service is ignored in DIGEST-MD5 SASL auth
method. digest-uri is always set to smtp/$realm.
Possible fix is to replace smtp for $ctx(service).
----------------------------------------------------------------------
> Comment By: Pat Thoyts (patthoyts)
Date: 2006-04-20 11:08
Message:
Logged In: YES
user_id=202636
Applied patch and added a test for changed service.
----------------------------------------------------------------------
Comment By: Sergei Golovan (teopetuk)
Date: 2006-03-18 19:18
Message:
Logged In: YES
user_id=410366
Here is the patch which seems to fix the bug:
--- /usr/lib/tcllib1.8/sasl/sasl.tcl 2005-09-19
16:12:39.000000000 +0400
+++ /usr/local/lib/sasl1.0.0/sasl.tcl 2006-03-18
21:24:10.736909032 +0300
@@ -76,7 +76,7 @@
set context [namespace current]::[uid]
variable $context
upvar #0 $context ctx
- array set ctx [list mech {} callback {} proc {} service
{} server {} + array set ctx [list mech {} callback {} proc {} service
smtp server {} step 0 response "" valid false type
client]
eval [linsert $args 0 [namespace origin configure]
$context]
return $context
@@ -401,7 +401,7 @@
set realm [eval $ctx(callback) [list
$context realm]]
}
- set uri "smtp/$realm"
+ set uri "$ctx(service)/$realm"
set A1 [md5_bin "$username:$realm:$password"]
set A2 "AUTHENTICATE:$uri"
----------------------------------------------------------------------
You can respond by visiting:
https://sourceforge.net/tracker/?func=detail&atid=112883&aid=1412021&group_id=12883
-------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________
Tcllib-bugs mailing list
Tcllib-bugs@[...].net
https://lists.sourceforge.net/lists/listinfo/tcllib-bugs
|