commom_functions.php

For Email POP3. by PHP. but it has some errors for Chinese system.

<?
// get a list of messages in a especified folder (file.eml)
if (!isset($f_pass))
	$f_user="";
if (!isset($f_user))
	$f_pass="";


if(strlen($f_user) > 0 && strlen($f_pass) > 0) {
	if($allow_user_change) {
		if($lng != "") $lid = $lng;
		else { $lid = $default_language; }
	} else
		$lid = $default_language;
}


function build_local_list($folder) {
	$md = new mime_decode();
	$i = 0;
	$msglist = Array();
	$d = dir($folder);
	$dirsize = 0;
	while($entry=$d->read()) {
		$fullpath = "$folder/$entry";
		if(	is_file($fullpath)) {
			$thismail = read_file($fullpath);
			$thismail = $md->fetch_structure($thismail);
			$thisheader = $thismail["header"];
			$mail_info = $md->get_mail_info($thisheader);
			$decoded_headers = $md->decode_header($thisheader);

			$msglist[$i]["id"] = $i+1;
			$msglist[$i]["msg"] = $i;
			$msglist[$i]["size"] = filesize($fullpath);
			$msglist[$i]["date"] = $mail_info["date"];
			$msglist[$i]["subject"] = $mail_info["subject"];
			$msglist[$i]["message-id"] = $mail_info["message-id"];
			$msglist[$i]["from"] = $mail_info["from"];
			$msglist[$i]["to"] = $mail_info["to"];
			$msglist[$i]["cc"] = $mail_info["cc"];
			$msglist[$i]["headers"] = $header;
			$msglist[$i]["attach"] = (eregi("(multipart/mixed|multipart/related|application)",$mail_info["content-type"]))?1:0;
			$msglist[$i]["localname"] = $fullpath;
			$msglist[$i]["read"] = ($decoded_headers["status"] == "N")?0:1;
			$i++;
		}
	}
	$d->close();

	return $msglist;
}

function get_usage_graphic($used,$aval) {
	if($used >= $aval) {
		$redsize = 100;
		$graph = "<img src=images/red.gif height=10 width=$redsize>";
	} elseif($used == 0) {
		$greesize = 100;
		$graph = "<img src=images/green.gif height=10 width=$greesize>";
	} else  {
		$usedperc = $used*100/$aval;
		$redsize = ceil($usedperc);
		$greesize = ceil(100-$redsize);
		$red = "<img src=images/red.gif height=10 width=$redsize>";
		$green = "<img src=images/green.gif height=10 width=$greesize>";
		$graph = $red.$green;
	}
	return $graph;
}


function get_total_used_size() {
	global $userfolder;
	$d = dir($userfolder);
	$totalused = 0;
	while($entry=$d->read()) {
		$thiss = $userfolder.$entry;
		if(is_dir($thiss) && 
			$entry != ".." && 
			substr($entry,0,1) != "_" && 
			$entry != ".") {
			$totalused += get_folder_size($entry);
		}
	}
	return $totalused;
}


function get_folder_size($folder) {
	global $sess,$userfolder;
	$dirsize = 0;
	if ($folder == "inbox") {
		$thisbox = $sess["headers"];
		for($i=0;$i<count($thisbox);$i++)
			$dirsize += $thisbox[$i]["size"];
	} else { 
		$dir = $userfolder.$folder;
		$d = dir($dir);
		while($entry=$d->read()) {
			$fullpath = "$dir/$entry";
			if(	is_file($fullpath))
				$dirsize += filesize($fullpath);
		}
		$d->close();
		unset($d);
	}
	//echo($folder . " " . $dirsize."<br>");
	return $dirsize;
}

// remove dirs recursivelly
function RmdirR($location) { 
	if (substr($location,-1) <> "/") $location = $location."/";
	$all=opendir($location); 
	while ($file=readdir($all)) { 
		if (is_dir($location.$file) && $file <> ".." && $file <> ".") { 
			RmdirR($location.$file); 
			unset($file); 
		} elseif (!is_dir($location.$file)) { 
			unlink($location.$file); 
			unset($file); 
		}
	}
	closedir($all); 
	unset($all);
	rmdir($location); 
}

// sort an multidimension array
function array_qsort2 (&$array, $column=0, $order="ASC", $first=0, $last= -2) { 

	if($last == -2) $last = count($array) - 1; 
	if($last > $first) { 
		$alpha = $first; 
		$omega = $last; 
		$guess = $array[$alpha][$column]; 
		while($omega >= $alpha) { 
			if($order == "ASC") { 
				while(strtolower($array[$alpha][$column]) < strtolower($guess)) $alpha++; 
				while(strtolower($array[$omega][$column]) > strtolower($guess)) $omega--; 
			} else {
				while(strtolower($array[$alpha][$column]) > strtolower($guess)) $alpha++; 
				while(strtolower($array[$omega][$column]) < strtolower($guess)) $omega--; 
			} 
			if(strtolower($alpha) > strtolower($omega)) break; 
			$temporary = $array[$alpha]; 
			$array[$alpha++] = $array[$omega]; 
			$array[$omega--] = $temporary; 
		} 
		array_qsort2 ($array, $column, $order, $first, $omega); 
		array_qsort2 ($array, $column, $order, $alpha, $last); 
	} 
} 

