… | … | ||
---|---|---|---|
258 | package CFMail; | 258 | package CFMail; |
259 | 259 | ||
260 | use POSIX qw/strftime/; | 260 | use POSIX qw/strftime/; |
261 | use CFDB; | 261 | use CFDB; |
262 | 262 | ||
263 | my $MAILDB = CFDB->new (db_file => cf::localdir . "/crossfiremail.perl"); | 263 | my $MAILDB = CFDB->new (db_file => cf::localdir . "/crossfiremail"); |
264 | 264 | ||
265 | sub get_mail { | 265 | sub get_mail { |
266 | my ($toname) = @_; | 266 | my ($toname) = @_; |
267 | $MAILDB->get ($toname); | 267 | $MAILDB->get ($toname); |
268 | } | 268 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |