Wallpapers aleatórios no Fluxbox
Publicado por Sandro Marcell 24/01/2009
[ Hits: 6.054 ]
Homepage: http://sanmarcell.wordpress.com
Simples Perl script que utilizado via cron, seta wallpapers aleatoriamente no Fluxbox em determinados períodos de tempo. Para utilizá-lo, basta o seguinte:
1 - Altere o código do script conforme necessário;
2 - Dê permissão de execução ao script;
3 - Edite o 'crontab' de seu usuário e adicione a seguinte linha:
0-59/10 * * * * DISPLAY=:0.0 /path/script.pl
4 - Salve e pronto!
Feito isso, o script será executado pelo cron, a cada 10min. =)
#!/usr/bin/env perl # # Wallpapers aleatorios no Fluxbox. # # Sandro Marcell (sandro_marcell@yahoo.com.br) # Boa Vista, Roraima - 04/01/2009 # # ATENCAO: Para utilizar este script, siga os passos abaixo: # # ################################################################## # 1 - Altere o codigo do script conforme necessario; # 2 - De permissao de execucao ao script; # 3 - Edite o 'crontab' de seu usuario e adicione a seguinte linha: # 0-59/10 * * * * DISPLAY=:0.0 /path/script.pl # 4 - Salve e pronto! # ################################################################## # # Seguindo os passos acima, este script sera executado pelo cron # a cada 10 minutos! ;) # # Obs.: # - O programa utilizado para setar os wallpapers e o 'feh': # (http://linuxbrit.co.uk/feh/); # - Altere os 'paths' utilizados pelo script, conforme os de # seu sistema; # - 'Evite' utilizar wallpapers com espacos em branco no nome # (ex.: 'meu wallpaper.jpg'); # - Testado somente no Fluxbox... (Daahhhh!); # - Script passivel de melhorias! ;) use strict; use warnings; use List::Util qw(shuffle); # Roda somente em modo grafico! exit(1) unless("$ENV{'DISPLAY'}"); # Inicializando variaveis: my(@wallsettercmds) = (); my(@walls) = (); my($walldir) = ""; my($lastwallpaper) = ""; my($lastwall) = ""; my($randwall) = ""; # Programas responsaveis por setar os wallpapers e atualizar tela: # Obs.: '--bg-scale' e uma opcao do comando 'feh'! @wallsettercmds = ("/usr/bin/feh" , "--bg-scale" , "/usr/bin/xrefresh"); die("${wallsettercmds[0]}: $!\n") unless(-x "$wallsettercmds[0]"); # Diretorio contendo os wallpapers (modifique conforme o seu!): $walldir = "/home/user/wallpapers"; $lastwallpaper = "$ENV{'HOME'}/.fehbg"; # Padrao do feh. Nao altere! # Capturando somente arquivos 'jpg/png' de '$walldir': opendir(DIR , $walldir) or die("${walldir}: $!\n"); eval { @walls = grep(/\.[jJpP][nNpP][gG]$/ , readdir(DIR)); }; closedir(DIR); die("Nao ha arquivos de imagem em '${walldir}'.\n") unless(@walls); # Qual foi o ultimo wallpaper setado? if (-s "$lastwallpaper") { open(FILE , "< $lastwallpaper"); $lastwall = readline(FILE); $lastwall =~ s/.{1,}\///g; # Quero somente o nome do wall. close(FILE); } RANDOMIZE: { eval { # 'Embaralhando' os elementos do array: @walls = shuffle(@walls); # Definindo o wallpaper: $randwall = @walls[int(rand($#walls) + 0.5)]; }; }; # Nao repita o wallpaper setado anteriormente: if ("$randwall" eq "$lastwall") { goto(RANDOMIZE); } else { # Tudo ok! Entao sete o wall definido. system("@wallsettercmds[0,1] $walldir/" . "$randwall"); system("$wallsettercmds[2]") if (-x "$wallsettercmds[2]"); exit(0); } # Fim
Algoritmo de Euclides estendido em Perl
Comparação entre os escalonadores BFQ e MQ-Deadline (acesso a disco) no Arch e Debian
Conciliando o uso da ZRAM e SWAP em disco na sua máquina
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Converter os repositórios Debian para o novo formato com as chaves
Instalando Spotify no Debian 13
Realizar overclock no Miyoo Mini (plus ou normal)
linux mint reconhece microfone de lapela como fone de ouvido sem micro... (5)
E aí? O Warsaw já está funcionando no Debian 13? (2)
Dúvidas sobre a originalidade de conteúdos online (12)