Assine a Lista Dicas-L
Receba diariamente por email as dicas
de informática publicadas neste site
Para se descadastrar, clique aqui.
Programa para Mudança do Papel de Parede em Desktop Linux
Colaboração: Jansen Carlo Sena
Data de Publicação: 09 de Janeiro de 2002
O Jansen me enviou um script em perl, que pode ser incluído no arquivo bash_profile do diretório de trabalho de um usuário para alternar aleatoriamente o papel de parede sempre que se usar o ambiente Gnome.
O script em perl encontra-se a seguir:
#!/usr/bin/perl
#
# Copyright 2001 Jansen Sena
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#
# --------------------------------------------------------------------------------
#
# Este script é utilizado para alternar os papéis de parede utilizados pelo Gnome
# Sua execução pode ser feita a partir do arquivo .profile fazendo com que todas
# as vezes que um usuário entre no Gnome, um novo papel de parede, escolhido
# aleatoriamente, seja configurado.
#
# --------------------------------------------------------------------------------
#
#
$User_home = $ENV{'HOME'};
$Gnome_directory = $User_home . "/.gnome";
$Gnome_background_file = $Gnome_directory . "/Background";
$Figures_directory = $User_home . "/wallpapers";
#
# Parameters evaluation
#
if (($#ARGV + 1) > 2 || ($#ARGV + 1) == 1) {
print "Parameters number invalid. Use ./wallpapers -d <wallpapers directory>\n";
exit 1;
}
elsif ((($#ARGV + 1) == 2) && ($ARGV[0] ne "-d"))
{
print "Invalid parameter $ARGV[0]. Use ./wallpapers -d <wallpapers directory>\n";
exit 1;
}
elsif ((($#ARGV + 1) == 2) && (! -e $ARGV[1]))
{
print "Directory $ARGV[1] no exists\n";
exit 1;
}
elsif (($#ARGV + 1) == 2)
{
$Figures_directory = $ARGV[1];
}
#
# Verify the files in figures directory
#
opendir(DIR,$Figures_directory) || die "Can't open $Figures_directory directory: $!\n";
@Figure_files = readdir(DIR);
closedir(DIR);
$No_figure_files = @Figure_files;
if ($No_figure_files == 2){
print "The directory of wallpapers $ARGV[1] is empty\n";
exit 1;
}
#
# Verify the gnome directory and background file
#
if (! -e $Gnome_directory)
{
print "Gnome directory is not present in your homedir\n";
exit 1;
}
if (! -e $Gnome_background_file)
{
print "Gnome background file is not present in $Gnome_directory directory\n";
exit 1;
}
#
#
open(FILE,"+<$Gnome_background_file") || die "Can't open $Gnome_background_file: $!\n";
@Temp_file = <FILE>;
close(FILE);
$Count = -1;
do
{
$Count++;
($Field,$Value) = split(/=/,$Temp_file[$Count]);
}
until ($Field eq "wallpaper");
#
# Generate a random new wallpaper
#
srand(time|$$);
$Index = 0;
while ($Index == 0 || $Index == 1) { # Evita a seleção dos diretórios "." e ".."
$Index = int(rand $No_figure_files);
}
$Value = $Figures_directory . "/" . $Figure_files[$Index] . "\n";
$Temp_file[$Count] = join('=',$Field,$Value);
#
# Save Background file with the new random wallpaper
#
open(FILE,">$Gnome_background_file");
print FILE @Temp_file;
close(FILE);
exit 0;
#
#
# End of script
Veja a relação completa dos artigos de Jansen Carlo Sena
Referências Adicionais
Referências adicionais sobre os assuntos abordados neste site podem ser encontradas em nossa Bibliografia.
