Initial version

git-svn-id: https://fhem.svn.sourceforge.net/svnroot/fhem/trunk/fhem@3 2b470e98-0d58-463d-a4d8-8e2adae1ed80

webfrontend/pgm3/include/functions.php

@@ -0,0 +1,41 @@
+<?php
+
+##Functions for pgm3
+
+
+function LogRotate($array,$file,$logrotatelines)
+{
+	$counter=count($array);
+	$filename=$file;
+	
+	if (!$handle = fopen($filename, "w")) {
+         print "Logrotate: cannot open $filename -- correct rights??";
+         exit;
+   	}
+        for ($x = $counter-$logrotatelines; $x < $counter; $x++)
+        {fwrite($handle, $array[$x]);};
+
+	fclose($handle);
+}
+
+
+function bft($windspeed)        # wind speed in Beaufort
+{
+        if($windspeed>= 118.5) { $bft= 12; }
+        elseif($windspeed>= 103.7) { $bft= 11; }
+        elseif($windspeed>=  88.9) { $bft= 10; }
+        elseif($windspeed>=  75.9) { $bft=  9; }
+        elseif($windspeed>=  63.0) { $bft=  8; }
+        elseif($windspeed>=  51.9) { $bft=  7; }
+        elseif($windspeed>=  40.7) { $bft=  6; }
+        elseif($windspeed>=  29.6) { $bft=  5; }
+        elseif($windspeed>=  20.4) { $bft=  4; }
+        elseif($windspeed>=  13.0) { $bft=  3; }
+        elseif($windspeed>=   7.4) { $bft=  2; }
+        elseif($windspeed>=   1.9) { $bft=  1; }
+	else $bft= 0;
+        return($bft);
+}
+
+
+?>