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, $lockimage);
-
if ($pickNewImages) {
$bgimage = escapeHTML ($images[int (rand $#images)]);
$lockimage = escapeHTML ($images[int (rand $#images)]);
} # if
updateSetBG $bgimage, $lockimage;
-
- displayStats;
} # if
+ displayStats;
+
$today = YMD;
sleep $opts{sleep} * 60;