… | |
… | |
106 | package CFguildrules; |
106 | package CFguildrules; |
107 | |
107 | |
108 | use POSIX qw/strftime/; |
108 | use POSIX qw/strftime/; |
109 | use CFDB; |
109 | use CFDB; |
110 | |
110 | |
111 | my $GUILDRULESDB = cf::db_get guildrules => "data"; |
111 | my $GUILDRULESDB = Compress::LZF::sthaw cf::db_get guildrules => "data"; |
112 | |
112 | |
113 | sub get { |
113 | sub get { |
114 | my ($guildrules) = @_; |
114 | my ($guildrules) = @_; |
115 | |
115 | |
116 | $GUILDRULESDB->{"msg_$guildrules"} ||= [] |
116 | $GUILDRULESDB->{"msg_$guildrules"} ||= [] |
… | |
… | |
124 | |
124 | |
125 | sub remove_entry { |
125 | sub remove_entry { |
126 | my ($guildrules, $idx) = @_; |
126 | my ($guildrules, $idx) = @_; |
127 | |
127 | |
128 | my $entry = splice @{ $GUILDRULESDB->{"msg_$guildrules"} ||= [] }, $idx, 1; |
128 | my $entry = splice @{ $GUILDRULESDB->{"msg_$guildrules"} ||= [] }, $idx, 1; |
129 | cf::db_put guildrules => data => $GUILDRULESDB; |
129 | cf::db_put guildrules => data => Compress::LZF::sfreeze_cr $GUILDRULESDB; |
130 | $entry |
130 | $entry |
131 | } |
131 | } |
132 | |
132 | |
133 | sub clear { |
133 | sub clear { |
134 | my ($guildrules) = @_; |
134 | my ($guildrules) = @_; |
135 | |
135 | |
136 | delete $GUILDRULESDB->{"msg_$guildrules"}; |
136 | delete $GUILDRULESDB->{"msg_$guildrules"}; |
137 | cf::db_put guildrules => data => $GUILDRULESDB; |
137 | cf::db_put guildrules => data => Compress::LZF::sfreeze_cr $GUILDRULESDB; |
138 | } |
138 | } |
139 | |
139 | |
140 | sub put_entry { |
140 | sub put_entry { |
141 | my ($guildrules, $from, $message) = @_; |
141 | my ($guildrules, $from, $message) = @_; |
142 | |
142 | |
143 | my $entries = $GUILDRULESDB->{"msg_$guildrules"} ||= []; |
143 | my $entries = $GUILDRULESDB->{"msg_$guildrules"} ||= []; |
144 | push @$entries, [$from, $message]; |
144 | push @$entries, [$from, $message]; |
145 | cf::db_put guildrules => data => $GUILDRULESDB; |
145 | cf::db_put guildrules => data => Compress::LZF::sfreeze_cr $GUILDRULESDB; |
146 | } |
146 | } |
147 | |
147 | |
148 | 1; |
148 | 1; |