Author: muffin
Date: 2006-03-04 23:47:40 -0500 (Sat, 04 Mar 2006)
New Revision: 972
Modified:
trunk/perl/server/lib/Haver/Server/Wheel/Main.pm
Log:
(Re?)enable CLOSE in server
Modified: trunk/perl/server/lib/Haver/Server/Wheel/Main.pm
===================================================================
--- trunk/perl/server/lib/Haver/Server/Wheel/Main.pm 2006-03-05 04:08:02 UTC
(rev 971)
+++ trunk/perl/server/lib/Haver/Server/Wheel/Main.pm 2006-03-05 04:47:40 UTC
(rev 972)
@@ -13,8 +13,8 @@
$self->msg(
qw(
TO IN BYE POKE PONG
- JOIN OPEN PART LIST
- INFO
+ JOIN PART OPEN CLOSE
+ LIST INFO
)
);
@@ -118,9 +118,6 @@
if (not $chan->contains('user', $user->name)) {
$heap->{client}->put(['CLOSE', $name]);
}
-
-
-
}
sub msg_PART {
@@ -280,11 +277,11 @@
__END__
=head1 NAME
-Haver::Server::Wheel::Message - description
+Haver::Server::Wheel::Main - description
=head1 SYNOPSIS
- use Haver::Server::Wheel::Message;
+ use Haver::Server::Wheel::Main;
# Small code example.
=head1 DESCRIPTION
@@ -293,7 +290,7 @@
=head1 INHERITENCE
-Haver::Server::Wheel::Message extends blaa blaa blaa
+Haver::Server::Wheel::Main extends blaa blaa blaa
=head1 CONSTRUCTOR
@@ -322,7 +319,7 @@
=head1 COPYRIGHT and LICENSE
-Copyright (C) 2005 by Dylan William Hardison. All Rights Reserved.
+Copyright (C) 2005-2006 by Dylan William Hardison. All Rights Reserved.
This module is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
_______________________________________________
Haver-commits mailing list
[email protected]
https://mail.gna.org/listinfo/haver-commits
