<?php

function encodeBASE64($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');
	
        $encoded = @mb_convert_encoding($s, 'UTF7-IMAP', $charset);
        if (! $encoded) {
	    $charset = strtolower($charset);
	    $s_iso = '';
	    if (($charset == 'iso-8859-5') or ($charset == 'iso8859-5') or ($charset == 'iso_8859-5')) {
	        $s_iso = $s;
	    } elseif (($charset == 'koi8-r') or ($charset == 'koi8r') or ($charset == 'koi8') or
		($charset == 'cskoi8r')) {
	        $s_iso = convert_cyr_string($s, 'k', 'i');
	    } elseif (($charset == 'windows-1251') or ($charset == 'cp1251')) {
	        $s_iso = convert_cyr_string($s, 'w', 'i');
	    } elseif (($charset == '866') or ($charset == 'cp866') or ($charset == 'cp-866') or ($charset == 'x-cp866') or ($charset == 'csibm866') or ($charset == 'ibm866')) {
	        $s_iso = convert_cyr_string($s, 'a', 'i');
	    } elseif (($charset == 'x-mac-cyrillic') or ($charset == 'maccyrillic') or ($charset == 'mac-cyrillic')) {
	        $s_iso = convert_cyr_string($s, 'm', 'i');
	    }
	    if ($s_iso) {
    	        $encoded = mb_convert_encoding($s_iso, 'UTF7-IMAP', 'ISO-8859-5');
	    } else {
	        $encoded = '&' . substr(iconv($charset, 'UTF7', $s), 1) . '-';
	    }
	}
    } else {
        $encoded = '&' . substr(iconv($charset, 'UTF7', $s), 1) . '-';
    }
    return($encoded);
}

function imap_utf7_encode_loc($s, $charset = '$iso_8859_1') {
	$b64_s = '';	// buffer for substring to be base64-encoded
	$utf7_s = '';	// imap-utf7-encoded string
	for ($i = 0; $i < strlen($s); $i++) {
		$c = $s[$i];
		$ord_c = ord($c);
		if ((($ord_c >= 0x20) and ($ord_c <= 0x25)) or
		    (($ord_c >= 0x27) and ($ord_c <= 0x7e))) {
			if ($b64_s) {
				$utf7_s = $utf7_s . encodeBASE64($b64_s, $charset);
				$b64_s = '';
			}
			$utf7_s = $utf7_s . $c;
		} elseif ($ord_c == 0x26) {
			if ($b64_s) {
				$utf7_s = $utf7_s . encodeBASE64($b64_s, $charset);
				$b64_s = '';
			}
			$utf7_s = $utf7_s . '&-';
		} else {
//			$b64_s = $b64_s . chr(0) . $c;
			$b64_s = $b64_s . $c;
		}
	}
	//
	// flush buffer
	//
	if ($b64_s) {
		$utf7_s = $utf7_s . encodeBASE64($b64_s, $charset);
		$b64_s = '';
	}
	return $utf7_s;
}

?>