Muda o wallpaper do X-Windows

Publicado por Fábio Berbert de Paula 13/11/2002

[ Hits: 4.829 ]

Homepage: https://fabio.automatizando.dev

Download mudaWallpaper.zip




Script usado para alterar a imagem de fundo do Desktop do WindowMaker aleatoriamente. Você define o diretório repositório de imagens e, a cada vez que o programa é executado, uma nova imagem é carregada na sua tela.

  



Esconder código-fonte

#!/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]);
}

Scripts recomendados

Weather Channel for Torsmo

Calculadora com Perl com menos de 10 linhas de código

Viva o Linux for Torsmo

Diminuir ou aumentar o brilho de notebook

Configurar ADB no linux


  

Comentários
[1] Comentário enviado por fftrebor em 09/06/2004 - 16:13h

O único detalhe que tem que se destacar nele é que se você estiver acessando as imagens que estão em uma partição Windows ... que às vezes possuem espaços em branco no meio do nome, este espaços deverão ser removidos e os nomes reformatados.

Se não fizer isto, este erro aparece:

/home/robertff/imatens/nebulosa: image not found
de: image not found
vega.jpg image not found

no caso o arquivo é o "nebulosa de vega.jpg"

Renomeiei o arquivo e ficou jóia.

Lembrei agora de outra ... não tinha o wmsetbg no meu micro ... troquei na linha pelo 'xsetbg -fullscreen' e rodou legal.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts