--- deliantra/server/ext/board.ext	2007/01/06 02:41:38	1.3
+++ 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"
    );
 }
 
@@ -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;