[haver-commits] r827 - in trunk: . docs/spec/Haver/Spec perl/server/lib/Haver/Server/Wheel

[haver]

Author: dylan
Date: 2005-06-25 22:41:48 -0400 (Sat, 25 Jun 2005)
New Revision: 827

Modified:
   trunk/
   trunk/docs/spec/Haver/Spec/Auth.pod
   trunk/perl/server/lib/Haver/Server/Wheel/Auth.pm
   trunk/perl/server/lib/Haver/Server/Wheel/Login.pm
Log:
 [EMAIL PROTECTED]:  dylan | 2005-06-25 22:41:43 -0400
 Fixes related to discussion with bd_.



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:1199
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:1201
edfcd8bd-4ce7-0310-a97e-bb1efd40edf3:/local:238

Modified: trunk/docs/spec/Haver/Spec/Auth.pod
===================================================================
--- trunk/docs/spec/Haver/Spec/Auth.pod 2005-06-26 01:47:41 UTC (rev 826)
+++ trunk/docs/spec/Haver/Spec/Auth.pod 2005-06-26 02:41:48 UTC (rev 827)
@@ -19,8 +19,8 @@
 Otherwise:
 
   C: IDENT  vadim
-  S: AUTH:TYPES  basic  foo  bar  baz
-  C: AUTH:TYPE  basic
+  S: AUTH:TYPES  AUTH:BASIC  GPG:AUTH
+  C: AUTH:TYPE  AUTH:BASIC
   S: AUTH:BASIC  $nonce  sha1  md5
   C: AUTH:BASIC  $digest  $response
 

Modified: trunk/perl/server/lib/Haver/Server/Wheel/Auth.pm
===================================================================
--- trunk/perl/server/lib/Haver/Server/Wheel/Auth.pm    2005-06-26 01:47:41 UTC 
(rev 826)
+++ trunk/perl/server/lib/Haver/Server/Wheel/Auth.pm    2005-06-26 02:41:48 UTC 
(rev 827)
@@ -30,7 +30,7 @@
        my ($kernel, $heap, $args) = @_[KERNEL, HEAP, ARG0];
        my $config = $heap->{config};
        my $type = $args->[0];
-       if ($type eq 'basic') {
+       if ($type eq 'AUTH:BASIC') {
                $heap->{nonce} = rand_word();
                $heap->{client}->put([
                                'AUTH:BASIC',

Modified: trunk/perl/server/lib/Haver/Server/Wheel/Login.pm
===================================================================
--- trunk/perl/server/lib/Haver/Server/Wheel/Login.pm   2005-06-26 01:47:41 UTC 
(rev 826)
+++ trunk/perl/server/lib/Haver/Server/Wheel/Login.pm   2005-06-26 02:41:48 UTC 
(rev 827)
@@ -50,7 +50,7 @@
        } elsif ($store->exists($ns, $name)) {
                $heap->{name} = $name;
                if (exists $heap->{extensions}{auth}) {
-                       $heap->{client}->put(['AUTH:TYPES', 'basic']);
+                       $heap->{client}->put(['AUTH:TYPES', 'AUTH:BASIC']);
                        
$heap->{loader}->load_wheel('Haver::Server::Wheel::Auth');
                } else {
                        $kernel->yield('fail', 'auth.impossible');