Sunday, June 20, 2010

Make your desktop background a live world shot

cron this to run every 30 or 60 minutes and you have a world image updated with sun position and weather.


#!/usr/bin/env perl

use LWP::Simple;

my %image_hash = ( 'world_sunlight.jpg' => 'http://www.opentopia.com/images/cams/world_sunlight_map_rectangular.jpg',
# 'world_weather.gif' => "http://images.intellicast.com/WeatherImg/Satellite/world.gif"
);

foreach my $file (keys %image_hash) {
getstore($image_hash{$file}, $file);
}


Hopefully we don't kill the server that produces these shots.

1 comment:

  1. Same code works on Debian (Linux)

    Thanks for sharing :)

    ReplyDelete