Wallpapers aleatórios no Fluxbox
Publicado por Sandro Marcell 24/01/2009
[ Hits: 5.779 ]
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
Tirando screenshots facilmente !
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Conheça o firewall OpenGFW, uma implementação do (Great Firewall of China).
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
Todo erro sempre gera um acerto... (12)
pacote não instala no void linux (0)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba