全般的日本語フォーラム

Tatsuya Shirai 様

ご指摘ありがとうございました。

確かに「実践工業数学参考文献.doc」という名前のファイルは、文字化けするだけでなく、アップロードすらできない状態でした。

なんとかfile.phpのプログラムを編集して、とりあえずアップロードだけはできるようになりました。いちおう日本語ファイル名「実践工業数学参考文献.doc」を「8ec091488d488bc690948a778e518d6c95b68ca3.doc」
という１６進数の文字コードの列に変換して、アップロードする（定義関数string3hexcodes あるいは組み込み関数 bin2hexを使う）ようにすれば、ともかくもファイルがアップロードでき、かつそのファイルを開いたり、ダウンロードできたりするようにはなりました。（果たして、このような方針で問題解決にいたるでしょうか？）

しかし、まだファイル名が表示できない状態です。アップロードされたファイルは、「_.doc」という名前になって見えています。まぁ、これでもなんとか我慢できないわけではないですが（全くアップロードできないよりは遥かにましです）、

一応、１６進数のコード文字列を元の漢字の文字列に変換する関数をも用意できた（つもりです：hexcodes2string）ので、おそらく、どこかこのファイル名を表示する箇所にこの関数を組み込めば、なんとか処理できそうな気はしていますが．．．。
アップロードファイルの名前を表示する箇所がどこで行われているのかどなたかお教えいただけませんでしょうか？

実は、これまでMoodleのソースコードはほとんど覗いたことがありませんでした。いやそれどころか、私はPHPのプログラミングはまだ全然やったことがなく、この１日，２日大慌てでPHPの勉強をしていた次第です。いまからやっとMoodleのソースを調べてみようと思っているところです。

上のような方針で、なんとかWindowsにおけるアップロード・ファイル名の文字化け対策ができそうでしょうか？お教えを賜れば幸いです。

/moodle/file.php のファイルの次のフラグメントを次のように修正しました。
そして下記のようなユーザ定義関数を追加しました。

    // ========================================
    // finally send the file
    // ========================================
    session_write_close(); // unlock session during fileserving
    $filename = $args[count($args)-1];
 
  ////// ここに次の１３行を挿入
   $ua = $_SERVER['HTTP_USER_AGENT'];
   if (strstr($ua, 'MSIE') && !strstr($ua, 'Opera')) {

  $enc = "ISO-2022JP";
  $name = get_name($filename,$enc);
  $new_name = bin2hex($name);    // 'bin2hex' seems to work the same way as 'string2hexcodes'.
  $extension = get_extension($filename,$enc);
  
  $filename = $new_name.".".$extension;

   } else if (strstr($ua, 'Safari')) {
      $filename = "";
   }
   $filename = str_replace('#', '%23', $filename);
 //////

 
     send_file($pathname, $filename, $lifetime, $CFG->filteruploadedfiles, false, $forcedownload);
　　 .... 以下省略

/////   追加されたユーザ定義関数

 function get_name($filename,$enc) {
  $_pos=mb_strrpos($filename,".",$enc);
  return mb_substr($filename,0,$_pos);
 }

 function get_extension($filename,$enc) {
  $len = mb_strlen($filename);
  $_pos=mb_strrpos($filename,".",$enc);
  $pos1 = $_pos+1;
  $len1 = $len-$pos1;
  return mb_substr($filename,$pos1,$len1);
 }
/*
  function string2hexcodes($str,$enc) {    //// 'bin2hex' seems to work the same way as this function.
  $len = mb_strlen($str,$enc);
  $code[$len];
 
  $strX = $str;
 
  for($i=0; $i<$len; ++$i) {
   $_char  = mb_substr($strX,0,1,$enc);
   $char_code = ord($_char);
   $code[$i]  = dechex($char_code);
  
   $len1 = mb_strlen($strX,$enc)-1;
   $strX = mb_substr($strX,1,$len1,$enc); 
  }

  $strX="";
  for($i=0; $i<$len; ++$i) {
   $strX = $strX.$code[$i];
  }
 
  return $strX;
 }
*/

    function hexcodes2string($codestr) {
     $len = strlen($codestr);
  $chars[$len];
  
  $codestrX=$codestr;
  for($i=0; $i<$len; ++$i) {
   $lenX = strlen($codestrX);
   $char1 = substr($codestrX,0,1);
   $char2 = substr($codestrX,1,1);
  
   $num1 = get_code($char1);
   $num2 = get_code($char2);
  
   $chars[$i] = chr($num1*16 + $num2);
  
   $len2 = $len-2;
   $codestrX = substr($codestrX,2,$len2);
  }
  
  $strX="";
  for($i=0; $i<$len; ++$i) {
   $strX = $strX.$chars[$i];
  }
  
  return $strX;
 }

 function get_code($char) {
  switch($char) {
   case "0": return 0;
   case "1": return 1;
   case "2": return 2;
   case "3": return 3;
   case "4": return 4;
   case "5": return 5;
   case "6": return 6;
   case "7": return 7;
   case "8": return 8;
   case "9": return 9;
   case "a": return 10;
   case "b": return 11;
   case "c": return 12;
   case "d": return 13;
   case "e": return 14;
   case "f": return 15;
   default : return  0;
  }
 }