// load session info
function load_session() {
	global $temporary_directory,$sid;
	$sessionfile = $temporary_directory."_sessions/$sid.usf";
	$result      = Array();
	if(file_exists($sessionfile)) {
		$result = file($sessionfile);
		$result = join("",$result);
		$result = unserialize(~$result);
	}
	return $result;
}

// save session info
function save_session($array2save) {
	global $temporary_directory,$sid;
	$content = ~serialize($array2save);

	if(!is_writable($temporary_directory)) die("<h3>The folder \"$temporary_directory\" do not exists or the webserver don't have permissions to write</h3>");

	$sessiondir = $temporary_directory."_sessions/";
	if(!file_exists($sessiondir)) mkdir($sessiondir,0777);
	$f = fopen("$sessiondir$sid.usf","wb+") or die("<h3>Could not open session file</h3>");
	fwrite($f,$content);
	fclose($f);

	return 1;

}

// delete an session (logout)
function delete_session() {
	global $temporary_directory,$sid;
	$sessionfile = $temporary_directory."_sessions/$sid.usf";
	return @unlink($sessionfile);
}

// load settings
function load_prefs() {
	global $userfolder,$sess,$send_to_trash_default,$st_only_ready_default,
	$empty_trash_default,$save_to_sent_default,$sortby_default,$sortorder_default,
	$rpp_default,$add_signature_default,$signature_default;

	$pref_file = $userfolder."_infos/prefs.upf";
	if(!file_exists($pref_file)) {
		$prefs["real-name"]     = UCFirst(substr($sess["email"],0,strpos($sess["email"],"@")));
		$prefs["reply-to"]      = $sess["email"];
		$prefs["save-to-trash"] = $send_to_trash_default;
		$prefs["st-only-read"]  = $st_only_ready_default;
		$prefs["empty-trash"]   = $empty_trash_default;
		$prefs["save-to-sent"]  = $save_to_sent_default;
		$prefs["sort-by"]       = $sortby_default;
		$prefs["sort-order"]    = $sortorder_default;
		$prefs["rpp"]           = $rpp_default;
		$prefs["add-sig"]       = $add_signature_default;
		$prefs["signature"]     = $signature_default;
	} else {
		$prefs = file($pref_file);
		$prefs = join("",$prefs);
		$prefs = unserialize(~$prefs);
	}
	return $prefs;
}

//save preferences
function save_prefs($prefarray) {
	global $userfolder;
	$pref_file = $userfolder."_infos/prefs.upf";
	$f = fopen($pref_file,"wb+");
	fwrite($f,~serialize($prefarray));
	fclose($f);
}

//read an especified file
function read_file($strfile) {
	if(!file_exists($strfile)) return;
	$thisfile = file($strfile);
	while(list($line,$value) = each($thisfile)) {
		$value = ereg_replace("\r","",$value);
		$value = ereg_replace("\n","",$value);
		$result .= "$value\r\n";
	}
	return $result;
}

function save_file($fname,$fcontent) {
	$tmpfile = fopen($fname,"wb+");
	fwrite($tmpfile,$fcontent);
	fclose($tmpfile);
	unset($tmpfile,$fname,$fcontent);
}


if (!isset($lid))
	$lid=0;


if(!is_numeric($lid) || $lid >= count($languages)) $lid = $default_language;

$lngpath = $languages[$lid]["path"];


/********************************************************
System messages
********************************************************/
$language_file = "$lngpath/language.txt";

/********************************************************
Templates
********************************************************/
$message_list_template     = "$lngpath/messagelist.htm";      // Listagem de mensagens
$read_message_template     = "$lngpath/readmsg.htm";          // Ler a mensagem
$folder_list_template      = "$lngpath/folders.htm";          // Listagem de pastas
$search_template           = "$lngpath/search.htm";           // Formul醨io/Resultado da busca
$login_template            = "$lngpath/login.htm";            // Tela inicial (Login)
$bad_login_template        = "$lngpath/bad-login.htm";        // Falha de login
$error_template            = "$lngpath/error.htm";            // Erro do sistema
$newmsg_template           = "$lngpath/newmsg.htm";           // Enviar mensagem
$newmsg_result_template    = "$lngpath/newmsg-result.htm";    // Resultado da mensagem enviada
$attach_window_template    = "$lngpath/upload-attach.htm";    // Pop-Up para anexar arquivos
$quick_address_template    = "$lngpath/quick_address.htm";    // Pop-Up de acesso r醦ido aos endere鏾s
$address_form_template     = "$lngpath/address-form.htm";     // Formul醨io para adicionar/editar os contatos
$address_display_template  = "$lngpath/address-display.htm";  // Exibir detalhes de um contato
$address_list_template     = "$lngpath/address-list.htm";     // Listar os contatos
$address_results_template  = "$lngpath/address-results.htm";  // Resultado das a珲es tomadas nos contatos (excluir, editar, etc)
$headers_window_template   = "$lngpath/headers-window.htm";   // Janela de cabe鏰lhos
$preferences_template      = "$lngpath/preferences.htm";      // Preferencias
$adv_editor_template       = "$lngpath/advanced-editor.htm";  // Advanced HTML Editor

$lg = file($language_file);
while(list($line,$value) = each($lg)) {
	if(strpos(";#",$value[0]) === false && ($pos = strpos($value,"=")) != 0 && trim($value) != "") {
		$varname  = trim(substr($value,0,$pos));
		$varvalue = trim(substr($value,$pos+1));
		${$varname} = $varvalue;
	}
}


?>