<br>

#!/usr/bin/perl





use CGI::Carp qw(fatalsToBrowser);

use English;

use CGI;

use integer;

require LWP::UserAgent;

use GD;



$q = new CGI;

$ua = new LWP::UserAgent;

$city =$q->param(city);

$city =~ s/ı/i/g;

$city =~ s/İ/I/g;

$city =~ s/ğ/g/g;

$city =~ s/Ğ/G/g;

$city =~ s/ş/s/g;

$city =~ s/Ş/S/g;

$formil = $city;

$city =~ tr/[a-z]/[A-Z]/;

$begin = "http://www.meteor.gov.tr/pages/";

$data = $begin . $city.'.htm';

$lookup = new HTTP::Request 'GET', "$data";

$response = $ua->request($lookup);

@lines = split (/

/, $response->content);

foreach $item (@lines) {

chomp($item);

$tpl =$tpl.$item;

}

$start = '<!--BURADA BAŞLA-->';

$end = '<TD><div>Rüzgar</TD>';

($part1,$part2) = split(/<!--BURADA BAŞLA-->/,$tpl);

($part3,$part4) = split(/<TD><div>Rüzgar</TD>/,$part2);

($part5,$part6) = split(/<div>Hava Durumu</div>/,$part3);

($part7,$part8) = split(/<br>/,$part6);

($part9,$part10) = split(/</div>/,$part8);

($part11,$part12) = split(/<TD><div>Sıcaklık</div></TD>/,$part8);

($part13,$part14) = split(/<div>/,$part12);

($part15,$part16) = split(/</div>/,$part14);

$part9 =~ s/ı/i/g;

$part9 =~ s/ç/Ç/g;

$part9 =~ s/ğ/g/g;

$part9 =~ s/Ğ/G/g;

$part9 =~ s/ş/s/g;

$part9 =~ s/Ş/S/g;

$part9 =~ tr/[a-z]/[A-Z]/;

print "Content-type: image/png



";

$im = new GD::Image(100,50);

($white,$black,$red,$blue,$yellow) =

(

$im->colorAllocate(255, 255, 255),

$im->colorAllocate(0, 0, 0),

$im->colorAllocate(255, 0, 0),

$im->colorAllocate(0,0,255),

$im->colorAllocate(255,250,205)

);

$im->fill(50,50,$yellow);

$im->rectangle(1,1,99,49,$black);

$im->string(gdSmallFont,5,3,$formil."'da Hava",$black);

$im->string(gdSmallFont,5,17,$part9,$red);

$im->string(gdSmallFont,5,32,"SICAKLIK ".$part15,$blue);



binmode STDOUT;

print $im->png;

exit;