[-i|map <server]
Where:
- -usa|ge: Print this usage
- -h|elp: Detailed help
- -v|erbose: Verbose mode (Default: -verbose)
- -de|bug: Turn on debugging (Default: Off)
- -da|emon: Run in daemon mode (Default: -daemon)
- -user|name: 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)
- -uses|sl: Whether or not to use SSL to connect (Default: False)
+ -usa|ge: Print this usage
+ -h|elp: Detailed help
+ -v|erbose: Verbose mode (Default: -verbose)
+ -de|bug: Turn on debugging (Default: Off)
+ -da|emon: Run in daemon mode (Default: -daemon)
+ -user|name: User name to log in with (Default: $USER)
+ -p|assword: Password to use (Default: prompted)
+ -n|ame: Name of account (Default: imap)
+ -i|map: IMAP server to talk to (Default: defaria.com)
+ -uses|sl: Whether or not to use SSL to connect (Default: False)
+ -useb|locking Whether to block on socket (Default: False)
+ -a-nnounce Announce startup (Default: False)
=head1 DESCRIPTION
use Display;
use Logger;
use Utils;
+use TimeUtils;
my $defaultIMAPServer = 'defaria.com';
my $IMAP;
);
my %opts = (
- usage => sub { pod2usage },
- help => sub { pod2usage(-verbose => 2)},
- verbose => sub { set_verbose },
- debug => sub { set_debug },
- daemon => 1,
- username => $ENV{USER},
- password => $ENV{PASSWORD},
- imap => $defaultIMAPServer,
- usessl => 0,
+ usage => sub { pod2usage },
+ help => sub { pod2usage(-verbose => 2)},
+ verbose => sub { set_verbose },
+ debug => sub { set_debug },
+ daemon => 1,
+ username => $ENV{USER},
+ password => $ENV{PASSWORD},
+ imap => $defaultIMAPServer,
+ usessl => 0,
+ useblocking => 0,
+ announce => 0,
);
sub interrupted {
} # unseenMsgs
sub Connect2IMAP() {
- $log->msg("Connecting to $opts{imap} as $opts{username}");
+ $log->dbug("Connecting to $opts{imap} as $opts{username}");
$IMAP = Mail::IMAPTalk->new(
- Server => $opts{imap},
- Username => $opts{username},
- Password => $opts{password},
- UseSSL => $opts{usessl},
+ Server => $opts{imap},
+ Username => $opts{username},
+ Password => $opts{password},
+ UseSSL => $opts{usessl},
+ UseBlocking => $opts{useblocking},
) or $log->err("Unable to connect to IMAP server $opts{imap}: $@", 1);
- $log->msg('Connected');
+ $log->dbug("Connected to $opts{imap} as $opts{username}");
# Focus on INBOX only
$IMAP->select('inbox');
return;
} # Connect2IMAP
+sub Say($) {
+ my ($msg) = @_;
+
+ if (-f "$FindBin::Bin/shh") {
+ $log->msg("Not speaking because we were asked to be quiet - $msg");
+
+ return;
+ } # if
+
+ my ($status, @output) = Execute "/usr/local/bin/gt \"$msg\"";
+
+ $log->err("Unable to speak (Status: $status) - "
+ . join ("\n", @output), $status) if $status;
+
+ return;
+} # Say
+
sub MonitorMail() {
+ MONITORMAIL:
+
# First close and reselect the INBOX to get its current status
$IMAP->close;
$IMAP->select('INBOX')
my $logmsg = "From $from $subject";
my $greeting = $greetings[int rand $#greetings];
- my $msg = "$greeting from $from... " . quotemeta $subject;
+ my $msg = "$greeting from $from... $subject";
$msg =~ s/\"/\\"/g;
- # Log it
- $log->msg($logmsg);
-
my $hour = (localtime)[2];
# Only announce if after 6 Am. Note this will announce up until
# midnight but that's ok. I want midnight to 6 Am as silent time.
- if ($hour > 6) {
- my $cmd = "/usr/local/bin/gt \"$msg\"";
- my ($status, @output) = Execute $cmd;
-
- if ($status) {
- $log->err("Unable to execute $cmd" . join("\n", @output));
- } # if
+ if ($hour >= 6) {
+ Say $msg;
+ $log->msg($logmsg);
+ } else {
+ $log->msg("$logmsg [silent]");
} # if
$unseen{$_} = 1;
} # for
# Re-establish callback
- $IMAP->idle(\&MonitorMail);
+ eval { $IMAP->idle(\&MonitorMail) };
+
+ # If we return from idle then the server went away for some reason. With Gmail
+ # the server seems to time out around 30-40 minutes. Here we simply reconnect
+ # to the imap server and continue to MonitorMail.
+ $log->dbug("MonitorMail: Connection to $opts{imap} ended. Reconnecting");
- # Should not get here
- $log->err("Unable to re-establish IDLE callback from IMAP server $opts{imap}", 1);
+ # Destroy current IMAP connection
+ $log->dbug("MonitorMail: Destorying IMAP connection to $opts{imap}");
+
+ undef $IMAP;
+
+ # Re-establish connection
+ Connect2IMAP;
+
+ $log->dbug("MonitorMail: Reconnected to IMAP server $opts{imap}");
+
+ # MonitorMail again - the dreaded goto! Seems the cleanest way to restart
+ # in this instance. I could call MonitorMail() recursively but that would
+ # leave junk on the stack.
+ $log->dbug('MonitorMail: Going back to the top of the loop');
+
+ goto MONITORMAIL;
+
+ return; # To make perlcritic happy
} # MonitorMail
END {
- $IMAP->quit if $IMAP;
+ # If $log is not yet defined then the exit is not unexpected
+ if ($log) {
+ my $msg = "$FindBin::Script ending unexpectedly!";
+
+ Say $msg;
- $log->msg("$FindBin::Script ending unexpectedly!");
+ $log->err($msg);
+ } # if
} # END
## Main
'debug',
'daemon!',
'username=s',
+ 'name=s',
'password=s',
'imap=s',
'usessl',
- 'sleep',
-);
+ 'useblocking',
+ 'announce!',
+) || pod2usage;
unless ($opts{password}) {
verbose "I need $opts{username}'s password";
$opts{password} = GetPassword;
} # unless
-$opts{debug} = get_debug;
+$opts{name} //= $opts{imap};
+
+if ($opts{username} =~ /.*\@(.*)$/) {
+ $opts{name} = $1;
+} # if
if ($opts{daemon}) {
+ # Perl complains if we reference $DB::OUT only once
+ my $foo = $DB::OUT;
EnterDaemonMode unless defined $DB::OUT;
} # if
$log = Logger->new(
path => '/var/log',
+ name => "$Logger::me.$opts{name}",
timestamped => 'yes',
append => 'yes',
);
Connect2IMAP;
-my $msg = "Now monitoring email for $opts{username}\@$opts{imap}";
+if ($opts{username} =~ /(.*)\@/) {
+ $opts{user} = $1;
+} else {
+ $opts{user} = $opts{username};
+} # if
-$log->msg($msg);
+my $msg = "Now monitoring email for $opts{user}\@$opts{name}";
-my $cmd = "/usr/local/bin/gt \"$msg\"";
+Say $msg if $opts{announce};
-my ($status, @output) = Execute $cmd;
+$log->msg($msg);
-$IMAP->idle(\&MonitorMail);
+MonitorMail;
# Should not get here
$log->err("Falling off the edge of $0", 1);
Usage: setbg [-u|sage] [-h|elp] [-ve|rbose] [-d|ebug] [-s|leep <n>]
[-bgdirs <bgdir> -bgdirs ...]
-
+
Where:
-u|sage: Displays this usage
$totals{bgdirs} = 0;
for (@{$opts{bgdirs}}) {
- my ($status, @pics) = Execute "find \"$_\" -type f";
+ my ($status, @pics) = Execute "find \"$_/\" -type f";
chomp @pics;
push @images, grep(/jpg$|png$|gif$/i, @pics);
+ @pics = grep(/jpg$|png$|gif$/i, @pics);
+
push @{$opts{bgdircnt}}, scalar @pics;
$totals{bgdirs}++;
$totals{images} = scalar @images;
+ displayStats;
+
return @images;
} # fillPictures
+
sub writeHistory($) {
my ($msg) = @_;
EnterDaemonMode unless defined $DB::OUT;
+my $pickNewImages = 1;
+my ($bgimage, $lockimage);
+
while () {
- my $bgimage = escapeHTML ($images[int (rand $#images)]);
- my $lockimage = escapeHTML ($images[int (rand $#images)]);
+ if ($pickNewImages) {
+ $bgimage = escapeHTML ($images[int (rand $#images)]);
+ $lockimage = escapeHTML ($images[int (rand $#images)]);
+ } # if
my $monitorIsOn;
my ($status, @output) = Execute("xset q | grep Monitor | awk '{print \$3}'");
if ($status or $output[0] eq 'Off') {
- writeHistory ":Monitor off, not setting background to $bgimage";
+ writeHistory ":Monitor off, not setting background to $bgimage - will keep trying";
+
+ $pickNewImages = 0;
} else {
+ $pickNewImages = 1;
+
my $cmd = "$setbg $setbgOpts$bgimage\" 2> /dev/null";
($status, @output) = Execute $cmd;
} # if
updateSetBG $bgimage, $lockimage;
-
- displayStats;
} # if
+ displayStats;
+
$today = YMD;
sleep $opts{sleep} * 60;
projects / clearscm.git / commitdiff