Author: dylan
Date: 2004-12-28 02:08:51 -0500 (Tue, 28 Dec 2004)
New Revision: 431
Added:
trunk/main/server/ChangeLog
trunk/main/server/lib/Haver/Server.pm
Modified:
trunk/main/common/Build.PL
trunk/main/server/lib/Haver/Server/Avatar.pm
Log:
hmm, I thought I already commited this stuff...
Modified: trunk/main/common/Build.PL
===================================================================
--- trunk/main/common/Build.PL 2004-12-17 23:08:09 UTC (rev 430)
+++ trunk/main/common/Build.PL 2004-12-28 07:08:51 UTC (rev 431)
@@ -1,11 +1,9 @@
#!/usr/bin/perl
use Module::Build;
my $build = Module::Build->new(
- module_name => 'Haver',
- dist_name => 'haver-core',
- dist_version_from => 'lib/Haver.pm',
- dist_author => 'Dylan William Hardison <[EMAIL PROTECTED]>',
- dist_abstract => 'Common modules for Haver::Server and
Haver::Client',
+ module_name => 'Haver::Core',
+ dist_version_from => 'lib/Haver/Core.pm',
+ dist_author => 'Dylan William Hardison <[EMAIL PROTECTED]>',
license => 'gpl',
requires => {
'perl' => '5.6.1',
Added: trunk/main/server/ChangeLog
===================================================================
--- trunk/main/server/ChangeLog 2004-12-17 23:08:09 UTC (rev 430)
+++ trunk/main/server/ChangeLog 2004-12-28 07:08:51 UTC (rev 431)
@@ -0,0 +1,5 @@
+2004-10-26 Dylan Hardison <[EMAIL PROTECTED]>
+
+ * Build.PL: We're now officially Haver::Server, all efforts at
separating
+ POE have ceased.
+
Modified: trunk/main/server/lib/Haver/Server/Avatar.pm
===================================================================
--- trunk/main/server/lib/Haver/Server/Avatar.pm 2004-12-17 23:08:09 UTC
(rev 430)
+++ trunk/main/server/lib/Haver/Server/Avatar.pm 2004-12-28 07:08:51 UTC
(rev 431)
@@ -116,7 +116,7 @@
my ($kernel, $heap, $event, $args) = @_[KERNEL, HEAP, ARG0, ARG1];
my $cmd = $event;
- if ($event =~ s/^cmd_//) {
+ if ($event =~ s/^evt_//) {
$kernel->call($_[SESSION], 'unknown_cmd', $event, $_[ARG1][0],
$cmd);
}
$kernel->post('Logger', 'error', "Unknown event: $event");
@@ -150,7 +150,7 @@
my $want = 0;
my $cmd = shift @$args;
- my $event = 'cmd_' . $cmd;
+ my $event = 'evt_' . $cmd;
$kernel->yield($event, $args, $cmd);
Added: trunk/main/server/lib/Haver/Server.pm
===================================================================
--- trunk/main/server/lib/Haver/Server.pm 2004-12-17 23:08:09 UTC (rev
430)
+++ trunk/main/server/lib/Haver/Server.pm 2004-12-28 07:08:51 UTC (rev
431)
@@ -0,0 +1,28 @@
+# vim: set ft=perl ts=4 sw=4:
+# Haver::Server - description
+#
+# Copyright (C) 2004 Dylan William Hardison.
+#
+# 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
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This module is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this module; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+package Haver::Server;
+use strict;
+use warnings;
+
+our $VERSION = 0.0705;
+
+
+
+
+1;
