Author: dylan
Date: 2005-06-25 21:47:41 -0400 (Sat, 25 Jun 2005)
New Revision: 826
Modified:
trunk/
trunk/docs/spec/Haver/Spec/Auth.pod
trunk/perl/server/lib/Haver/Server/Wheel/Auth.pm
Log:
[EMAIL PROTECTED]: dylan | 2005-06-25 21:47:36 -0400
digest list is now tab seperated for sanity reasons.
Property changes on: trunk
___________________________________________________________________
Name: svk:merge
- 1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/havercurs-objc:43089
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk:11166
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk-merge-10131:11178
27e50396-46e3-0310-8b22-ae223a1f35ce:/local:212
e9404bb1-7af0-0310-a7ff-e22194cd388b:/haver/local:1197
edfcd8bd-4ce7-0310-a97e-bb1efd40edf3:/local:238
+ 1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/havercurs-objc:43089
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk:11166
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk-merge-10131:11178
27e50396-46e3-0310-8b22-ae223a1f35ce:/local:212
e9404bb1-7af0-0310-a7ff-e22194cd388b:/haver/local:1199
edfcd8bd-4ce7-0310-a97e-bb1efd40edf3:/local:238
Modified: trunk/docs/spec/Haver/Spec/Auth.pod
===================================================================
--- trunk/docs/spec/Haver/Spec/Auth.pod 2005-06-25 23:36:42 UTC (rev 825)
+++ trunk/docs/spec/Haver/Spec/Auth.pod 2005-06-26 01:47:41 UTC (rev 826)
@@ -21,13 +21,13 @@
C: IDENT vadim
S: AUTH:TYPES basic foo bar baz
C: AUTH:TYPE basic
- S: AUTH:BASIC $nonce sha1,md5
+ S: AUTH:BASIC $nonce sha1 md5
C: AUTH:BASIC $digest $response
If the authentication is successful, the server will send HELLO as per normal.
If not, the server will fail the client with B<auth.fail>.
-$digest is one of the names listed in the second argument of S:AUTH:BASIC.
+$digest is one of the parameters after the first parameter of S:AUTH:BASIC.
$response is the result of hashing the concatenation of $nonce and the user's
passcode
using the hash function named in $digest. The $response is always base64
encoded.
Modified: trunk/perl/server/lib/Haver/Server/Wheel/Auth.pm
===================================================================
--- trunk/perl/server/lib/Haver/Server/Wheel/Auth.pm 2005-06-25 23:36:42 UTC
(rev 825)
+++ trunk/perl/server/lib/Haver/Server/Wheel/Auth.pm 2005-06-26 01:47:41 UTC
(rev 826)
@@ -35,7 +35,7 @@
$heap->{client}->put([
'AUTH:BASIC',
$heap->{nonce},
- join(',', keys %{ $config->digests })
+ keys %{ $config->digests },
]
);
}
