--- deliantra/server/ext/board.ext	2006/12/21 22:41:34	1.2
+++ deliantra/server/ext/board.ext	2008/09/22 01:33:09	1.6
@@ -3,11 +3,11 @@
 sub do_help {
    my ($board, $who, $npc) = @_;
    $who->reply ($npc,
-      "Help for $board\n"
-     ."List of commands:\n\n"
-     ."- list\n"
-     ."- write <message>\n"
-     ."- remove <id>\n"
+      "Help for $board\n\n"
+      . "List of commands:\n\n"
+      . " - list\n"
+      . " - write <message>\n"
+      . " - remove <id>\n"
    );
 }
 
@@ -78,7 +78,7 @@
 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;