| … | |
… | |
| 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; |
