I have been using a program modified from Perl Cookbook by Christansen and Torkington (1998) to send myself reminder emails from my own computer to same computer. These emails have shown up in mutt and alpine. Now I have switched to Thunderbird but apparently it does not read /var/spool/mail. Any suggestions for a solution?

#!/usr/bin/perl -w
#
# ~/CRON/email-reminder-1.0.pl
#
# NB Sendmail slow with lan off, i.e. 5 mins.
#
# 20130720
# 20120108: email-reminder.pl
# Cookbook p650
#
# Uses file ~/DATES to check for Birthdays, Weddings,
# Doctors, and Appointments. If finds any in 7days sends email to
# ANOther@computer.home.net
#
# 20120111: email-reminder-1.0.pl updated to change 
# check for Doctors at 3 days 
#
# DATES format "January x  Birthday|Wedding|Doctor|Appointment"
#
#
$blank=" "; 
$_=`date --date="+7 day" +%B,%_d`;
s/, / /;
s/,/ /;
chomp;
$match=$_.$blank;

open (DOT_CAL,"/home/ANOther/DATES");
      while (<DOT_CAL>){
      if (/$match/){
          if (/Birthday|Wedding/){
                  $Reminder=$_;
                  mail_reminder()
              }else{
              }              
          }                
      }
close (DOT_CAL);
$_=`date --date="+3 day" +%B,%_d`;
s/, / /;
s/,/ /;
chomp;
$match=$_.$blank;
open (DOT_CAL,"/home/ANOther/DATES");
      while (<DOT_CAL>){
      if (/$match/){
          if (/Doctor|Appointment/){
                  $Reminder=$_;
print "D2 DATES[]= ",$_," Doctor or Appointment match \n";
                  mail_reminder()
              }else{
              }              
          }                
      }
close (DOT_CAL);

sub mail_reminder{
use Mail::Mailer;
$New_Reminder="Reminder";
$From_address="ANOther@computer.home.net";
$To_address="ANOther@192.168.1.171";
$mailer = Mail::Mailer->new();
    $mailer->open({ From    =>$From_address,
                    To      =>$To_address,
                    Subject =>$New_Reminder,
          });
print $mailer $Reminder;
print "we arrived here\n";
print "mailer= ",$mailer,"  Reminder= ",$Reminder,"\n";
$mailer->close() or die "Can't send: $!\n";
}

[download]

In reply to Mail::Mailer and Thunderbird by rnj

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.