<?php

function decodeBASE64($s, $charset) {
    if (function_exists('mb_convert_encoding')) {
//        mb_language("en");
//        mb_internal_encoding('ISO-8859-5');
//        mb_language("uni");
        mb_internal_encoding('UTF-8');
	
	$decoded = @mb_convert_encoding($s, $charset, 'UTF7-IMAP');
	if (! $decoded) {
	    $s = mb_convert_encoding($s, 'ISO-8859-5', 'UTF7-IMAP');
	    $charset = strtolower($charset);
	    if (($charset == 'iso-8859-5') or ($charset == 'iso8859-5') or ($charset == 'iso_8859-5')) {
	        $decoded = $s;
	    } elseif (($charset == 'koi8-r') or ($charset == 'koi8r') or ($charset == 'koi8') or ($charset == 'cskoi8r')) {
	        $decoded = convert_cyr_string($s, 'i', 'k');
	    } elseif (($charset == 'windows-1251') or ($charset == 'cp1251')) {
	        $decoded = convert_cyr_string($s, 'i', 'w');
	    } elseif (($charset == '866') or ($charset == 'cp866') or ($charset == 'cp-866') or ($charset == 'x-cp866') or ($charset == 'csibm866') or ($charset == 'ibm866')) {
	        $decoded = convert_cyr_string($s, 'i', 'a');
	    } elseif (($charset == 'x-mac-cyrillic') or ($charset == 'maccyrillic') or ($charset == 'mac-cyrillic')) {
	        $decoded = convert_cyr_string($s, 'i', 'm');
    	    } else {
	        $decoded = iconv('ISO-8859-5', $charset, $s);
	    }
        }
    } else {
	$decoded = iconv('UTF7', $charset, '+' . substr($s, 1, strlen($s) - 2));
    }
    return($decoded);
}

function imap_utf7_decode_loc($s, $charset = '$iso_8859_1') {
	$b64_s = '';
	$iso_8859_1_s = '';
	for ($i = 0; $i < strlen($s); $i++) {
		$c = $s[$i];
		if (strlen($b64_s) > 0) {
			if ($c == '-') {
				if ($b64_s == '&') {
					$iso_8859_1_s = $iso_8859_1_s . '&';
				} else {
					$iso_8859_1_s = $iso_8859_1_s .
					  decodeBASE64($b64_s.'-', $charset);
				}
				$b64_s = '';
			} else {
				$b64_s = $b64_s . $c;
			}
		} else {
			if ($c == '&') {
				$b64_s = '&';
			} else {
				$iso_8859_1_s = $iso_8859_1_s . $c;
			}
		}
	}
	return $iso_8859_1_s;
}

?>