'.NL; echo '

Répertoire

'.NL; if ( count($file) ) { echo '

'.htmlspecialchars($f).'

'.NL; } echo '

'.NL; if ( isset($_GET['file']) && $_GET['file'] && $_GET['file'] != '' ) { $filename = urldecode($_GET['file']) . EXTMSF; $m = new mork($dir.$filename); $m->ReadContent(); displayList($m->GetMsgs()); } echo ''.NL; function getFileAndFolder($pPath, $pfile, $pfolder) { $pfile = array(); $pfolder = array(); if ( ($pDir = opendir($pPath)) ) { $lExtMsf = strlen(EXTMSF); $lExtSbd = strlen(EXTSBD); while ( ($filename = readdir($pDir)) ) { $l = strlen($filename); if ( $l>$lExtMsf && substr($filename, $l-$lExtMsf, $lExtMsf) == EXTMSF ) { $pfile[] = $filename; } else if ( is_dir($pDir.'/'.$filename) && $l>$lExtSbd && substr($filename, $l-$lExtSbd, $lExtSbd) == EXTSBD ) { $pfolder[] = $filename; } } closedir($pDir); } } function displayList($tabmsg) { if ( count($tabmsg) ) { echo ''.NL; foreach ( $tabmsg as $msg) { echo ''; echo ''; echo ''; echo ''; echo ''; echo ''; echo ''.NL; } echo '

flags	sender	recipients	subject	date	size
',$msg['flags'],'	',deIso($msg['sender']),'	',$msg['recipients'],'	',deIso($msg['subject']),'	',date('Y/m/d H:i:s',hexdec($msg['date'])),'	',hexdec($msg['size']),' o

'; } else { echo '

Il n\'y a aucun message dans ce dossier.

'.NL; } } function egaleHex($matches) { return chr(hexdec($matches[1])); } function deIso($s) { $s = str_replace("\n",'',$s); $isISO=false; if ( stristr($s, '=?ISO-8859-1?Q?') !== FALSE ) { $s = preg_replace('/=\?ISO-8859-1\?Q\?/i','',$s); $s = str_replace('?=','',$s); $isISO=true; } $s = preg_replace_callback("/=([\dA-Z]{2})/", "egaleHex", $s); if ($isISO) { $s = utf8_encode($s); } return $s; } ?>