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