Tommy 碎碎念

SPBW2S2U2 讓 S2U2 可以使用 SPB Weather 2 的天氣資料

Sat, 07 Nov 2009 23:27:12 +0800

S2U2 對於 SPB Weather 的支援只有到 1.x 的版本. 而 SPB 的討論區裡頭雖然有說到要支援 S2U2, 不過... 也不知道什麼時候才會支援. 所以... 我就動手寫了這個小程式來使用.

檔案放在 http://www.teatime.com.tw/~tommy/files/SPBW2S2U2.7z 　

首先... 你的 S2U2 必須在天氣插件那兒設定為 UserWeather, 然後執行 SPBW2S2U2.exe 就可以了. 你可以把 SPBW2S2U2.exe 放到 Windows\啟動的目錄下, 每次開機自動執行就可以. 如果要離開程式, 只要再執行一次就可以.

程式只在 Samsung i8000 的 Windows Mobile 6.1 中測試過, 不保證不會有問題. 用的人自己小心吧, 本人對使用本程式造成的任何損失均不負責.

程式碼附在裡頭, 要修改的可以自行修改. 至於授權方式? 就當是 public domain 的東西吧, 本人放棄所有權利, 你高興怎麼用這程式或程式碼都可以.

至於 SPBW2S2U2 的參數, 是放在 HKCU\Software\TeaTime\SPBW2S2U2 底下:

Debug (DWORD):
預設值為 0.
如果是非 0 的值, 會產生 \SPBW2S2U2_log.txt 的記錄檔, 以方便除錯.

UseCelsius (DWORD):
預設值為 1.
0 表示使用華氏, 非 0 表示使用攝氏.

DeleteCacheFile (DWORD):
預設值為 1.
非 0 的值會在讀取 SPB Weather 2 的 Cache 檔案後, 把該檔案刪除.

WaitAfterChanged (DWORD):
預設值為 10.
在偵測到 SPB Weather 2 的 Cache 目錄有更改時, 要暫停的秒數.

CheckInterval (DWORD):
預設值為 0.
如果你的 SPB Weather 2 並不會自動更新 (好像沒有執行時就不會自動更新?), 可以利用這個參數, 讓 SPBW2S2U2 自動透過 internet 去讀取資料來更新 (必須在已經有 internet 連線的情況下). SPBW2S2U2 會在這個設定的秒數之後, 檢查是否有網路連線, 然後去更新資料.

CheckConnectionTimeout (DWORD):
預設值為 5.
檢查是否有 internet 連線的秒數.

2009/11/08:

更新一下程式, 修正無法刪除自動抓取的暫存檔案所造成自動更新只有第一次有作用的問題.
之前有抓過的請自己重抓吧.

2009/11/08 13:33:13:

更新一下程式, 自動更新時, 強迫系統重新抓取檔案, 不要使用快取的資料.
之前有抓過的請自己重抓吧.

2009/11/09

如果需要 .cab 的安裝檔, 可以到這兒抓: http://www.teatime.com.tw/~tommy/files/SPBW2S2U2.CAB

取消 Windows Mobile 來電鈴聲延遲 3 秒的問題

Sun, 25 Oct 2009 13:34:32 +0800

最近換了一隻 Windows Mobile 的手機, 發現來電鈴聲會延遲3秒才開始響起. 雖然網路上有找到一些文章, 只要去修改 HKCU\ControlPanel\Sounds\RingTone0\Script 的值, 把裡頭的 w3 移除就可以. 不過... 每次修改設定就必需要再修改一次. 所以... 就動手寫了這個小程式來處理.

檔案放在 http://www.teatime.com.tw/~tommy/files/RingDelayRemover.7z

只要把 RingDelayRemover.exe 放到 Windows\啟動的目錄下, 每次開機自動執行就可以. 如果要離開程式, 只要再執行一次就可以.

這個程式只是用來監看上頭的 key 值, 如果有任何更改就會把 w3 (只要是 wN 都會移除) 移除, 就不用每次都要手動去改了.

程式只在 Samsung i8000 的 Windows Mobile 6.1 中測試過, 不保證不會有問題. 用的人自己小心吧, 本人對使用本程式造成的任何損失均不負責.

程式碼附在裡頭, 要修改的可以自行修改. 至於授權方式? 就當是 public domain 的東西吧, 本人放棄所有權利, 你高興怎麼用這程式或程式碼都可以.

修正這兩天 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 抓取.

修正 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 更改 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 的方式去設定密碼.

Dialogic 在 Linux 上使用 ISDN 的設定

Sat, 02 Feb 2008 16:26:16 +0800

在上一篇文章提到了一些在 Dialogic 上頭使用 ISDN 要注意的事項. 不過原本用來測試的平台是用 Windows, 最近系統要上線使用前, 為了方便起見, 我們還是決定轉到 Linux 上頭使用.

在 Linux 上頭, 並沒有如同 Windows 一樣, Dialogic 有個專用的設定程式會自己抓取上頭安裝的語音卡, 只能用個 mkcfg 的指令一個個來選擇支援的型號. 而在 ISDN 上頭, 這個 mkcfg 指令並沒有任何相關的設定, 就只能自己去改 /usr/dialogic/cfg/dialogic.cfg 這個設定檔的內容了.

以我們使用的 E1 ISDN 來說, 通常都是使用 CTR4 這個歐規的協定. 除了前一篇文章所提到的 CRC 設定外, 要自己在 dialogic.cfg 加上 ISDNProtocol 的設定 (網路上看到的還需要 ParameterFile 設定) 才可以. 如果有兩個 port, 要分別設定, 第二個 port 是使用 ISDNProtocol2 與 ParameterFile2 的設定.

以我們所使用的 D/600JCT-2E1 來看, 目前的設定如下:

[Genload - All Boards]
LogFile=genload.log
BusType=SCBus
SCBusClockMaster=AUTOMATIC
SCBusClockMasterSource=AUTOMATIC
PCMEncoding=ALAW
 
[Genload - PCI ID 0] /* Dual T1/E1 PCI HD */
ISDNProtocol=CTR4
ParameterFile=spandti.prm
ISDNProtocol2=CTR4
ParameterFile2=spandti.prm

我試過網路上頭查到的另一種設定如下:

[Genload - All Boards]
LogFile=genload.log
BusType=SCBus
SCBusClockMaster=AUTOMATIC
SCBusClockMasterSource=AUTOMATIC
PCMEncoding=ALAW
 
[Genload - PCI ID 0] /* Dual T1/E1 PCI HD */
ISDNProtocol=CTR4
ParameterFile=ctr4.prm
ISDNProtocol2=CTR4
ParameterFile2=ctr4.prm

這兩種方式, 在我們的機器上頭, 結果都一樣, 都可以正常使用.

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 的字不能用, 不過... 至少中文是沒有問題的.