#!/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.
Same code works on Debian (Linux)
ReplyDeleteThanks for sharing :)