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