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