--- deliantra/server/ext/guilds.ext	2007/01/06 03:21:59	1.1
+++ deliantra/server/ext/guilds.ext	2007/04/18 14:24:09	1.4
@@ -10,7 +10,7 @@
       if $ob->flag (cf::FLAG_WIZ);
 
    List::Util::max
-      map $_->type == cf::FORCE && $_->slaying eq "Master of $guild" ? 1 : 0,
+      map $_->type == cf::FORCE && $_->slaying eq "$guild master" ? 1 : 0,
          $ob->inv
 }
 
@@ -108,7 +108,7 @@
 use POSIX qw/strftime/;
 use CFDB;
 
-my $GUILDRULESDB = cf::db_get "guildrules";
+my $GUILDRULESDB = Compress::LZF::sthaw cf::db_get guildrules => "data";
 
 sub get {
    my ($guildrules) = @_;
@@ -126,7 +126,7 @@
    my ($guildrules, $idx) = @_;
 
    my $entry = splice @{ $GUILDRULESDB->{"msg_$guildrules"} ||= [] }, $idx, 1;
-   cf::db_dirty;
+   cf::db_put guildrules => data => Compress::LZF::sfreeze_cr $GUILDRULESDB;
    $entry
 }
 
@@ -134,7 +134,7 @@
    my ($guildrules) = @_;
 
    delete $GUILDRULESDB->{"msg_$guildrules"};
-   cf::db_dirty;
+   cf::db_put guildrules => data => Compress::LZF::sfreeze_cr $GUILDRULESDB;
 }
 
 sub put_entry {
@@ -142,7 +142,7 @@
 
    my $entries = $GUILDRULESDB->{"msg_$guildrules"} ||= [];
    push @$entries, [$from, $message];
-   cf::db_dirty;
+   cf::db_put guildrules => data => Compress::LZF::sfreeze_cr $GUILDRULESDB;
 }
 
 1;