Author: dylan
Date: 2005-11-10 07:23:57 -0500 (Thu, 10 Nov 2005)
New Revision: 915
Modified:
trunk/
trunk/docs/spec/Build.PL
trunk/docs/spec/lib/Haver/Spec.pod
trunk/docs/spec/lib/Haver/Spec/Reg.pod
trunk/perl/client/lib/Haver/Client.pm
trunk/perl/server/TODO
Log:
Spec updates.
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
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/winch/trunk:43192
27e50396-46e3-0310-8b22-ae223a1f35ce:/local:212
e9404bb1-7af0-0310-a7ff-e22194cd388b:/haver/local:1401
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
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/winch/trunk:43192
27e50396-46e3-0310-8b22-ae223a1f35ce:/local:212
e9404bb1-7af0-0310-a7ff-e22194cd388b:/haver/local:1556
edfcd8bd-4ce7-0310-a97e-bb1efd40edf3:/local:238
Modified: trunk/docs/spec/Build.PL
===================================================================
--- trunk/docs/spec/Build.PL 2005-11-10 04:58:24 UTC (rev 914)
+++ trunk/docs/spec/Build.PL 2005-11-10 12:23:57 UTC (rev 915)
@@ -3,7 +3,7 @@
use Module::Build;
my $build = Module::Build->new(
module_name => 'Haver::Spec',
- dist_version => '0.08',
+ dist_version => '0.09',
dist_author => 'Dylan Hardison <[EMAIL PROTECTED]>',
license => 'gpl',
requires => { },
Modified: trunk/docs/spec/lib/Haver/Spec/Reg.pod
===================================================================
--- trunk/docs/spec/lib/Haver/Spec/Reg.pod 2005-11-10 04:58:24 UTC (rev
914)
+++ trunk/docs/spec/lib/Haver/Spec/Reg.pod 2005-11-10 12:23:57 UTC (rev
915)
@@ -45,8 +45,6 @@
C: REG:REMOVE $name
S: REG:REMOVE $name
-
-
=head1 YOU FAIL
This extension introduces a few new errors.
Modified: trunk/docs/spec/lib/Haver/Spec.pod
===================================================================
--- trunk/docs/spec/lib/Haver/Spec.pod 2005-11-10 04:58:24 UTC (rev 914)
+++ trunk/docs/spec/lib/Haver/Spec.pod 2005-11-10 12:23:57 UTC (rev 915)
@@ -24,6 +24,20 @@
S: HELLO $name
+B<TODO:> Document possible FAIL errors.
+
+=head2 GHOST
+
+
+ C: GHOST $name
+
+A client can use the command GHOST instead of IDENT.
+If there is already a client connected as $name to the server, and
+the connecting client has the same IP as it, it will disconnect the connected
client
+and allow the connecting client to connect.
+
+B<Note:> This behavior is changed by L<Haver::Spec::Auth>.
+
=head2 JOIN/PART/LIST
C<$namespace> is one of "user", "service", or "channel".
@@ -37,6 +51,15 @@
C: LIST $channel $namespace
S: LIST $channel $namespace Thing1 Thing2 Thing3
+=head2 OPEN/CLOSE
+
+ C: OPEN $channel
+ S: OPEN $channel
+ # or some FAIL message.
+
+ C: CLOSE $channel
+ S: CLOSE $channel
+
=head2 IN/TO/FROM
Public messages (a message sent to everyone in a channel)
Modified: trunk/perl/client/lib/Haver/Client.pm
===================================================================
--- trunk/perl/client/lib/Haver/Client.pm 2005-11-10 04:58:24 UTC (rev
914)
+++ trunk/perl/client/lib/Haver/Client.pm 2005-11-10 12:23:57 UTC (rev
915)
@@ -84,6 +84,7 @@
IN FROM
PING BYE
FAIL
+ AUTH:TYPES AUTH:BASIC
)
};
}
@@ -364,6 +365,21 @@
dispatch('private', @_[ARG1..$#_]);
}
+sub msg_AUTH_TYPES {
+ my ($kernel, $heap, @types) = @_[KERNEL, HEAP, ARG0 .. $#_];
+
+ if (grep(/^AUTH:BASIC$/, @types)) {
+ call('send_raw', qw( AUTH:TYPE AUTH:BASIC ));
+ } else {
+ call('send_raw', qw( AUTH:CANT ));
+ }
+}
+
+sub msg_AUTH_BASIC {
+ my ($kernel, $heap, $nonce, @types) = @_[KERNEL, HEAP, ARG0 .. $#_];
+
+}
+
sub msg_PING {
call('send_raw', 'PONG', @_[ARG1..$#_]);
}
Modified: trunk/perl/server/TODO
===================================================================
--- trunk/perl/server/TODO 2005-11-10 04:58:24 UTC (rev 914)
+++ trunk/perl/server/TODO 2005-11-10 12:23:57 UTC (rev 915)
@@ -1,5 +1,4 @@
* Integrate the config file stuff. Everything that can be configured should be.
* Add an unlisten state to the Listener.
-* Implement AUTH.
* Implement ATTR.
* Implement ACL.
