-use|rname: User name to log in with (Default: $USER)
-p|assword: Password to use (Default: prompted)
-i|map: IMAP server to talk to (Default: defaria.com)
- -s|leep: Number of minutes to sleep inbetween checking mail (Default: 5)
+ -s|leep: Number of minutes to sleep inbetween checking mail (Default: 1)
=head1 DESCRIPTION
} # if
# Now speak it!
+ my $logmsg = "From $from $subject";
my $msg = "Message from $from... " . quotemeta $subject;
$msg =~ s/\"/\\"/g;
if (get_verbose) {
- $log->msg("Announcing $msg");
+ $log->msg($logmsg);
} else {
- $log->log("Announcing $msg")
- }
+ $log->log($logmsg);
+ } # if
my $cmd = "/usr/local/bin/gt \"$msg\"";
);
Connect2IMAP;
+
+my $cmd = "/usr/local/bin/gt \"Now monitoring email for $opts{username}\@$opts{imap}\"";
+my ($status, @output) = Execute $cmd;
+
MonitorMail;