Tommy 碎碎念

修正這兩天 phpmsnclass 無法正常使用 MSNP15 的問題

Sat, 25 Jul 2009 13:46:13 +0800

似乎由 7/21 開始, MS 的 server 伺服有些更改, 在 MSNP15 的使用上, 並不會在 USR 指令登入之後送出 SBS 的指令, 這會造成 phpmsnclass 在登入後等待 SBS 的指令而無後續的動作.

所以目前把程式修改一下, 直接在 USR 回應後就處理後續的動作, 不再依靠 SBS 指令處理.

改了之後看起來是正常了. 有使用的朋友, 請更新到 r38 或之後的版本.

修正在 FPDF UTF-8 簡繁中文支援裡頭, AliasNbPages 沒有作用的問題

Fri, 24 Apr 2009 16:31:56 +0800

在之前有提過有人寫了一個 FPDF UTF-8 簡繁中文支援的方案 (作者不是我), 不過, 有使用者反應會造成 AliasNbPages 沒有作用. 剛剛 trace 了一下, 發現在 chinese-unicode.php 裡頭, 就直接把字串轉成 unicode 內碼的十六進位字串了, 所以後來原本的 FPDF 在轉換 AliasNbPages 這個變數時, 自然不會有任何的作用.

舉例來說, 一般內定的 AliasNbPages 是用 {nb} 這個字串, 會變成 007b006e0062007d 的內容, 而在原本的 FPDF 依然是找 {nb}, 自然不會轉換. 因此我們需要針對 chinese-unicode.php 來特別處理這個部份.

你可以在 chinese-unicode.php 的 function PDF_Unicode() 之後, 加上一個 function Uni_putpages() 如下:

function Uni_putpages()
{
    if(!empty($this->AliasNbPages)) {
        //Replace number of pages
 
        // find the pages alias already converted to hex string
        $search = '';
        $len = strlen($this->AliasNbPages);
        for ($i = 0; $i < $len; $i++)
            $search .= sprintf("%04x", ord($this->AliasNbPages[$i]));
 
        // replace the pages alias with page number (hex format)
        $replace = '';
        $total_pages = ''.$this->page.'';
        $len = strlen($total_pages);
        for ($i = 0; $i < $len; $i++)
            $replace .= sprintf("%04x", ord($total_pages[$i]));
 
        // replace it now
        for ($n = 1; $n <= $this->page; $n++)
            $this->pages[$n] = str_replace($search, $replace, $this->pages[$n]);
    }
}

然後在使用時, 在最後產生 PDF 之前, 記得呼叫這個 function, 如:

$pdf->Uni_putpages();
$pdf->Output();

這樣子應該就可以把頁數轉換出來了.

不過這樣子的處理, 並不保證那個轉換不會造成別的問題. 以內定的 {nb} 來說, 因為只是單純比對 007b006e0062007d 來轉換, 雖然機率不大, 還是有可能會轉錯的. 如果有碰到, 還想避免這個問題, 可以考慮弄個比較複雜的 alias 來使用吧.

phpmsnclass v1.9

Thu, 23 Oct 2008 23:24:44 +0800

更新 phpmsnclass 版本為 1.9.

異動記錄:

修正 MSNP9 只有在除錯模式才能登入的問題. (r22, 2007/11/14)
修正 PHP notice 訊息: undefined offset of $aMSNUsers in 'XFR' of doLoop(). (r23, 2007/12/21)
修正 MSNP15 密碼使用特殊字元的編碼問題. (r23, 2007/12/21)
修正密碼長度問題, 密碼只允許最長 16 個字元. (r23, 2007/12/21)
修正 PHP notice 訊息: preg_match(): Unknown modifier ']' in getOIM_maildata(). (r24, 2007/12/26)
修正變數名打錯的問題: $precess_file. (r25, 2008/01/01)
修正 Google Code Issue 11: Undefined property: $oim_send_soap on line 2872. (r26, 2008/01/09)
在 msnbot.php 中新增定時通知的功能. (r27, 2008/03/04)
新增 addContact() 函式, 主動詢問使用者是否允許加入他的聯絡清單中. (r29, 2008/03/11)
修正 sendOIM() 中, 可能同時產生 LockKeyChallenge 與 RequiredAuthPolicy 錯誤的問題. (r30, 2008/10/23)

檔案請到 Google Code 抓取.

在 Win32 下的 PHP 使用 ftp_ssl_connect()

Sun, 07 Sep 2008 10:17:40 +0800

在 php 官方的說明文件中, 提到要使用 ftp_ssl_connect() 必須要有 openssl 的支援才可以. 而且在 Windows 下頭, 必須要自行重新編譯一個內建 openssl 支援的版本才可以.

文件上頭, 有人提到了這個網頁, 上頭有說明如何自行在 Windows 下頭編譯出支援 ftp_ssl_connect() 的 php 版本. 不過上頭的說明, 也許是編排有誤的關係, 發現有一段少了幾句話, 會無法正常的編譯出 php 的執行檔. 所以我重新整理了一下.

