Wallpaper no Fluxbox
Script que muda o wallpaper no Fluxbox, você coloca ele na mesma pasta onde armazena seus wallpapers e daí basta executá-lo.
Descrição
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; }
}