Advanced Search

Return to Snippet

Revision: 1125
at September 12, 2006 22:50 by mauilion
Initial Code 
#!/usr/bin/perl

require LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;

my $response = $ua->get('http://codefromthe70s.org/bin/desktopearthgen.exe?width=1920&height=1200&height=1200&bars=1&center=1&clouds=1&utc='.time);


open (current,">/home/dcooley/.fluxbox/backgrounds/current.png") || die ("Could not open file\n");

if ($response->is_success) {
        print current ($response->content);
} else {
        die $response->status_line;
}


close current;

exec '/usr/bin/fbsetbg /home/dcooley/.fluxbox/backgrounds/current.png';
Initial URL 
codefromthe70s.org
Initial Description 
this is a perl scrip that downloads the most recent on demand image and sets the background to it. I know that exec is insecure but I figure it's secure enough inside the box.
Initial Title 
desktopearth on linux script
Initial Tags 

                                

                                                            

                                    

                                        

                                        Initial Language
                                        

                                    

                                    
Perl