+sub displayStats () {
+ my $statsFile = Logger->new(
+ name => ".$FindBin::Script.stats",
+ path => $ENV{HOME},
+ extension => '',
+ );
+
+ $statsFile->log('At ' . localtime());
+
+ Stats \%totals, $statsFile;
+
+ return;
+} # displayStats
+
+sub fillPictures () {
+ my @images;
+
+ foreach (@imgDirs) {
+ my @pics = `find "$_" -type f -name "*.jpg"`;
+
+ chomp @pics;
+ push @images, @pics;
+ } # foreach
+
+ $totals{images} = scalar @images;
+
+ displayStats;
+
+ return @images;
+} # fillPictures
+
+sub updateSetBG ($) {
+ my ($image) = @_;
+
+ open my $log, '>', "$ENV{HOME}/.$FindBin::Script"
+ or error "Unable to open $ENV{HOME}/.$FindBin::Script for writing - $!", 1;
+
+ display $image, $log;
+
+ close $log;
+
+ open $log, '>>', "$ENV{HOME}/.$FindBin::Script.hist"
+ or error "Unable to open $ENV{HOME}/.$FindBin::Script.hist for append - $!", 1;
+
+ my $msg = localtime() . ":$image";
+
+ display $msg, $log;
+
+ close $log;
+
+ return;
+} # updateSetBG
+