Author: dylan
Date: 2005-06-21 02:40:18 -0400 (Tue, 21 Jun 2005)
New Revision: 788
Removed:
trunk/perl/server/bin/haver-new-user.pl
trunk/perl/server/bin/haver-passwd.pl
Modified:
trunk/
trunk/perl/server/lib/Haver/Server.pm
trunk/perl/server/lib/Haver/Server/Config.pm
Log:
[EMAIL PROTECTED]: dylan | 2005-06-21 02:40:03 -0400
removed old gunk; server now starts with a few channels open.
Property changes on: trunk
___________________________________________________________________
Name: svk:merge
- 1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/havercurs-objc:43050
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:1127
edfcd8bd-4ce7-0310-a97e-bb1efd40edf3:/local:238
+ 1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/havercurs-objc:43050
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:1128
edfcd8bd-4ce7-0310-a97e-bb1efd40edf3:/local:238
Deleted: trunk/perl/server/bin/haver-new-user.pl
===================================================================
--- trunk/perl/server/bin/haver-new-user.pl 2005-06-21 06:40:16 UTC (rev
787)
+++ trunk/perl/server/bin/haver-new-user.pl 2005-06-21 06:40:18 UTC (rev
788)
@@ -1,33 +0,0 @@
-#!/usr/bin/perl
-# Copyright (C) 2003 Dylan William Hardison
-#
-# This program 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 program 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 program; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-
-
-use strict;
-use warnings;
-use Haver::Server::Object::User;
-
-
-my $id = shift;
-my $dir = shift;
-
-Haver::Server::Object->store_dir($dir);
-my $u = new Haver::Server::Object::User(id => $id);
-
-
-$u->save;
-
-
Deleted: trunk/perl/server/bin/haver-passwd.pl
===================================================================
--- trunk/perl/server/bin/haver-passwd.pl 2005-06-21 06:40:16 UTC (rev
787)
+++ trunk/perl/server/bin/haver-passwd.pl 2005-06-21 06:40:18 UTC (rev
788)
@@ -1,36 +0,0 @@
-#!/usr/bin/perl
-# Copyright (C) 2003 Dylan William Hardison
-#
-# This program 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 program 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 program; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-
-
-use strict;
-use warnings;
-use YAML qw(LoadFile DumpFile);
-use Digest::SHA1 qw(sha1_base64);
-
-my $file = shift or die "usage: $0 file";
-my $data = LoadFile($file);
-
-print "Password: ";
-my $pass = readline STDIN;
-chomp $pass;
-
-$data->{password} = sha1_base64($pass);
-
-
-DumpFile($file, $data);
-
-
Modified: trunk/perl/server/lib/Haver/Server/Config.pm
===================================================================
--- trunk/perl/server/lib/Haver/Server/Config.pm 2005-06-21 06:40:16 UTC
(rev 787)
+++ trunk/perl/server/lib/Haver/Server/Config.pm 2005-06-21 06:40:18 UTC
(rev 788)
@@ -15,6 +15,11 @@
Port => 7070,
},
],
+ Channels => [qw(
+ lobby
+ creatures
+ basement
+ )],
};
Modified: trunk/perl/server/lib/Haver/Server.pm
===================================================================
--- trunk/perl/server/lib/Haver/Server.pm 2005-06-21 06:40:16 UTC (rev
787)
+++ trunk/perl/server/lib/Haver/Server.pm 2005-06-21 06:40:18 UTC (rev
788)
@@ -60,6 +60,14 @@
}
);
}
+ foreach my $chan (@{ $config->get('Channels') }) {
+ Log('debug', "Openning channel $chan");
+ $lobby->add(
+ new Haver::Server::Entity::Channel (
+ name => $chan,
+ )
+ );
+ }
}
sub _stop {
