| … | … | ||
|---|---|---|---|
| 247 | 1 | 247 | 1 |
| 248 | }; | 248 | }; |
| 249 | 249 | ||
| 250 | package CFMail; | 250 | package CFMail; |
| 251 | use POSIX qw/strftime/; | 251 | use POSIX qw/strftime/; |
| 252 | use CFDB; | ||
| 252 | 253 | ||
| 253 | require YAMLDB; | ||
| 254 | my $MAILDB = YAMLDB->new (db_file => cf::localdir . "/crossfiremail.perl"); | 254 | my $MAILDB = CFDB->new (db_file => cf::localdir . "/crossfiremail.perl"); |
| 255 | 255 | ||
| 256 | sub get_mail { | 256 | sub get_mail { |
| 257 | my ($toname) = @_; | 257 | my ($toname) = @_; |
| 258 | $MAILDB->get ($toname); | 258 | $MAILDB->get ($toname); |
| 259 | } | 259 | } |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |