Starship Asterisk*

Code: Select all

use Imager;      #ppm install http://www.bribes.org/perl/ppm/Imager.ppd
use Win32::API;  #ppm install http://www.bribes.org/perl/ppm/Win32-API.ppd
use LWP::Simple;

$directory="http://antwrp.gsfc.nasa.gov/apod/";
$htmlfile="astropix.html";
$storage="c:/apod/";
$xres=1280;
$yres=1024;
$dosstorage=$storage;
$dosstorage=~tr/\//\\/;

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$datestamp=sprintf "%4d-%02d-%02d\n",$year+1900,$mon+1,$mday,$hour,$min,$sec;
chomp($datestamp);

unless (-e "$storage$datestamp.html") {
 print "Downloading...\n";
 $content = get("$directory$htmlfile");
 die "Couldn't get $directory$htmlfile" unless defined $content;
 $content =~ /"(.*?jpe*?g)"/mig;
 $image = $1;
 $content =~ s/"(.*?jpe*?g)"/$datestamp\.jpg/mig;
 $content =~ /<b>(.*?)<\/b>/mig;
 $headline = $1;
 open FILE,">$storage$datestamp.html" or die "Can't create HTML file";
 print FILE $content;
 close FILE;
 
 $content = get("$directory$image");
 die "Couldn't get $directory$image" unless defined $content;
 open FILE,">$storage$datestamp.jpg" or die "Can't create image file";
 binmode FILE;
 print FILE $content;
 close FILE;

 $img = Imager->new();
 $img->read(file=>"$storage$datestamp.jpg", type=>'jpeg');
 $width = $img->getwidth();
 $height = $img->getheight();
 if ( ($xres / $width) * $height > $yres )
 {$img = $img->scale(ypixels=>$yres, qtype => 'normal')}
 else
 {$img = $img->scale(xpixels=>$xres, qtype => 'normal')}
 $width = $img->getwidth();
 $height = $img->getheight();
 
 $white = Imager::Color->new("#FFFFFF");
 $font = Imager::Font->new(face => 'Arial');
 $font->align(string=>$headline,x=>$width-10,y=>10,halign=>'right',
              valign=>'top',image=>$img,color=>$white,size=>10);
 
 $img->write(file=>"$storage"."wallpaper.bmp");
}						 

print "Setting wallpaper...\n";
use constant SPI_SETDESKWALLPAPER  => 20;
use constant SPIF_UPDATEANDSENDINI => 3;
use constant NULL                  => 0;
my $syspinf = Win32::API->new('user32','SystemParametersInfo', [I,I,P,+I], I)
or die "Could not import function.\n";
$syspinf->Call(SPI_SETDESKWALLPAPER, 0, $dosstorage.'wallpaper.bmp',
               SPIF_UPDATEANDSENDIN +I);