--- deliantra/server/ext/ipo.ext	2006/12/15 19:29:18	1.1
+++ deliantra/server/ext/ipo.ext	2006/12/26 09:56:52	1.3
@@ -74,8 +74,8 @@
    $r
 }
 
-# this handler handles to notice the player that he has got mail
-cf::attach_to_players
+# this handler notifies the player of new mail
+cf::player->attach (
    on_login => sub {
       my ($pl) = @_;
 
@@ -91,10 +91,10 @@
          $pl->ob->message ("You haven't got any mail.");
       }
    },
-;
+);
 
 # this event handler handles receiving of mails
-cf::register_attachment ipo_mailbox =>
+cf::object::attachment ipo_mailbox =>
    on_apply => sub {
       my ($box, $pl) = @_;
 
@@ -260,7 +260,7 @@
 use POSIX qw/strftime/;
 use CFDB;
 
-my $MAILDB = CFDB->new (db_file => cf::localdir . "/crossfiremail.perl");
+my $MAILDB = CFDB->new (db_file => cf::localdir . "/crossfiremail");
 
 sub get_mail {
    my ($toname) = @_;