安裝 Visual C++.
使用 Visual Studio Express 或 Visual Studio 2005 都可以.
安裝所需要的函式庫.
到這兒下載 zip.zip, 這是編譯 php 所需要的 library.
如果你編譯 php 時, 有出現找不到 xmlXPathCompiledEvalToBoolean 的錯誤時, 表示你下載的 zip.zip 裡頭的 libxml2 並未更新到新的版本. 請到這兒抓取新的 libxml2 回來.
到 php 官方網站下載 php 的原始碼.
我是使用 php 5.2.6 的版本.
把 php 的原始碼解開來, 放在 c:\work\php5 下頭.
把 zip.zip 裡頭的 php_build 解開來, 放到 c:\work\php_build 下頭.
如果有 xml 的錯誤, 把 libxml2 解開來, 裡頭的 include, lib, util 目錄, 搬到 c:\work\php_build 下頭, 覆蓋原來的檔案.
打開一個 Command Prompt 視窗, 然後執行 vcvars32.bat
這個批次檔應該是在你的 VC++ 下頭的 bin 目錄中.

使用 patch 修正你的 ftp.c, 修正如下:

--- php-5.2.6.orig/ext/ftp/ftp.c  Mon Dec 31 15:20:06 2007
+++ php-5.2.6/ext/ftp/ftp.c  Sun Sep  7 10:10:39 2008
@@ -242,6 +242,7 @@
 ftp_login(ftpbuf_t *ftp, const char *user, const char *pass TSRMLS_DC)
 {
 #if HAVE_OPENSSL_EXT
+  int  errcode;
   SSL_CTX  *ctx = NULL;
 #endif
   if (ftp == NULL) {
@@ -290,11 +291,23 @@
 
     SSL_set_fd(ftp->ssl_handle, ftp->fd);
 
-    if (SSL_connect(ftp->ssl_handle) <= 0) {
-      php_error_docref(NULL TSRMLS_CC, E_WARNING, "SSL/TLS handshake failed");
-      SSL_shutdown(ftp->ssl_handle);
-      return 0;
-    }
+    do {
+      errcode = SSL_connect(ftp->ssl_handle);
+      switch (SSL_get_error(ftp->ssl_handle, errcode)) {
+        case SSL_ERROR_NONE:
+          errcode = 1;
+          break;
+        case SSL_ERROR_WANT_WRITE:
+        case SSL_ERROR_WANT_READ:
+        case SSL_ERROR_WANT_X509_LOOKUP:
+          errcode = 0;
+          break;
+        default:
+          php_error_docref(NULL TSRMLS_CC, E_WARNING, "SSL/TLS handshake failed");
+          SSL_shutdown(ftp->ssl_handle);
+          return 0;
+      }
+    } while (errcode == 0 && !SSL_is_init_finished(ftp->ssl_handle));
 
     ftp->ssl_active = 1;
 
@@ -1272,6 +1285,9 @@
 my_recv(ftpbuf_t *ftp, php_socket_t s, void *buf, size_t len)
 {
   int    n, nr_bytes;
+#if HAVE_OPENSSL_EXT
+  int    no_error;
+#endif
 
   n = php_pollfd_for_ms(s, PHP_POLLREADABLE, ftp->timeout_sec * 1000);
   if (n < 1) {
@@ -1287,7 +1303,25 @@
   if (ftp->use_ssl && ftp->fd == s && ftp->ssl_active) {
     nr_bytes = SSL_read(ftp->ssl_handle, buf, len);
   } else if (ftp->use_ssl && ftp->fd != s && ftp->use_ssl_for_data && ftp->data->ssl_active) {  
-    nr_bytes = SSL_read(ftp->data->ssl_handle, buf, len);
+    no_error = 1; // there is no error
+    do {
+      nr_bytes = SSL_read(ftp->data->ssl_handle, buf, len);
+      switch (SSL_get_error(ftp->data->ssl_handle, nr_bytes)) {
+        case SSL_ERROR_NONE:
+        case SSL_ERROR_ZERO_RETURN:
+        case SSL_ERROR_WANT_WRITE:
+        case SSL_ERROR_WANT_X509_LOOKUP:
+        case SSL_ERROR_WANT_READ:
+          break;
+        case SSL_ERROR_WANT_CONNECT:
+        case SSL_ERROR_WANT_ACCEPT:
+        case SSL_ERROR_SSL:            
+        case SSL_ERROR_SYSCALL:
+        default:
+          no_error = 0; //major error, get out
+          break;
+      }
+    } while (nr_bytes < 0 && no_error);
   } else {
 #endif
     nr_bytes = recv(s, buf, len, 0);
@@ -1491,6 +1525,7 @@
   socklen_t      size;
 
 #if HAVE_OPENSSL_EXT
+  int    errcode;
   SSL_CTX    *ctx;
 #endif
 
@@ -1534,11 +1569,23 @@
       SSL_copy_session_id(data->ssl_handle, ftp->ssl_handle);
     }
 
-    if (SSL_connect(data->ssl_handle) <= 0) {
-      php_error_docref(NULL TSRMLS_CC, E_WARNING, "data_accept: SSL/TLS handshake failed");
-      SSL_shutdown(data->ssl_handle);
-      return 0;
-    }
+    do {
+      errcode = SSL_connect(data->ssl_handle);
+      switch (SSL_get_error(data->ssl_handle, errcode)) {
+        case SSL_ERROR_NONE:
+          errcode = 1;
+          break;
+        case SSL_ERROR_WANT_WRITE:
+        case SSL_ERROR_WANT_READ:
+        case SSL_ERROR_WANT_X509_LOOKUP:
+          errcode = 0;
+          break;
+        default:
+          php_error_docref(NULL TSRMLS_CC, E_WARNING, "data_accept: SSL/TLS handshake failed");
+          SSL_shutdown(data->ssl_handle);
+          return 0;
+      }
+    } while (errcode == 0 && !SSL_is_init_finished(data->ssl_handle));
 
     data->ssl_active = 1;
   }

檔案可以由這兒抓取.

執行下列幾個指令.

set PATH=%PATH%;C:\work\php_build\bin;
set BISON_SIMPLE=C:\work\php_build\bin\bison.simple
set INCLUDE=C:\work\php_build\include;%INCLUDE%
set LIB=C:\work\php_build\lib;%LIB%
set LIBPATH=C:\work\php_build\lib;%LIBPATH%

開始編譯 php. 執行下列的指令:

cd c:\work\php5
buildconf
cscript /nologo configure.js --with-openssl
nmake

如果沒有錯誤 (會有一堆 warnning, 可以忽略), 最後在 c:\work\php5\Release_TS 下頭會有最後產生的檔案. 把 php.exe, php5ts.dll, php-cgi.exe 複製到你原本安裝 php 的目錄下, 覆蓋舊的檔案.
把 zip.zip 裡頭 dev\template\dlls 裡頭的 libeay32.dll, ssleay32.dll 複製到你原本安裝的 php 的目錄下.

幾過上頭的動作, 你的 php 就應該可以使用 ftp_ssl_connect() 了. 如果你不知道怎麼編譯, 且不怕我編出來的執行檔有問題的話, 可以下載這個檔案 (php 5.2.6) 回去, 解開來放到你安裝 php 的目錄下, 覆蓋舊的檔案就可以了. 不過.... 如果因為這個檔案所造成的任何問題, 請自行負責, 不要來找我. :-)

MySPAM v0.0.5

Wed, 06 Aug 2008 13:48:40 +0800

MySPAM v0.0.5 推出. 其實也沒改到什麼, 這些修正好像都至少有半年了. 與前一版本的差異如下:

+ 新增對同一主機多網域帳號的支援. 登入時請使用 user@domain 的方式登入即可.
! 檢查信件第一行是否為 'From xxx@xxx.xxx.xx' 這個非 header 的內容 (某些 postfix 有這行?), 如有就略過.
! 如果沒有 SIZE 環境變數, 就自行計算信件大小.

程式可以由這兒抓取: http://www.teatime.com.tw/~tommy/myspam/myspam-0.0.5.tgz
或由這兒抓取最後一個版本: http://www.teatime.com.tw/~tommy/myspam/myspam.tgz
0.0.4a to 0.0.5 的 patch: http://www.teatime.com.tw/~tommy/myspam/myspam_004a_to_005.patch

修正 Spreadsheet_Excel_Writer 的 unicode 問題

Sat, 21 Jun 2008 15:10:47 +0800

在經過之前所提過的修正之後, 的確可以在 Excel 的欄位中正確的使用 unicode 了. 不過最近在 Study-Area 有人提到 Worksheet 的名稱與列印的 Header 與 Footer 都不能使用 unicode. 試了一下, 果然不能正確使用.

原本的解決方法, 當然就是這部份只用英文或數字, 來避開這個問題. 不過, 最近在 Google 上頭閒逛時, 發現有位日本人提到了一個解法, 在該網頁中說明這個修正取自另一位日本人的 Excel_Reviser 專案, 不過我下載該 patch 之後, 發現不能正常的在我的環境中使用 (UTF-8). 不過... 看起來在他們的日文環境中似乎是正常的.

由於在目前 perl 版本的 Spreadsheet-WriteExcel 是沒有這類的問題, 而 php 的這個物件, 當初也是由 perl 版本 port 過來的, 所以就抓了最新版的 Spreadsheet-WriteExcel 下來研究看看.

後來發現這位日本人所做的 patch, 在 mb_convert_encoding 並未指定原本的編碼, 我改了一下, 指定我目前用的編碼之後, 果然可以在 worksheet 的名稱上頭使用中文, 不過, 似乎有些問題, 因為用 Excel 打開時都會有檔案有問題. 經過一小段時間的 trace 之後, 發現在 _calcSheetOffsets() 裡頭會計算這個名稱的長度, 我看一下 perl 版本中, 如果是 unicode 時, 這兒應該是轉成 UTF-16LE 的字串之後, 再看看這個字串佔了幾個 bytes, 而不是字串的長度. 直接取字串的長度, 如果是用非 ascii 碼的字串時, 長度會不夠. 所以產生的 excel 檔案會有些問題. 經過了這些修正之後, 目前看起來, 似乎解決了這個問題.

首先, 你必須加上前面提過, 在 pear bug 1572 中 Michal Fapso 所提出的修正, 這個修正如下:

diff -Nur Spreadsheet_Excel_Writer-0.9.1.orig/Writer/Workbook.php Spreadsheet_Excel_Writer-0.9.1/Writer/Workbook.php
--- Spreadsheet_Excel_Writer-0.9.1.orig/Writer/Workbook.php  2005-11-08 11:32:52.000000000 +0800
+++ Spreadsheet_Excel_Writer-0.9.1/Writer/Workbook.php  2008-06-21 14:43:03.619511020 +0800
@@ -1294,7 +1294,7 @@
         $this->_append($header . $data);
     }
 
-    /**
+   /**
     * Calculate
     * Handling of the SST continue blocks is complicated by the need to include an
     * additional continuation byte depending on whether the string is split between
@@ -1311,9 +1311,10 @@
            8228 : Maximum Excel97 block size
              -4 : Length of block header
              -8 : Length of additional SST header information
-         = 8216
+         -8 : Arbitrary number to keep within _add_continue() limit
+         = 8208
         */
-        $continue_limit     = 8216;
+        $continue_limit     = 8208;
         $block_length       = 0;
         $written            = 0;
         $this->_block_sizes = array();
@@ -1321,6 +1322,9 @@
 
         foreach (array_keys($this->_str_table) as $string) {
             $string_length = strlen($string);
+      $headerinfo    = unpack("vlength/Cencoding", $string);
+      $encoding      = $headerinfo["encoding"];
+      $split_string  = 0;
 
             // Block length is the total length of the strings that will be
             // written out in a single SST or CONTINUE block.
@@ -1347,16 +1351,39 @@
                 boundaries. Therefore, in some cases we need to reduce the
                 amount of available
                 */
+        $align = 0;
+
+        # Only applies to Unicode strings
+        if ($encoding == 1) {
+          # Min string + header size -1
+          $header_length = 4;
+
+          if ($space_remaining > $header_length) {
+            # String contains 3 byte header => split on odd boundary
+            if (!$split_string && $space_remaining % 2 != 1) {
+              $space_remaining--;
+              $align = 1;
+            }
+            # Split section without header => split on even boundary
+            else if ($split_string && $space_remaining % 2 == 1) {
+              $space_remaining--;
+              $align = 1;
+            }
+
+            $split_string = 1;
+          }
+        }
+
 
                 if ($space_remaining > $header_length) {
                     // Write as much as possible of the string in the current block
                     $written      += $space_remaining;
 
                     // Reduce the current block length by the amount written
-                    $block_length -= $continue_limit - $continue;
+                    $block_length -= $continue_limit - $continue - $align;
 
                     // Store the max size for this block
-                    $this->_block_sizes[] = $continue_limit;
+                    $this->_block_sizes[] = $continue_limit - $align;
 
                     // If the current string was split then the next CONTINUE block
                     // should have the string continue flag (grbit) set unless the
@@ -1398,13 +1425,19 @@
          This length is required to set the offsets in the BOUNDSHEET records since
          they must be written before the SST records
         */
-        $total_offset = array_sum($this->_block_sizes);
-        // SST information
-        $total_offset += 8;
-        if (!empty($this->_block_sizes)) {
-            $total_offset += (count($this->_block_sizes)) * 4; // add CONTINUE headers
-        }
-        return $total_offset;
+
+    $tmp_block_sizes = array();
+    $tmp_block_sizes = $this->_block_sizes;
+
+    $length  = 12;
+    if (!empty($tmp_block_sizes)) {
+      $length += array_shift($tmp_block_sizes); # SST
+    }
+    while (!empty($tmp_block_sizes)) {
+      $length += 4 + array_shift($tmp_block_sizes); # CONTINUEs
+    }
+
+    return $length;
     }
 
     /**
@@ -1421,9 +1454,31 @@
     function _storeSharedStringsTable()
     {
         $record  = 0x00fc;  // Record identifier
+    $length  = 0x0008;  // Number of bytes to follow
+    $total   = 0x0000;
+
+        // Iterate through the strings to calculate the CONTINUE block sizes
+        $continue_limit = 8208;
+        $block_length   = 0;
+        $written        = 0;
+        $continue       = 0;
+
         // sizes are upside down
-        $this->_block_sizes = array_reverse($this->_block_sizes);
-        $length = array_pop($this->_block_sizes) + 8; // First block size plus SST information
+    $tmp_block_sizes = $this->_block_sizes;
+//        $tmp_block_sizes = array_reverse($this->_block_sizes);
+
+    # The SST record is required even if it contains no strings. Thus we will
+    # always have a length
+    #
+    if (!empty($tmp_block_sizes)) {
+      $length = 8 + array_shift($tmp_block_sizes);
+    }
+    else {
+      # No strings
+      $length = 8;
+    }
+
+
 
         // Write the SST block header information
         $header      = pack("vv", $record, $length);
@@ -1431,18 +1486,14 @@
         $this->_append($header . $data);
 
 
-        // Iterate through the strings to calculate the CONTINUE block sizes
-        $continue_limit = 8216;
-        $block_length   = 0;
-        $written        = 0;
-        $continue       = 0;
 
 
         /* TODO: not good for performance */
         foreach (array_keys($this->_str_table) as $string) {
 
             $string_length = strlen($string);
-            $encoding      = 0; // assume there are no Unicode strings
+      $headerinfo    = unpack("vlength/Cencoding", $string);
+      $encoding      = $headerinfo["encoding"];
             $split_string  = 0;
 
             // Block length is the total length of the strings that will be
@@ -1473,6 +1524,30 @@
 
                 // Unicode data should only be split on char (2 byte) boundaries.
                 // Therefore, in some cases we need to reduce the amount of available
+              // space by 1 byte to ensure the correct alignment.
+              $align = 0;
+
+        // Only applies to Unicode strings
+        if ($encoding == 1) {
+          // Min string + header size -1
+          $header_length = 4;
+
+          if ($space_remaining > $header_length) {
+            // String contains 3 byte header => split on odd boundary
+            if (!$split_string && $space_remaining % 2 != 1) {
+              $space_remaining--;
+              $align = 1;
+            }
+            // Split section without header => split on even boundary
+            else if ($split_string && $space_remaining % 2 == 1) {
+              $space_remaining--;
+              $align = 1;
+            }
+
+            $split_string = 1;
+          }
+        }
+
 
                 if ($space_remaining > $header_length) {
                     // Write as much as possible of the string in the current block
@@ -1483,7 +1558,7 @@
                     $string = substr($string, $space_remaining);
 
                     // Reduce the current block length by the amount written
-                    $block_length -= $continue_limit - $continue;
+                    $block_length -= $continue_limit - $continue - $align;
 
                     // If the current string was split then the next CONTINUE block
                     // should have the string continue flag (grbit) set unless the
@@ -1503,7 +1578,8 @@
                 // Write the CONTINUE block header
                 if (!empty($this->_block_sizes)) {
                     $record  = 0x003C;
-                    $length  = array_pop($this->_block_sizes);
+                    $length  = array_shift($tmp_block_sizes);
+
                     $header  = pack('vv', $record, $length);
                     if ($continue) {
                         $header .= pack('C', $encoding);

這個 patch 可以由這兒抓取: http://www.teatime.com.tw/~tommy/mypatch/Spreadsheet_Excel_Writer-0.9.1-unicode-1.patch

經過上頭的 patch 處理之後, 可以正確的在 cell 裡頭使用 unicode 了. 接著, 再經過下面的修正:

diff -Nur Spreadsheet_Excel_Writer-0.9.1.orig/Writer/Format.php Spreadsheet_Excel_Writer-0.9.1/Writer/Format.php
--- Spreadsheet_Excel_Writer-0.9.1.orig/Writer/Format.php  2005-11-09 08:29:35.000000000 +0800
+++ Spreadsheet_Excel_Writer-0.9.1/Writer/Format.php  2008-06-21 14:46:35.197569488 +0800
@@ -243,16 +243,23 @@
     var $_right_color;
 
     /**
+    * input encoding for unicode
+    * @var string
+    */
+    var $_input_encoding;
+
+    /**
     * Constructor
     *
     * @access private
     * @param integer $index the XF index for the format.
     * @param array   $properties array with properties to be set on initialization.
     */
-    function Spreadsheet_Excel_Writer_Format($BIFF_version, $index = 0, $properties =  array())
+    function Spreadsheet_Excel_Writer_Format($BIFF_version, $index = 0, $properties =  array(), $input_encoding = '')
     {
         $this->_xf_index       = $index;
         $this->_BIFF_version   = $BIFF_version;
+        $this->_input_encoding = strtoupper($input_encoding);
         $this->font_index      = 0;
         $this->_font_name      = 'Arial';
         $this->_size           = 10;
@@ -455,12 +462,22 @@
         $bCharSet   = $this->_font_charset; // Character set
         $encoding   = 0;                    // TODO: Unicode support
 
-        $cch        = strlen($this->_font_name); // Length of font name
         $record     = 0x31;                      // Record identifier
         if ($this->_BIFF_version == 0x0500) {
+            $cch        = strlen($this->_font_name); // Length of font name
             $length     = 0x0F + $cch;            // Record length
         } elseif ($this->_BIFF_version == 0x0600) {
-            $length     = 0x10 + $cch;
+            if ($this->_input_encoding != '') {
+                $encoding   = 1;
+                if ($this->_input_encoding != 'UTF16-LE')
+                    $this->_font_name = mb_convert_encoding($this->_font_name, "UTF-16LE");
+                $cch        = mb_strlen($this->_font_name, "UTF-16LE");
+                $length     = 0x10 + strlen($this->_font_name);
+            }
+            else {
+                $cch        = strlen($this->_font_name); // Length of font name
+                $length     = 0x10 + $cch;            // Record length
+            }
         }
         $reserved   = 0x00;                // Reserved
         $grbit      = 0x00;                // Font attributes
diff -Nur Spreadsheet_Excel_Writer-0.9.1.orig/Writer/Workbook.php Spreadsheet_Excel_Writer-0.9.1/Writer/Workbook.php
--- Spreadsheet_Excel_Writer-0.9.1.orig/Writer/Workbook.php  2008-06-21 14:43:03.619511000 +0800
+++ Spreadsheet_Excel_Writer-0.9.1/Writer/Workbook.php  2008-06-21 14:46:43.421493326 +0800
@@ -172,6 +172,12 @@
     var $_string_sizeinfo_size;
 
     /**
+    * input encoding for unicode sheetname
+    * @var string
+    */
+    var $_input_encoding;
+
+    /**
     * Class constructor
     *
     * @param string filename for storing the workbook. "-" for writing to stdout.
@@ -266,14 +272,17 @@
     * @access public
     * @param integer $version The BIFF version
     */
-    function setVersion($version)
+    function setVersion($version, $input_encoding = '')
     {
         if ($version == 8) { // only accept version 8
             $version = 0x0600;
             $this->_BIFF_version = $version;
+            $this->_codepage = 0x04B0;
             // change BIFFwriter limit for CONTINUE records
             $this->_limit = 8228;
+            $this->_input_encoding = strtoupper($input_encoding);
             $this->_tmp_format->_BIFF_version = $version;
+            $this->_tmp_format->_input_encoding = $this->_input_encoding;
             $this->_url_format->_BIFF_version = $version;
             $this->_parser->_BIFF_version = $version;
 
@@ -287,6 +296,7 @@
             // change version for all formats too
             for ($i = 0; $i < $total_formats; $i++) {
                 $this->_formats[$i]->_BIFF_version = $version;
+                $this->_formats[$i]->_input_encoding = $this->_input_encoding;
             }
         }
     }
@@ -361,7 +371,7 @@
     */
     function &addFormat($properties = array())
     {
-        $format = new Spreadsheet_Excel_Writer_Format($this->_BIFF_version, $this->_xf_index, $properties);
+        $format = new Spreadsheet_Excel_Writer_Format($this->_BIFF_version, $this->_xf_index, $properties, $this->_input_encoding);
         $this->_xf_index += 1;
         $this->_formats[] = &$format;
         return $format;
@@ -640,7 +650,11 @@
         $total_worksheets = count($this->_worksheets);
         // add the length of the BOUNDSHEET records
         for ($i = 0; $i < $total_worksheets; $i++) {
-            $offset += $boundsheet_length + strlen($this->_worksheets[$i]->name);
+            if ($this->_input_encoding != 'UTF-16LE' && $this->_input_encoding != '')
+                $name = mb_convert_encoding($this->_worksheets[$i]->name, "UTF-16LE", $this->_input_encoding);
+            else
+                $name = $this->_worksheets[$i]->name;
+            $offset += $boundsheet_length + strlen($name);
         }
         $offset += $EOF;
 
@@ -940,16 +954,26 @@
         } else {
             $length = 0x07 + strlen($sheetname); // Number of bytes to follow
         }
-
         $grbit     = 0x0000;                    // Visibility and sheet type
-        $cch       = strlen($sheetname);        // Length of sheet name
-
-        $header    = pack("vv",  $record, $length);
         if ($this->_BIFF_version == 0x0600) {
-            $data      = pack("Vvv", $offset, $grbit, $cch);
+            if ($this->_input_encoding != '') {
+                if ($this->_input_encoding != 'UTF16-LE')
+                    $sheetname = mb_convert_encoding($sheetname, "UTF-16LE", $this->_input_encoding);
+                $cch       = mb_strlen($sheetname, "UTF-16LE");
+                $encoding  = 1;
+                $data      = pack("VvCC", $offset, $grbit, $cch, $encoding);
+            } else {
+                $cch       = strlen($sheetname);
+                $data      = pack("Vvv", $offset, $grbit, $cch);
+            }
+            $length    = 0x08 + strlen($sheetname); // Number of bytes to follow
         } else {
+            $length = 0x07 + strlen($sheetname); // Number of bytes to follow
+            $cch       = strlen($sheetname);        // Length of sheet name
             $data      = pack("VvC", $offset, $grbit, $cch);
         }
+        
+        $header    = pack("vv",  $record, $length);
         $this->_append($header.$data.$sheetname);
     }
 
@@ -1020,16 +1044,22 @@
     function _storeNumFormat($format, $ifmt)
     {
         $record    = 0x041E;                      // Record identifier
-
+        
         if ($this->_BIFF_version == 0x0600) {
+            if ($this->_input_encoding != '') {
+                if ($this->_input_encoding != 'UTF16-LE')
+                    $format    = mb_convert_encoding($format, "UTF-16LE", $this->_input_encoding);
+                $cch       = mb_strlen($format, "UTF-16LE");
+            }
+            else
+                $cch       = strlen($format);             // Length of format string
             $length    = 5 + strlen($format);      // Number of bytes to follow
-            $encoding = 0x0;
+            $encoding = 0x1;
         } elseif ($this->_BIFF_version == 0x0500) {
             $length    = 3 + strlen($format);      // Number of bytes to follow
+            $cch       = strlen($format);             // Length of format string
         }
-
-        $cch       = strlen($format);             // Length of format string
-
+        
         $header    = pack("vv", $record, $length);
         if ($this->_BIFF_version == 0x0600) {
             $data      = pack("vvC", $ifmt, $cch, $encoding);
@@ -1038,7 +1068,7 @@
         }
         $this->_append($header . $data . $format);
     }
-
+    
     /**
     * Write DATEMODE record to indicate the date system in use (1904 or 1900).
     *
diff -Nur Spreadsheet_Excel_Writer-0.9.1.orig/Writer/Worksheet.php Spreadsheet_Excel_Writer-0.9.1/Writer/Worksheet.php
--- Spreadsheet_Excel_Writer-0.9.1.orig/Writer/Worksheet.php  2006-09-27 02:17:38.000000000 +0800
+++ Spreadsheet_Excel_Writer-0.9.1/Writer/Worksheet.php  2008-06-21 14:46:44.177486354 +0800
@@ -1230,7 +1230,7 @@
     */
     function _XF(&$format)
     {
-        if ($format) {
+        if (is_object($format)) {
             return($format->getXfIndex());
         } else {
             return(0x0F);
@@ -1514,10 +1514,10 @@
     */
     function setInputEncoding($encoding)
     {
-         if ($encoding != 'UTF-16LE' && !function_exists('iconv')) {
-             $this->raiseError("Using an input encoding other than UTF-16LE requires PHP support for iconv");
+         if (!function_exists('mb_convert_encoding') || !function_exists('mb_strlen')) {
+             $this->raiseError("Using an input encoding requires PHP support for mb_convert_encoding() and mb_strlen()");
          }
-         $this->_input_encoding = $encoding;
+         $this->_input_encoding = strtoupper($encoding);
     }
 
     /**
@@ -1537,15 +1537,11 @@
     */
     function writeStringBIFF8($row, $col, $str, $format = null)
     {
-        if ($this->_input_encoding == 'UTF-16LE')
-        {
-            $strlen = function_exists('mb_strlen') ? mb_strlen($str, 'UTF-16LE') : (strlen($str) / 2);
-            $encoding  = 0x1;
-        }
-        elseif ($this->_input_encoding != '')
+        if ($this->_input_encoding != '')
         {
-            $str = iconv($this->_input_encoding, 'UTF-16LE', $str);
-            $strlen = function_exists('mb_strlen') ? mb_strlen($str, 'UTF-16LE') : (strlen($str) / 2);
+            if ($this->_input_encoding != 'UTF-16LE')
+                $str = mb_convert_encoding($str, 'UTF-16LE', $this->_input_encoding);
+            $strlen = mb_strlen($str, 'UTF-16LE');
             $encoding  = 0x1;
         }
         else
@@ -1789,6 +1785,40 @@
     }
 
     /**
+     * Write a formula to the specified row and column (zero indexed).
+     * For the packed binary string representation of the formula.
+     *
+     * Returns  0 : normal termination
+     *         -2 : row or column out of range
+     *
+     * @access public
+     * @param integer $row     Zero indexed row
+     * @param integer $col     Zero indexed column
+     * @param binary  $formula The formula binary string
+     * @param mixed   $format  The optional XF format
+     * @return integer
+     */
+    function writeFormulaBin($row, $col, $formula, $format = 0)
+    {
+        $record    = 0x0006;     // Record identifier
+        $xf        = $this->_XF($format); // The cell format
+        $num       = 0x00;                // Current value of formula
+        $grbit     = 0x03;                // Option flags
+        $unknown   = 0x0000;              // Must be zero
+        
+        // Check that row and col are valid and store max and min values
+        if ($this->_checkRowCol($row, $col) == false) return -2;
+        
+        $formlen    = strlen($formula);    // Length of the binary string
+        $length     = 0x16 + $formlen;     // Length of the record data
+        $header    = pack("vv",      $record, $length);
+        $data      = pack("vvvdvVv", $row, $col, $xf, $num,
+                          $grbit, $unknown, $formlen);
+        $this->_append($header . $data . $formula);
+        return 0;
+    }
+
+    /**
     * Write a hyperlink.
     * This is comprised of two elements: the visible label and
     * the invisible link. The visible label is the same as the link unless an
@@ -2606,8 +2636,13 @@
         $str      = $this->_header;       // header string
         $cch      = strlen($str);         // Length of header string
         if ($this->_BIFF_version == 0x0600) {
-            $encoding = 0x0;                  // TODO: Unicode support
-            $length   = 3 + $cch;             // Bytes to follow
+            if ($this->_input_encoding != 'UTF-16LE') 
+                $str = mb_convert_encoding($str, "UTF-16LE", $this->_input_encoding);
+            $cch = mb_strlen($str, "UTF-16LE");
+            $encoding = 1;
+            $length   = 3 + $cch * 2;             // Bytes to follow
+            //$encoding = 0x0;                  // TODO: Unicode support
+            //$length   = 3 + $cch;             // Bytes to follow
         } else {
             $length  = 1 + $cch;             // Bytes to follow
         }
@@ -2634,8 +2669,11 @@
         $str      = $this->_footer;       // Footer string
         $cch      = strlen($str);         // Length of footer string
         if ($this->_BIFF_version == 0x0600) {
-            $encoding = 0x0;                  // TODO: Unicode support
-            $length   = 3 + $cch;             // Bytes to follow
+            if ($this->_input_encoding != 'UTF-16LE')
+                $str = mb_convert_encoding($str, "UTF-16LE", $this->_input_encoding);
+            $cch = mb_strlen($str, "UTF-16LE");
+            $encoding = 1;
+            $length   = 3 + $cch * 2;             // Bytes to follow
         } else {
             $length  = 1 + $cch;
         }

這個 patch 可以由這兒抓取: http://www.teatime.com.tw/~tommy/mypatch/Spreadsheet_Excel_Writer-0.9.1-unicode-2.patch

經過這兩個的處理之後, 使用時只要在 setVersion 的第二個參數指定目前使用的編碼, 如下:

<?php
 
require_once('Spreadsheet/Excel/Writer.php');
 
$workbook = new Spreadsheet_Excel_Writer();
$workbook->setVersion(8, 'utf-8');
$worksheet =& $workbook->addWorksheet('test 測試 1243');
$worksheet->setInputEncoding('utf-8');
 
$x = 0;
$y = 0;
$worksheet->write($x, $y++, '群組');
$worksheet->write($x, $y++, '報表月份');
$worksheet->write($x, $y++, '應發獎金');
 
$worksheet->hideGridLines();
$worksheet->setHeader('Header 測試');
$worksheet->setFooter('Footer 測試');
 
$workbook->send('test.xls');
$workbook->close();
 
exit;

上頭的例子, 在我這兒是可以產生正確的 excel 檔案.

在 pear 的 bug 列表中, bug 1572 並不是 open 狀態, 也許是因為這個原因, 所以這個 patch 存在了好幾年, 這之間也有 release 過新的版本, 但是一直都未納入這個 patch. 不過... 我也懷疑這個 class 是不是還有人在維護, 畢竟經過快兩年了, 都沒有任何的異動. 不管如何, 我重新 open 了一個 bug 14203, 把這兩個 patch 都放進去, 希望維護者能在下一個版本把這個問題修正吧. 在這之前, 要使用的人就自己動手做吧.

PHP chmod() 慘案

Wed, 28 May 2008 09:56:26 +0800

話說前一陣子在 php 裡頭用到了 chmod 這個函式, 依據以往在 linux 下頭使用 chmod 指令的經驗, 加上使用 php 時, 並沒有做型別檢查的功能, 很自然的就會認為這個函式如同其他 php 的函式一般, 可以用數字也可以用字串來表示要更改的屬性. 而且, 的確在一開始的使用上, 做一些 o+w 或 o-w 之類的動作時, 都十分的正常, 一點都沒有懷疑這會有問題.

不過... 前幾天碰到了一個 g+s 的動作, 發現.... 一跑到這兒, 整個屬性反而被改成 000 了, 也就是被清空了. 這是怎麼回事呢?

想了很久, 也測了一些寫法, 最後, 終於在官方的 chmod 說明中看到, 這個 mode 參數, 只能是整數, 對於前述的字串參數來說, 是不對的. (說到這兒, 既然不允許, 是不是應該全部都失敗會比較好一些, 不要讓人誤以為可以使用, 結果... 只有某些情形下會不能用)

回頭把程式改了一下, 先取出屬性再做一堆 OR 運算, 自己弄出類似的結果, 然後再去把屬性改成自行運算後的結果, 這樣子果然就正常了. 有用到 chmod 的人, 自己注意一下吧.

透過 php 更改 ldap 的密碼

Thu, 06 Mar 2008 19:14:28 +0800

一般來說, 我們在使用 php 去檢查使用者的帳號密碼時, 都是直接用該組帳號密碼去執行 ldap_bind() 的動作, 如果成功的話, 表示密碼是對的, 如果失敗的話, 表示密碼是錯的. (唯一的例外是... 如果密碼是空字串, 也會成功, 所以用這個方法要先檢查密碼是不是空的) 如:

if ($password !== '' && ldap_bind($id, "uid=$user,dc=example,dc=com", $password))
    echo "password correct!\n";
else
    echo "wrong password!\n";

但是, 如果要修改密碼時, 又該如何呢? 我們可以用下面的方式:

if (ldap_mod_replace($id, "uid=$username,dc=example,dc=com", 
        array('userpassword' => "{MD5}".base64_encode(pack("H*",md5($newpass)))
    echo "succeded\n";
else
    echo "failed";

就是先用該使用者 (或有權限改密碼的帳號) bind 之後, 去更改 userpassword 這個屬性. 使用 md5 的方式去設定密碼.

phpmsnclass v1.8

Sun, 11 Nov 2007 10:13:13 +0800

更新 phpmsnclass 版本為 1.8.

異動記錄:

修正 sendMessage() 中的 $re_login undefined 錯誤.
忽略所有 text/x- 與 application/x- 的訊息, 只處理已知的訊息.
修正在收到 NS 送來的 XFR 訊息, 要求重新連線時, 會重送前一個訊息的問題.
修正 $hdr_TotalDataSize1 與 $hdr_TotalDataSize2 undefined 的錯誤.
新增個人訊息 (PSM) 的支援.
修改 doLoop() 的參數, 改用陣列來傳送參數, 方便以後新增參數時的處理.
有多個收件者時, 不再使用群組發送的方式, 改為每個收件者使用獨立的 switchboard 來處理.
sendMessage() 的 $aTo 參數, 如果只有一個收件者時, 允許使用字串而非陣列.
修正接收到 Yahoo 訊息的換行問題.
訊息大小 (含檔頭) 目前已經被限制為 1664 (WLM) 位元組與 518 (YIM) 位元組. 超過這個大小時, 可能會有錯誤, 而收件者也無法收到訊息. 如果有大於這個限制的訊息, 會分開傳送. (不過 YIM 在接收時, 有時順序會與發送順序不一樣)

檔案請到 Google Code 抓取.

FPDF UTF-8 簡繁中文支援

Sat, 20 Oct 2007 12:49:08 +0800

以前, 在 FPDF 的中文支援中, 並不支援 UTF-8 編碼, 所以每次要產生 pdf 檔案時, 都要用 iconv 轉成 BIG5 或 GB 來使用. 如果同一段文字有簡體也有繁體時, 這個轉換就會有問題 (不過還好我們之前的案子, 還沒碰到這個問題, 系統把兩種編碼分開來用, 並沒有衝突的情形發生). 後來, 有人改了一個 unicode 版本的 FPDF, 雖然有支援 UTF-8 了, 但是... 作法是把字型檔也整個編入 pdf 檔案中, 結果.... 是可以使用沒錯, 但是... 原本幾 KB 的 pdf 檔案, 變成幾 MB, 根本沒有實用性.今天, 閒閒在網路上逛, 不小心看到有人弄出了一個 unicode 的中文支援, 趕快把 chinese-unicode.zip (放了一份在我這兒) 抓下來使用, 果然可以正確的產生簡繁共存的 UTF-8 編碼的 PDF 檔案, 檔案也是小小的一個. 雖然其他的語言的 UTF-8 的字不能用, 不過... 至少中文是沒有問題的.