Wallpaper no Fluxbox
Publicado por Rick 24/01/2007
[ Hits: 5.582 ]
Script que muda o wallpaper no Fluxbox, você coloca ele na mesma pasta onde armazena seus wallpapers e daí basta executá-lo.
#!/usr/bin/perl
#script pra mudar wallpaper no fluxbox.
#Coloque ele na mesma pasta onde você armazena seus wallpapers e execute: perl wall.pl minutos
#por optimal, optimal2600@yahoo.com.br
if (@ARGV > 0) {$time = @ARGV[0] * 60;}
else { $time = 600; }
print "$time\n";
print "Wallpaper Automatico no Fluxbox\n";
print "Use: perl $0 minutos\n\n";
system("ls *.jpg > file.txt");
system("ls *.jpeg >> file.txt");
system("ls *.png >> file.txt");
open(IN, "<file.txt");
$x = $y = 0;
while(<IN>){
$wall[$x]= $_;
chomp($wall[$x]);
$x++;$y++;
}
close(IN);
$x = 0;
for(;;) {
sleep($time);
system("fbsetbg $wall[$x]");
$x++;
if($x==$y) { $x = 0; }
}
Algoritmo de Euclides estendido em Perl
Diminuir ou aumentar o brilho de notebook
Como atualizar sua versão estável do Debian
Cirurgia para acelerar o openSUSE em HD externo via USB
Void Server como Domain Control
Quer auto-organizar janelas (tiling) no seu Linux? Veja como no Plasma 6 e no Gnome
Copiando caminho atual do terminal direto para o clipboard do teclado
Script de montagem de chroot automatica









