--- deliantra/server/ext/guilds.ext	2007/01/06 03:21:59	1.1
+++ deliantra/server/ext/guilds.ext	2007/02/12 00:27:20	1.2
@@ -108,7 +108,7 @@
 use POSIX qw/strftime/;
 use CFDB;
 
-my $GUILDRULESDB = cf::db_get "guildrules";
+my $GUILDRULESDB = 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 => $GUILDRULESDB;
    $entry
 }
 
@@ -134,7 +134,7 @@
    my ($guildrules) = @_;
 
    delete $GUILDRULESDB->{"msg_$guildrules"};
-   cf::db_dirty;
+   cf::db_put guildrules => data => $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 => $GUILDRULESDB;
 }
 
 1;