#!/usr/bin/perl
###################################################
# mudaWallpaper.pl
#
# Script usado para alterar a figura de fundo de
# tela do seu X-Windows aleatoriamente. Bom para
# ser executado via crontab. A entrada abaixo
# executa o script a cada 1 hora:
#
# 0 * * * * export DISPLAY=0:0; ./mudaWallpaper.pl
#
# Nota: este script utiliza o programa wmsetbg para
# alterar a figura de fundo e só serve para usuários
# do WindowMaker.
#
# Por Fábio Berbert de Paula
# E-mail: fabio@vivaolinux.com.br
# Estou em: www.vivaolinux.com.br
# #################################################

use strict;

my $set = "/usr/bin/wmsetbg";

# configure com o diretório que contém seus wallpapers
my $wdir = "/home/fpaula/wallpapers";

# capture todos os arquivo jpg do diretório
chdir $wdir;
opendir(D,$wdir);
my @arqs = grep /jpg/, readdir(D);
closedir(D);

# selecione um wallpaper usando a função rand()
my $num = sprintf "%.1f", rand($#arqs);
$num =~ s/^.*\.//;
if ( -f "$wdir/$arqs[$num]" ) {
  system("$set $wdir/" . $arqs[$num]);
}