#!/usr/bin/php

<?php
echo("Rude converter from Apple Mail to Kmail format\n");

//Create an array with all dirs (also subdirs).
$folders = array();

function recursive_subfolders($folders) {
   // SET YOUR PATH HERE !!!
   $path = './';

   if ($dir = opendir($path)) {
       $j = 0;
       while (($file = readdir($dir)) !== false) {
           if ($file != '.' && $file != '..' && is_dir($path.$file)) {
               $j++;
               $folders[$j] = $path . $file;
           }
       }
   }
  
   closedir($dir);
  
   $j = count($folders);
   foreach ($folders as $folder) {
       if ($dir = opendir($folder)) {
           while (($file = readdir($dir)) !== false) {
               $pathto = $folder. '/' . $file;
               if ($file != '.' && $file != '..' && is_dir($pathto) && !in_array($pathto, $folders)) {
                   $j++;
                   $folders[$j] = $pathto;
                   $folders = recursive_subfolders($folders);
               }
           }
       }
       closedir($dir);
   }
  
   sort($folders);
   return $folders;
}
$folders = recursive_subfolders($folders);

/*
Here, we have an array like this one:
(
   [0] => /path/to/folder/dir1
   [1] => /path/to/folder/dir1/subdir
   [2] => /path/to/folder/dir1/subdir/subsubdir
   [3] => /path/to/dolfer/dir2
)
*/

for($p=0;$p<count($folders);$p++){
		$files = scandir($folders[$p]);
		foreach($files as $file){
			if (is_dir($folders[$p]."/".$file)){
			//Do nothing
			echo "It's a directory. Do nothing!\n";
			}else{
				$first=0;
				$handle = @fopen($folders[$p]."/".$file,"r") or die("Opening file error");
				$filewo= substr($file,0,strpos($file,'.'));
				$fdnew = fopen($folders[$p]."/".$filewo,"w+") or die("Opening file error");
				if($handle){
					while (!feof($handle)) {
						echo "Converting the file: ".$file." \n";
						//Escape first line
						if($first!=0){
							$buffer = fgets($handle, 4096);
							if(!strcmp("<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n",$buffer)==0){
								fwrite($fdnew, $buffer);
							}else{break;}
						}else{
							$buffer = fgets($handle, 4096); 
							$first=1;}
					}
				fclose($handle);
				fclose($fdnew);
				$first=0;
				shell_exec("rm ".$folders[$p]."/".$file);
				}
			}
		}
}
?>