[ale] Chaneg desktop background

[Christopher Fowler]

#!/usr/bin/perl

my $opt_f = 0;

sub main {

        if($opt_f == 0) {
                return 0 if (my $pid = fork());
                open STDOUT, ">>/dev/null";
                open STDERR, ">&STDOUT";
                open STDIN, "</dev/null";
        }

        while(1) {
                system "wget -O wallpaper.jpg
http://www2.nature.nps.gov/air/webcams/parks/grsmcam/grsm.jpg";
                system "gconftool-2 -
s /desktop/gnome/background/picture_filename -t
string /home/cfowler/wallpaper.jpg";
                sleep (60 * 30);
        }

        return 0;
}

exit main;

On Thu, 2006-10-12 at 13:31 -0400, Christopher Fowler wrote:
> On FC3 and greater is there a way I can change my desktop background via
> the command line?  I want to write a perl program that can go out and
> grab a photo from the web and make that my wall paper.  I will porgram
> it to go fetch every 30 minutes.
> 
> 
> _______________________________________________
> Ale mailing list
> Ale at ale.org
> http://www.ale.org/mailman/listinfo/ale