--- deliantra/server/ext/board.ext	2006/12/15 19:29:18	1.1
+++ deliantra/server/ext/board.ext	2007/04/18 14:24:09	1.5
@@ -75,10 +75,10 @@
    1
 };
 
-cf::register_attachment board =>
+cf::object::attachment board =>
    on_apply => sub {
       my ($npc, $who) = @_;
-      $who->reply ($npc, "Hello, i'm a talking board, 'say help' to get help");
+      $who->reply ($npc, "Hello, I'm a talking board, 'say help' to get help");
       do_list ($npc->name, $who, $npc);
       cf::override;
    },
@@ -89,7 +89,7 @@
 use POSIX qw/strftime/;
 use CFDB;
 
-my $BOARDDB = cf::db_get "board";
+my $BOARDDB = Compress::LZF::sthaw cf::db_get board => "data";
 
 sub get {
    my ($board) = @_;
@@ -107,7 +107,7 @@
    my ($board, $idx) = @_;
 
    my $entry = splice @{ $BOARDDB->{"msg_$board"} ||= [] }, $idx, 1;
-   cf::db_dirty;
+   cf::db_put board => data => Compress::LZF::sfreeze_cr $BOARDDB;
    $entry
 }
 
@@ -115,7 +115,7 @@
    my ($board) = @_;
 
    delete $BOARDDB->{"msg_$board"};
-   cf::db_dirty;
+   cf::db_put board => data => Compress::LZF::sfreeze_cr $BOARDDB;
 }
 
 sub put_entry {
@@ -123,7 +123,7 @@
 
    my $entries = $BOARDDB->{"msg_$board"} ||= [];
    push @$entries, [$from, $message];
-   cf::db_dirty;
+   cf::db_put board => data => Compress::LZF::sfreeze_cr $BOARDDB;
 }
 
 1;