--- deliantra/server/ext/board.ext	2007/02/12 00:27:20	1.4
+++ deliantra/server/ext/board.ext	2007/04/18 14:24:09	1.5
@@ -89,7 +89,7 @@
 use POSIX qw/strftime/;
 use CFDB;
 
-my $BOARDDB = cf::db_get board => "data";
+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_put board => data => $BOARDDB;
+   cf::db_put board => data => Compress::LZF::sfreeze_cr $BOARDDB;
    $entry
 }
 
@@ -115,7 +115,7 @@
    my ($board) = @_;
 
    delete $BOARDDB->{"msg_$board"};
-   cf::db_put board => data => $BOARDDB;
+   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_put board => data => $BOARDDB;
+   cf::db_put board => data => Compress::LZF::sfreeze_cr $BOARDDB;
 }
 
 1;