#!/usr/bin/perl
use Date::Simple ('date', 'today');
use CGI qw/:standard/;
use Image::Magick;
use LWP::Simple;

my $cgi = new CGI;
$cgi->import_names('Q');

&main;

sub main
{
	if ($Q::data) {
		&wyswietl;
		} else {
			print header( -charset=>'ISO-8859-2');
			print start_html("Małe Rysunki");
			print q(podaj date np.:<br><a href="http://www.olek.waw.pl/tperl/image/image.pl?data=1">http://www.olek.waw.pl/tperl/image/image.pl?data=1</a>);
			print end_html;
		}
}

sub wyswietl {	

# dodac blokade usuwania
# np. plik lock


unlink glob "*.png";
unlink glob "*.gif";	
		
$data = today() + $Q::data;
@data_edit = split("-", $data);

$losowa_nazwa_1= int(rand(8888888888) + 1111111111);
$losowa_nazwa_2= int(rand(8888888888) + 1111111111);
$losowa_nazwa_1a= int(rand(8888888888) + 1111111111);
$losowa_nazwa_2a= int(rand(8888888888) + 1111111111);

getstore("http://www.weatheronline.pl/daten/segelkarten/$data_edit[0]/$data_edit[1]/$data_edit[2]/g00906.gif", "$losowa_nazwa_1a.gif");
getstore("http://www.weatheronline.pl/daten/segelkarten/$data_edit[0]/$data_edit[1]/$data_edit[2]/g00918.gif", "$losowa_nazwa_2a.gif");
  
my($image, $x);
$image = Image::Magick->new;
$x = $image->Read("$losowa_nazwa_1a.gif");
$x = $image->Crop(geometry=>'340x255+40+70');
$x = $image->Set(depth=>8, quality=>'90');
$x = $image->Write("$losowa_nazwa_1.png");

my($image, $x);
$image = Image::Magick->new;
$x = $image->Read("$losowa_nazwa_2a.gif");
$x = $image->Crop(geometry=>'340x255+40+70');
$x = $image->Set(depth=>8, quality=>'90');
$x = $image->Write("$losowa_nazwa_2.png");


print header( -charset=>'ISO-8859-2');
print start_html("Małe Rysunki");

print"
	$data 0006 UTC<br><img src=\"./$losowa_nazwa_1.png\">
	<br><br>
	$data 0018 UTC<br><img src=\"./$losowa_nazwa_2.png\">
	";
print end_html;

}