export.php

来自「通达OA2007SE源代码 非常好的」· PHP 代码 · 共 60 行

<?
  require './inc/inc.php';
  if ((!isset ($ix) OR !isset ($pag)))
  {
    header (((((((''.'Location: error.php?err=3&sid=').$sid).'&tid=').$tid).'&lid=').$lid));
  }
  $mysess = $sess['headers'][base64_encode (strtolower ($folder))];
  $mail_info = $mysess[$ix];
  if (!$UM->mail_connect ())
  {
    header ((((((((''.'Location: error.php?err=1&sid=').$sid).'&tid=').$tid).'&lid=').$lid).'
'));
    exit ();
  }
  if (!$UM->mail_auth ())
  {
    header ((((((((''.'Location: badlogin.php?sid=').$sid).'&tid=').$tid).'&lid=').$lid).'
'));
    exit ();
  }
  if (!$result = $UM->mail_retr_msg ($mail_info, 1))
  {
    header ((('Location: msglist.php?err=2&folder='.urlencode ($folder)).(((((((((''.'&pag=').$pag).'&sid=').$sid).'&tid=').$tid).'&lid=').$lid).'&refr=true
')));
    exit ();
  }
  if ($UM->mail_set_flag ($mail_info, '\\SEEN', '+'))
  {
    $sess['headers'][base64_encode (strtolower ($folder))][$ix] = $mail_info;
    $SS->Save ($sess);
  }
  $mail_name = $mail_info['subject'];
  $mail_name = str_replace (':', '：', $mail_name);
  $mail_name = str_replace ('\\', '', $mail_name);
  $mail_name = str_replace ('/', '', $mail_name);
  $mail_name = str_replace ('*', '', $mail_name);
  $mail_name = str_replace ('?', '', $mail_name);
  $mail_name = str_replace ('"', '“', $mail_name);
  $mail_name = str_replace ('<', '[', $mail_name);
  $mail_name = str_replace ('>', ']', $mail_name);
  $mail_name = str_replace ('|', '', $mail_name);
  if (($mail_name == ''))
  {
    $mail_name = '无主题';
  }
  ob_end_clean ();
  header ('Cache-control: private');
  header ('Content-type: application/octet-stream');
  header ('Accept-Ranges: bytes');
  header (('Accept-Length: '.filesize ($filename)));
  header ((('Content-Disposition: attachment; filename='.$mail_name).'.eml'));
  $filename = $UM->_get_local_name ($mail_info, $folder);
  $fp = fopen ($filename, 'rb');
  while (!feof ($fp))
  {
    echo fread ($fp, 50000);
  }
  fclose ($fp);
?>