Hi,
ich glaube, beigefügtes Script kommt von Steiner. Dieses Script erzeugt bei mir immer folgenden Fehler:
ScriptError UnwetterZentrale.ips.php ~ Sender TimerEvent ~ Result: <br>|<b> Fatal error </b>: Call to undefined function ImageCreateFromGif() in <b> C:\Programme\IP-Symcon\scripts\UnwetterZentrale.ips.php</b> on line <b>65</b><br />|
Weiss jemand, was falsch läuft?
Hier das Script:
<?
/*
*******************************
IP-SYMCON Event Scripting
*******************************
File : UnwetterZentrale.ips.php
Trigger :
Interval :
*/
//Einstellungen in px
$homeX = 270;
$homeY = 126;
$homeRadius = 4;
//Zum testen der X,Y,Radion Angaben auf true setzen und Bild hinerher angucken
//$debug= False;
$debug = False;
//Auf 15 Minuten Takt Synchronizieren
$offset = (integer)date("s") + ((integer)date("i") % 15) * 60;
if($offset != 0) {
IPS_SetScriptTimer("UnwetterZentrale",910 - $offset);
} else {
IPS_SetScriptTimer("UnwetterZentrale",910);
}
//Zeit berechnen
$minute=Floor(date("i") / 15) * 15 - 30;
$dateline=mktime(date("H"), $minute, 0, date("m"), date("d"), date("y"));
$year=gmdate("Y", $dateline);
$month=gmdate("m", $dateline);
$day=gmdate("d", $dateline);
$time=gmdate("Hi", $dateline);
$remoteImage = "http://www.wetteronline.de/daten/radar/dsch/$year/$month/$day/$time.gif";
$localImage = IPS_GetKernelDir()."\\radar.gif";
//Radarbild Downloaden
$remoteFile = fopen("$remoteImage",'rb');
$localFile = fopen($localImage,'wb');
if(!$remoteFile || !$localFile) {
exit; //Error erzeugen!
}
while (!feof($remoteFile)) {
$chunk = fread($remoteFile,1024);
fwrite($localFile,$chunk);
}
fclose($localFile);
fclose($remoteFile);
//Radarbild auswerten
$im = ImageCreateFromGIF ($localImage);
//Stärken
$regen[6] = imagecolorresolve ($im, 255, 0, 255);
$regen[5] = imagecolorresolve ($im, 153, 51, 153);
$regen[4] = imagecolorresolve ($im, 28, 126, 217);
$regen[3] = imagecolorresolve ($im, 42, 170, 255);
$regen[2] = imagecolorresolve ($im, 83, 210, 255);
$regen[1] = imagecolorresolve ($im, 170, 255, 255);
//Pixel durchgehen
$regenmenge = 0;
for($x=$homeX-$homeRadius; $x<=$homeX+$homeRadius; $x++) {
for($y=$homeY-$homeRadius; $y<=$homeY+$homeRadius; $y++) {
$found = array_search(imagecolorat($im, $x, $y), $regen);
if(!($found === FALSE)) {
$regenmenge+=$found;
}
}
}
//Im DebugModus Rechteck einzeichnen
if($debug) {
$schwarz = ImageColorAllocate ($im, 0, 0, 0);
$rot = ImageColorAllocate ($im, 255, 0, 0);
imagefilledrectangle($im, $homeX-$homeRadius, $homeY-$homeRadius, $homeX+$homeRadius, $homeY+$homeRadius, $schwarz);
imagesetpixel($im, $homeX, $homeY, $rot);
imagegif($im, $localImage);
}
imagedestroy($im);
//Regenmenge der jeweiligen Stärken im Radius aufsummiert
echo $regenmenge;
echo $year;
echo $month;
echo $day;
echo $time;
if ($regenmenge == 0) {
SetValueString("WE_Unwetter", "kein Regen in Anmarsch");
}
if ($regenmenge >= 1) {
SetValueString("WE_Unwetter", "Regen naht!");
}
if ($regenmenge >= 1000) {
SetValueString("WE_Unwetter", "alle Schotten dicht");
}
?>
Bitte um Hilfestellung.
Danke + Gruß
Jimmy