use FindBin;
use Getopt::Long;
use Proc::ProcessTable;
+use File::Spec;
use CGI qw/:standard/;
use lib "$FindBin::Bin/../lib";
'bgdir=s' => \@imgDirs,
) || Usage;
-foreach (@imgDirs) {
- error "$_ is not a directory", 1 unless -d $_;
+for (my $i = 0; $i < scalar @imgDirs; $i++) {
+ error "$imgDirs[$i] is not a directory", 1 unless -d $imgDirs[$i];
+
+ $imgDirs[$i] = File::Spec->rel2abs ($imgDirs[$i]);
} # foreach
# Using gsettings
my @images = fillPictures;
-Usage "No images to display. Must specify -imgDir" unless @images;
+Usage "No images to display. Must specify -bgdir" unless @images;
sub SwitchWallPaper {
# We don't need to do anything here, just handle the interrupt and
my $image = escapeHTML ($images[int (rand $#images)]);
open my $log, '>', "$ENV{HOME}/.$FindBin::Script"
- or error "Unable to open $ENV{HOME}/.setbg for writing - $!", 1;
+ or error "Unable to open $ENV{HOME}/.$FindBin::Script for writing - $!", 1;
display $image, $log;