| … | |
… | |
| 289 | } |
289 | } |
| 290 | |
290 | |
| 291 | sub send_mail { |
291 | sub send_mail { |
| 292 | my ($type, $toname, $fromname, $message) = @_; |
292 | my ($type, $toname, $fromname, $message) = @_; |
| 293 | |
293 | |
| 294 | my $time = strftime ("%a, %d %b %Y %H:%M:%S UTC", gmtime EV::now); |
294 | my $time = strftime ("%a, %d %b %Y %H:%M:%S UTC", gmtime AE::now); |
| 295 | my $msg = "From: $fromname\rTo: $toname\rDate: $time\n\n$message\n"; |
295 | my $msg = "From: $fromname\rTo: $toname\rDate: $time\n\n$message\n"; |
| 296 | |
296 | |
| 297 | store_mail $type, $toname, $fromname, $msg; |
297 | store_mail $type, $toname, $fromname, $msg; |
| 298 | } |
298 | } |
| 299 | |
299 | |
