#!/usr/bin/perl -w
 
use strict;

use warnings;



### Start CONFIG



my $searchPath = '/home/coolsnow/Imágenes/wallpaper/';

my $switchTime = 15;                 # Time is in seconds



### END CONFIG



# bgotd-- background of the day  

#

# A super simple script which randomly picks a jpg/JPG/jpeg/JPEG photo to place as your 

# Gnome desktop.

#

# Written by Michael Moore, Nov. 2007

# This work is hereby placed in the public domain 





my @photos = `find $searchPath -type f | grep [jJ][pP][eE]*[gG]`;

chomp(@photos);

my $photo;



while(1)

{

    $photo = $photos[rand($#photos)];

    `gconftool-2 --type string --set /desktop/gnome/background/picture_filename "$photo"`;

    sleep($switchTime);

}