I'd love to post my desktop
heh
#!/usr/bin/perl -w
# a simple perl script to choose a random desktop image
# put it on a cron job every X minutes. edit the users crontab not the systems
# needs the full path for fbsetbg as its run by root
# change this to suit
$imageDir = "/home/kernow/Pictures/wallpapers/";
# maybe one day I might use xset, so its more .. 'portable'
$bgTool = "/usr/X11R6/bin/fbsetbg";
# find all the jpgs in the dir specified
opendir(DIR, $imageDir) or die "Invalid directory specified.";
@files = grep(/\.jpg$/,readdir(DIR));
closedir(DIR);
# select a random value from @files, for a desktop image
my $randomImage = $files[rand @files];
# set it using the fbsetbg program (I use fluxbox)
$selected = $imageDir . $randomImage;
# run the command
system "$bgTool $selected";
# end of perl script
# kernow 11/6/05 *cleaned up 27/7/05*