Silent Melody

WGet 2.8.2 (patch 8)

2012-02-02T17:14:00.006+08:00

Bugs Fixed

修正 wretch 密碼相簿無法下載
修正部分 wretch 相簿無法下載
修正部分 pchome 相簿無法下載、漏列出相簿

Tcl TLS + Nginx SSL

2011-12-15T18:41:00.000+08:00

使用 tcl http + tls 從 nginx 取得資料。根據之前的經驗

package require http
package require tls
http::register https 443 ::tls::socket
set tok [::http::geturl "https://192.168.72.77/index.html"]

結果出現錯誤...

error reading "sock580": software caused connection abort
SSL channel "sock580": error: tls invalid ecpointformat list

用 tls 試看看，出現相同的錯誤...

set sck [tls::socket 192.168.72.77 443]
tls::handshake $sck

看起來在 handshake 就掛了，google 不到相關資料。奇怪的是 http server 改成 apache 後就沒問題，害我一開始花不少時間研究 nginx 的 ssl 設定。最後的解決方法有：
1. tls enable tls1

http::register https 443 [list ::tls::socket -tls1 1]
set tok [::http::geturl "https://192.168.72.77/index.html"]

2. 別用 tls 1.6.1 (怒)，另一台電腦上用的是 tls 1.6 就沒問題

Tcl exec run as administrator

2011-12-13T12:18:00.000+08:00

有些需要管理者權限的命令無法用 exec 執行，例如設定 ip

% exec netsh interface ipv4 add address 10 192.168.0.222
要求的作業需要提高的權限 (以系統管理員身分執行)。
child process exited abnormally

使用 twapi 的 shell_execute 加上 -verb runas 解決

::twapi::shell_execute -path "c:/windows/system32/netsh.exe" -params "interface ipv4 delete address 10 192.168.0.222" -verb runas

CKEditor + KCFinder 筆記

2011-10-26T16:28:00.001+08:00

CKEditor 的 config.js 中加入

config.filebrowserBrowseUrl = 'lib/kcfinder/browse.php?type=files';
config.filebrowserImageBrowseUrl = 'lib/kcfinder/browse.php?type=images';
config.filebrowserFlashBrowseUrl = 'lib/kcfinder/browse.php?type=flash';
config.filebrowserUploadUrl = 'lib/kcfinder/upload.php?type=files';
config.filebrowserImageUploadUrl = 'lib/kcfinder/upload.php?type=images';
config.filebrowserFlashUploadUrl = 'lib/kcfinder/upload.php?type=flash';

KCFinder 的 config.php 設定 session，user 登入後再設定 $_SESSION['mysite']['KCFINDER']['disabled'] = false;

'_sessionVar' => &$_SESSION['mysite']['KCFINDER'],

要放在 jQuery UI 的 dialog 中時忘記遇到什麼問題，後來改成在 dialog open 時才將 ckeditor 載入，dialog close 時再清掉。

$("#dialog-news").dialog({
  open: function () {
    $(this).find('textarea').ckeditor({height:360});
  },
  close: function () {
    $(this).find('textarea').val('').ckeditorGet().destroy();
  }
});

嵌入 KCFinder (例如按下某個 button 後跳出 KCFinder browser 的視窗，選擇檔案後返回)

$('#dialog-news button[name="attach"]').click(function(){
  window.KCFinder = {
    callBack: function(url) {
      window.KCFinder = null;
        $('#dialog-news input[name="link"]').val('.'+url);
      }
    };
  window.open('lib/kcfinder/browse.php?type=files&dir=files/attachment', 'kcfinder_textbox',
    'status=0, toolbar=0, location=0, menubar=0, directories=0, ' +
    'resizable=1, scrollbars=0, width=800, height=600'
  );
  return false;
});

KCFinder 上傳檔案改成 time stamp 加檔名，修改 core/uploader.php 中 public function upload()

$filename = date('YmdHis') . '-' . $this->normalizeFilename($file['name']);
  $target = file::getInexistantFilename($dir . $filename);

WGet 2.8.2 (patch 7)

2011-10-15T17:54:00.000+08:00

Bugs Fixed

修正 moko、pixnet 問題

WGet 2.8.2 (patch 6)

2011-08-04T12:52:00.000+08:00

Bugs Fixed

修正 pixnet 新版面抓取與分析錯誤問題

WGet 2.8.2 (patch 5)

2011-03-30T17:50:00.000+08:00

WGet 2.8.2 (patch 5)

Bugs Fixed

修正 pchome 部分相簿會導致 wget 當掉
修正 pchome 部分相簿列出不完整
修正 xuite 相簿全為密碼相簿時無法列出
修正 yam 帳號含大寫字母的相簿無法下載

WGet 2.8.2 (patch 4)

2011-03-11T15:56:00.000+08:00

WGet 2.8.2 (patch 4)

Bugs Fixed

修正部分 yam 相簿無法瀏覽與下載
修正 pixnet 新版面抓取與分析錯誤問題
修正 pixnet 新版面項目ID與原本不同造成重複下載問題
修正 pixnet 使用專屬網址之帳號無法下載

Notes

pixnet 新版面目前僅針對有回報錯誤的帳號測試，不保證全部帳號都沒問題，遇到有問題的請留言告知。

用 TreeCtrl 做 notebook widget

2011-03-03T13:54:00.000+08:00

和上一篇的 menu widget 一樣，因為 ttk::notebook 太醜，且 tab 那行不能再放其他的 widget，只好又自己用 TreeCtrl 打造。本來想說要做 tab 並不難，定義好 tab 的 element 和 style，每個 tab 當做一個 tree item 即可，不過我想要做的是像 FireFox 3.6 一樣的 tab，花了不少時間才搞定。

tab 的底線部分：selected 的 tab item 可以用 open s，其他的 tab item 就完整 outline，但是沒有 tab 的地方也要有底線。很不幸的是 tree widget 能夠設定 border，但和其他的 widget 一樣不能指定哪些方向要有 border。我想到的解法是用貼底圖的方式，先建立一個 1x1 的灰色圖形，用 -bgimage 指定，並設定 -bgimageanchor s -bgimagetile x，這樣就可以在 tree widget 的底部畫出一條線。

與 tab 同行的 widget：直覺得想法是放一個 item，其 style 是由 window element組成，但有個麻煩的地方是這個 item 寬度必須塞滿全部剩餘的空間。目前還不知道如何抓到 item 的寬度，只能每次 resize 時用 tree 寬度減掉固定寬度的 tab 算出來再更新 item 寬度，不過這太麻煩了不考慮。另一個想到的是在其中放一個超長字串的 text element 並設定成 -draw flase，靠這字串去把寬度撐開，有興趣的可以試看看可不可行。我最後採用的是用兩個 tree widget 來做，tree2 固定寬度，tree1 塞滿 x，目前看起來還沒什麼大問題。

WGet 2.8.2 (patch 3)

2011-03-02T02:53:00.000+08:00

WGet 2.8.2 (patch 3)

Bugs Fixed

修正部分 moko 相簿無法找出全部相簿
修正部分 moko 相簿無法顯示相簿縮圖
修正 xuite 相簿中最後一張無法抓到
修正 pixnet 新版面無法列出超過 240 張

FotoPlus features preview

2011-02-24T00:28:00.000+08:00

目前只有假日能寫，照這進度大概得半年後才能寫完吧。寫好的部份會先放上，有什麼意見歡迎提出來討論。

update: 2011/03/02

工具列：提供兩種相簿輸入方式 1.直接貼上相簿相關網址 2.手動指定網站類型，在網址列輸入帳號。

相簿瀏覽：還沒決定要採固定大小正方形或是照原比例大小顯示縮圖

WGet 2.8.2 (patch 2)

2011-02-24T00:10:00.000+08:00

WGet 2.8.2 (patch 2)

Bugs Fixed

修正 moko 部分帳號無法下載問題

用 TreeCtrl 做 menu widget

2011-02-21T21:25:00.000+08:00

Tile 中沒有 menu，Tk 的 menu 又太"老氣"，只好自己打造了。左邊是 Tile menubutton + Tk menu，右邊是 Tile label + TreeCtrl。做法是建立一個 toplevel，裡面放 tree，然後 bind 一堆 event 追蹤... 有時間再寫成 package 用起來會比較方便。

以下是大概的 TreeCtrl code

$tree state define HOVER
$tree state define OPENW
$tree state define OPENE
       
$tree column create -tag cIcon
$tree column create -tag cName -expand 1
 
$tree element create elemIcon image -image [$ibox get favicon-wretch]
$tree element create elemName text  -justify left
$tree gradient create grdHover -steps 4 -stops {{0.0 white} {1.0 #ebf3fd}} -orient vertical    
$tree element create elemRect rect -fill [list  grdHover HOVER]  
$tree element create elemRectOutline rect -rx 1 -outline [list #b8d6fb HOVER] \
  -open [list w OPENW e OPENE]  -outlinewidth 1    
$tree element create elemBorder rect -outline "#e2e3e3" -open nws  -outlinewidth 1
$tree element create elemBorderS rect -outline "#ffffff" -open nws  -outlinewidth 1 

# column icon 
set sty [$tree style create styIcon -orient horizontal]
$tree style elements $sty {elemRect elemBorder elemBorderS elemRectOutline elemIcon}
$tree style layout $sty elemRect -detach 1 -padx {2 0}  -iexpand xy
$tree style layout $sty elemRectOutline -detach 1 -iexpand xy
$tree style layout $sty elemBorder -detach 1 -iexpand y -padx {27 0}
$tree style layout $sty elemBorderS -detach 1 -iexpand y -padx {28 0}
$tree style layout $sty elemIcon -padx {6 2} -pady {2 3} -iexpand ns

# column name
set sty [$tree style create styName]
$tree style elements $sty {elemRect elemRectOutline elemName}
$tree style layout $sty elemRect -detach yes -padx 0 -iexpand xy
$tree style layout $sty elemRectOutline -detach yes -iexpand xy
$tree style layout $sty elemName -padx 6 -pady {2 3} -squeeze x -expand ns

set nsList [list moko wretch pchome pixnet xuite yam]
foreach i $nsList  {
  set item [$tree item create -parent 0]
  $tree item style set $item 0 styIcon 1 styName
  $tree item element configure $item 0 elemIcon -image [$ibox get favicon-$i]
  $tree item element configure $item 1 elemName -text $i
}
  
$tree item state forcolumn all 0 "OPENE"
$tree item state forcolumn all 1 "OPENW"

目前還遇到一個難題，就是沒有辦法做出 menu 陰影效果。

WGet 2.8.2 (patch 1)

2011-02-19T04:35:00.000+08:00

WGet 2.8.2 (patch 1)

Bugs Fixed

修正 pixnet 新版(?) VIP 帳號無法下載問題
修正 pixnet 影片無法下載問題
改善 pixnet 列出包含影片的相簿速度，新版比原本快 10 倍

Notes

請提供 pixnet 上類似 http://princamille.pixnet.net/album 版面的相簿給我測試。

WGet 2.8.2 release notes

2011-02-17T22:25:00.000+08:00

WGet 2.8.2 (2011/02/17)

Bugs Fixed

修正部份操作問題
修正部分 moko 相簿下載問題

New Features

支援 yam 相簿

Notes

yam 相簿並無大量測試，遇到無法抓取的帳號請回報。

Known Problems

剛發布新版就發現 pixnet 有新版面... 目前部分 pixnet 無法列出相簿，請待 patch。

WGet 2.8.1 release notes

2011-02-16T17:38:00.000+08:00

WGet 2.8.1 (2011/02/16)

Bugs Fixed

修正部分 pixnet相簿下載問題
修正 wretch 抓取原圖問題

New Features

支援 moko 相簿 (www.moko.cc)

Notes

moko 目前並不打算長期支援，以後將視其改版頻率決定。
因 moko 圖片無名稱欄位，檔名一律使用項目 ID，目錄名稱則可由選項中的命名規則選擇。
有些看圖軟體不支援 unicode，簡體中文的目錄名稱可能無法使用，可將命名規則改成項目ID。
因 moko 連線速度較慢，顯示相簿列表時請耐心等待。
moko 相簿並無大量測試，遇到無法抓取的帳號請回報。

Tcl 存取 Firefox 書籤

2011-02-13T16:56:00.000+08:00

Firefox 關於網址的記錄都存放在 places.sqlite 中，此檔案為 sqlite3 資料庫，檔案位置

Linux
/home/<user>/.mozilla/firefox/<profile>/
Win XP
C:\Documents and Settings\<user>\Application Data\Mozilla\Firefox\Profiles\<profile>\
Vista / Win7
C:\Users\<user>\AppData\Roaming\Mozilla\Firefox\Profiles\<profile>\

其中的 <profile> 格式為 "亂數.default"，例如 dhyt3gd2.default，Schema 參考 The Places database。

以下範例是讀出書籤中 wretch 與 xuite 網址，將使用者 id 與網站類型語名稱存入 array 。(註: 當 Firefox 正在執行時會 lock db，須先將其複製到 temp 後再存取)

package require sqlite3

set dirList [glob -directory [file join $::env(home) AppData/Roaming/Mozilla/Firefox/Profiles] -type d *]
foreach dir $dirList {
  set fBookmark [file join $dir places.sqlite]
  if { [file exists $fBookmark]  == 0 } { unset fBookmark }
}

if [info exists fBookmark] {
  set fDb [file join $::env(home) .wget bookmarkFF.db]
  file copy -force $fBookmark $fDb
  array set bookmarkList ""

  db eval {SELECT url, moz_bookmarks.title FROM moz_places, moz_bookmarks \
                WHERE moz_places.id = moz_bookmarks.fk and \
                (url like '%www.wretch.cc%' or url like '%xuite.net%')} result {
    regexp {http://([\w.]+)} $result(url) -> host
    foreach t {wretch xuite} {
      if {[string first $t $host] != -1} {
        set type $t
        break
      }
    }
    set uid ""
    switch $type {
      wretch {
        regexp {http://[\w.]+/[\w]+/([\w]+)} $result(url) -> uid
      }
      xuite {
        regexp {http://[\w.]+/([\w.]+)} $result(url) -> uid
      }
      set bookmarkList($type,[string tolower $uid]) $result(title)
    } 
  }
}
db close

jQuery image slider 與 IE 半透明 png

2011-02-12T02:15:00.000+08:00

手上有個網頁要做到許多張圖片輪撥 (slider)，圖片陰影部分是半透明，我使用 jQuery 的 fadeIn 和 fadeOut 來做這效果，寫好後用 FF 和 Chrome 看都沒問題，但是 IE 在淡入淡出時半透明的陰影會變成全黑，最後發現要在 img 加上和背景相同的背景顏色才能正確顯示 . . .

範例：js

$(document).ready(function(){
  //載入圖片 01~20.png
  var photoCnt = 20;
  var img = "";
  for (var i = 1; i <= photoCnt; i++){
    img = (i<=9)?'':'';
    $('#slide-photo').append(img);
  }
  $('#slide-photo img:first').show().addClass("active first");
  $('#slide-photo img:last').addClass("last");  
  //開始播放
  var ival = setInterval(function() {
    var active = $('#slide-photo img.active');
    var next = (active.hasClass("last"))?$('#slide-photo img:first'):active.next();
    active.fadeOut(500,function(){
      active.removeClass('active');
      next.addClass('active').fadeIn(500);
    });
  }, 3000);
});

css

#slide-photo {background-color: #0abab5;}
#slide-photo img {width: 445px; background-color: #0abab5; display: none;}

因為美編交給我的網頁中輪播的圖片不能用絕對定位 (position:absolute)，所以在這個範例必須要淡出後隱藏才能顯示下一張再淡入，比較漂亮的做法是用絕對定位，要淡出的 z-index 降低，要淡入的 z-index 增加。

Tk fullscreen

2011-02-10T00:48:00.000+08:00

方法一

wm overrideredirect . 1
wm geometry . [winfo screenwidth .]x[winfo screenheight .]+0+0
wm attributes . -topmost 1

方法二 (Tk 8.5)

wm attributes . -fullscreen 1 -topmost 1

最近寫的一個程式要透過 optcl 抓 ie 來全螢幕顯示網頁，進入全螢幕時隱藏 toolbar，跳離全螢幕後顯示 toolbar。因為在全螢幕下 tk 沒辦法抓到 ie 的 event，所以設計成全螢幕時將 toolbar 高度改為1，然後在上面 bind event。以下是簡單的範例，按下放大視窗按鈕會全螢幕，在最底下滑鼠左鍵點兩下會跳離全螢幕。(註: 因 wm protocol 中沒有視窗放大的 protocol，這裡採用 bind Configure event 並判斷視窗目前狀態是否為 zoomed 來偵測按下視窗放大按鈕的動作。)

package require optcl

optcl::new -window .fmeBrowser "http://www.google.com"
frame .fmeSub -bd 0 -relief groove -height 1 
pack .fmeBrowser -fill both -expand 1
pack .fmeSub -fill x 

bind .fmeSub <Double-1> {
  wm state . normal
}

bind . <Configure> {
  if { "%W" eq [winfo toplevel "%W"] &&  [wm state . ] eq "zoomed"} {
    wm attributes . -fullscreen 1 -topmost 1
  } else {
    wm attributes . -fullscreen 0 -topmost 0
  }
}

如果要塞滿多顆螢幕的時候會發現用方法二只能在一顆螢幕上全螢幕顯示，此時得先抓出全部的長寬再用 wm geometry 設定。以下是用 twapi 取得各螢幕的位置後再拿最右和最下的值當作長寬，如果事先已知道執行時螢幕的總長寬也可以寫成變數比較簡單。

package require twapi

foreach display [::twapi::get_multiple_display_monitor_info] {
  lappend listx [lindex [lindex $display 1] 2]
  lappend listy [lindex [lindex $display 1] 3]
}

wm overrideredirect . 1
wm geometry . [lindex [lsort $listx] end]x[lindex [lsort $listy] end]+0+0
wm attributes . -topmost 1

台語輸入 jQuery Plugin

2011-02-01T00:48:00.000+08:00

參考自台語信望愛教羅台羅轉碼工具，目前僅支援台羅輸入。

todo：還很多...

download：Taigi Input jQuery Plugin v0.1

範例 js

$(document).ready(function(){
    $('input[type="text"]').taigiInput();
    $('textarea').taigiInput();
});

html

輸入 Tai5-oan5 Lo5-ma2-ji7 的結果

IBM ThinkPad T42 風扇維修

2011-01-30T16:45:00.000+08:00

用了五年多的 T42 因風扇卡太多灰塵，除了聲音大外有時會因為轉不起來出現 Fan Error 而無法開機。拆開來看到風扇和散熱片是用鉚釘接在一起的，沒辦法輕易的清理和上油。網拍上一組風扇含散熱片約 1~2000，單風扇約 350，對於一台老機來說實在是不划算。

只好自己拆了... 參考驚險！ThinkPad風扇加油換芯片全過程，手上的銼刀是做鋼普拉用的，拿來銼鉚釘應該會壞掉，試著用手鑽試看看，想不到轉沒幾圈就 ok 了。

拆開後用酒精把風扇清乾淨，上了風扇專用軸承油，開機後很安靜，風量也不錯。看來這台小黑還可以再戰幾年。

關於 Eizo 螢幕

2011-01-25T21:08:00.000+08:00

說一下最近買 Eizo 螢幕的心得，主要是 S-PVA 面板的機種。

一、亮(色)度不均：看 PTT LCD 板上有人說他買的 S2243 左偏紅右偏綠，不知道這是因為每個人的眼睛敏銳度不同還是單純的買到機王? 我買了 S2233 發現左邊 1/3 很明顯的比較暗，要亮度 80+ 對比 50+ 才比較不明顯，但這亮度看沒幾分鐘眼睛就感覺要瞎了。店家說法是亮度先開 100 熱機過後就好了，且賣過這麼多台沒聽客人抱怨過這問題。我用了一天感覺還是很嚴重，畢竟這台也要兩萬多，Dell 亮度不均還可以無視，Eizo 則是會越看越 X。雄浪的說法是本來就會亮度不均，只要在原廠規範的誤差內都是合格的，要我報修送回測試才知道。我說手上三台 L568 (PVA面板) 用起來就完全沒這問題，他說現在如果要亮度均勻的話得買有 DEU 的機種。又去店家仔細看展示的 FX2431 亮度是調 100，降到 50 後很明顯的左邊暗一塊。

二、眼睛疲勞：這點很確定是個人眼睛問題。很不幸我的眼睛跟這篇高解像度ワイド液晶ディスプレイ選び的作者一樣，對我來說舒適度 Eizo L568 (PVA) > Dell 2209WA (e-IPS ) >>> Eizo S2233 (S-PVA)，不知道該怎麼形容，即使亮度調低看一小時眼睛就會覺得酸痛。

原本對 Eizo 的印象一直停留在 L568，這兩點又少看到人討論，雖然 99% 的人都沒遇到這些問題，但如果剛好是那 1% 且跟我一樣龜毛 ...畢竟一台 Eizo 不便宜，買之前還是注意一下。

最後呢，我買了 Eizo SX2462，用到現在非常滿意。

WGet 錯誤回報

2011-01-20T19:46:00.000+08:00

如果執行 WGet 有任何問題或建議請在這裡留下您的意見。
回報錯誤時務必附上相簿網址以便測試 (相簿不方便公開的話請來信)。

目前已知問題

moko 無法下載全部 (2012-01 暫不修正)
wretch 部分相簿無法下載 (2012-02-19)

WGet 2.8.0

2011-01-02T06:56:00.000+08:00

寫了一晚忘記總共改了哪些地方，總之終於更新了~ 回顧 2010

2010/01/19 - v2.7.7 (2500)
2010/01/30 - v2.7.8 (15000)
2010/06/09 - v2.7.9p2 (22000)
2010/07/13 - v2.7.9p3 (21000)

新的一年也請大家多多支持。

Dell Perc 6/i on FreeBSD

2010-07-15T01:58:00.000+08:00

要跑 zfs 的主機還得等上一段時間才會到，先買了張便宜又大碗的 Dell Perc 6i 來用。

環境
CPU：Intel P4 3.0GHz
RAM：512MB DDR2 x 2
MB：Supermicro PDSLA
HDD：Hitach 1TB (7K1000.B) x 4
OS：FreeBSD 8.0R i386

安裝 megacli

#cd /usr/ports/sysutils/linux-megacli/ && make  install clean

會出現須自行至 LSI 下載檔案到 /usr/ports/distfiles，下載完後若沒 load linux kernel module 記得先 kldload linux 後再 make (忘記沒 load 的話編到哪裡會出錯)。編完後照著說明編輯 loader.conf、sysctl.conf、fstab 等檔案。megacli 指令可參考 Managing PERC 6 with MegaCli under Solaris 10 或是 MegaCLI cheat sheet。

Raid 5 效能測試

# diskinfo -t /dev/mfid0
/dev/mfid0
        512             # sectorsize
        2998960914432   # mediasize in bytes (2.7T)
        5857345536      # mediasize in sectors
        364602          # Cylinders according to firmware.
        255             # Heads according to firmware.
        63              # Sectors according to firmware.

Seek times:
        Full stroke:      250 iter in   1.556091 sec =    6.224 msec
        Half stroke:      250 iter in   2.696059 sec =   10.784 msec
        Quarter stroke:   500 iter in   4.767586 sec =    9.535 msec
        Short forward:    400 iter in   2.793659 sec =    6.984 msec
        Short backward:   400 iter in   2.692022 sec =    6.730 msec
        Seq outer:       2048 iter in   0.417360 sec =    0.204 msec
        Seq inner:       2048 iter in   0.404697 sec =    0.198 msec
Transfer rates:
        outside:       102400 kbytes in   0.682351 sec =   150069 kbytes/sec
        middle:        102400 kbytes in   0.669891 sec =   152861 kbytes/sec
        inside:        102400 kbytes in   0.694164 sec =   147516 kbytes/sec

# bonnie -d /mnt -s 128
-------Sequential Output-------- ---Sequential Input-- --Random--
 -Per Char- --Block--- -Rewrite-- -Per Char- --Block--- --Seeks---
   MB K/sec %CPU K/sec %CPU K/sec %CPU K/sec %CPU K/sec %CPU  /sec %CPU
128 103562 99.9 221013 62.2 278379 85.6 101971 100.0 772229 100.0 35227.1 103.7

# bonnie -d /mnt -s 4096
-------Sequential Output-------- ---Sequential Input-- --Random--
 -Per Char- --Block--- -Rewrite-- -Per Char- --Block--- --Seeks---
   MB K/sec %CPU K/sec %CPU K/sec %CPU K/sec %CPU K/sec %CPU  /sec %CPU
  4096 97948 98.9 225527 69.2 70188 24.7 87023 95.1 191095 31.3 263.1  1.3

因為卡上有 256MB 的 cache 加上有裝電池可以開啟 write back，所以 128MB 的測試根本是爆表的快，不過 4GB 的測試結果也不錯。從 win7 上的 SSD 透過 samba (Gb網路) 寫入 2GB 檔案速度大都維持在 90~100MB/s。本來還想測 rebuild 時間，但剛裝好後的 background initialization 大約 10 分鐘才跑 1%，看到要這麼久就放棄了。後來查到可以透過 megacli –adpsetprop 來設定 RebuildRate 和 BgiRate，馬上將它設定成 100% (預設是 30%)，反正遇到硬碟壞掉一定是停止檔案服務全速重建 raid。

Filco 鍵盤 + Ducky 黑同刻鍵帽

2010-07-14T23:42:00.000+08:00

平常工作大都是用 Filco FKB104M/EB 和 FKBN87ML/EB，雖然用它寫出來的程式沒比較強，不過爽度高很多，心情好的話寫出來的程式 bug 也會比較少 XD 對我來說最大的缺點就是那兩顆 win 鍵，圓圓的凸起物觸感超差的，搞不懂為什麼要這樣設計。

Filco 常讓人詬病的就是鍍膜容易掉，不過我是覺得沒什麼差別，這樣看起來反而比較有使用感。另一個不太滿意的就是鍵帽很容易沾油，打起來會有種黏滯感很不舒服。

看到 Ducky 出了黑同刻鍵帽就趕緊買來試看看，主要是想要換掉 win 鍵，且黑同刻看起來質感不錯。ABS 材質，油墨印刷，看到 "台灣製造" 即使要價 $9xx 還是爽快的買下。

手上的拔鍵器不太好用，遇到大顆的鍵帽拔不下來，只能暴力點用手拔下。

還好順利的全部裝上，看起來就很舒服啊。用了幾天後發現此款鍵帽不會像 Filco 一樣容易沾油在上面，打起來感覺清爽多了。

FreeBSD zfs performance

2010-06-09T22:06:00.000+08:00

昨天用五年前主機測出的數據實在是很失望，調整 zfs 參數後寫入最多也只能跑到 35MB/s，今天換台主機測看看。

測試環境：
CPU：Intel Core 2 Duo E8400
RAM：2GB DDR2 x 3
MB：Gigabyte GA-EP45-UD3P
HDD：Hitach 1TB (7K1000.B) x 4
OS：FreeBSD 8.0R amd64

/boot/loader.conf

ahci_load="YES"
vm.kmem_size_max="1024M"
vm.kmem_size="1024M"
vfs.zfs.arc_max="100M"

直接將昨天在別台主機建的 pool 裝上

# zpool import -f tank

測試

# dd if=/dev/zero of=/home/dslab/data/test bs=1m count=4000
4000+0 records in
4000+0 records out
4194304000 bytes transferred in 30.429420 secs (137837133 bytes/sec)

# dd if=/home/dslab/data/test of=/dev/null bs=1m
4000+0 records in
4000+0 records out
4194304000 bytes transferred in 22.393339 secs (187301412 bytes/sec)

# bonnie -d /home/dslab/data -s 4096 -m zfs
              -------Sequential Output-------- ---Sequential Input-- --Random--
              -Per Char- --Block--- -Rewrite-- -Per Char- --Block--- --Seeks---
Machine    MB K/sec %CPU K/sec %CPU K/sec %CPU K/sec %CPU K/sec %CPU  /sec %CPU
zfs      4096 79500 44.1 106960 20.8 60252 12.9 155730 70.2 170719 13.6 121.5  0.5
zfs      4096 78294 42.9 108320 20.8 58735 13.0 145792 64.4 167522 13.2 118.4  0.5

應該不用多說什麼了... 準備買新主機!!

FreeBSD zfs raidz

2010-06-09T14:42:00.000+08:00

環境：P4 3.0GHz、2GB Ram、FreeBSD 8.0R i386、Hitachi 1TB x4

開機啟動 zfs

#echo 'zfs_enable="YES"' >> /etc/rc.conf

設定參數 (參考 ZFSTuningGuide)

#ee /boot/loader.conf
vm.kmem_size="330M"
vm.kmem_size_max="330M"
vfs.zfs.arc_max="40M"
vfs.zfs.vdev.cache.size="5M"

初始化硬碟 (ad4、ad6、ad8、ad10)

#dd if=/dev/zero of=/dev/ad4 bs=1m count=1 
#fdisk -I /dev/ad4
#glabel label radz11 /dev/ad4s1

建立 raidz pool 並察看

#zpool create tank raidz /dev/label/raidz11 /dev/label/raidz12 /dev/label/raidz13 /dev/label/raidz14 
#zpool status tank
pool: tank
state: ONLINE
scrub: none requested
config:
        NAME               STATE     READ WRITE CKSUM
        tank               ONLINE       0     0     0
         raidz1           ONLINE       0     0     0
            label/raidz11  ONLINE       0     0     0
            label/raidz12  ONLINE       0     0     0
            label/raidz13  ONLINE       0     0     0
            label/raidz14  ONLINE       0     0     0

errors: No known data errors

#df -H
Filesystem     Size    Used   Avail Capacity  Mounted on
tank           2.9T    0B      2.9T  0%           /tank

# zpool list
NAME   SIZE   USED  AVAIL    CAP  HEALTH  ALTROOT
tank   3.64T   630K  3.64T     0%    ONLINE  -

建立 mount point

#zfs set mountpoint=/home/dslab/data tank/data
#df -H
Filesystem     Size    Used   Avail Capacity  Mounted on
tank/data      2.9T      0B    2.9T     0%         /home/dslab/data
tank           2.9T      0B    2.9T     0%         /tank

測試讀寫效能

#dd if=/dev/zero of=/home/dslab/data/test bs=1m count=4000
4000+0 records in
4000+0 records out
4194304000 bytes transferred in 108.070644 secs (38810762 bytes/sec)

#dd if=/home/dslab/data/test of=/dev/null bs=1m
4000+0 records in
4000+0 records out
4194304000 bytes transferred in 33.516918 secs (125139907 bytes/sec)

#bonnie -d /home/dslab/data -s 4096 -m zfs
              -------Sequential Output-------- ---Sequential Input-- --Random--
              -Per Char- --Block--- -Rewrite-- -Per Char- --Block--- --Seeks---
Machine    MB K/sec %CPU K/sec %CPU K/sec %CPU K/sec %CPU K/sec %CPU  /sec %CPU
zfs      4096 25813 36.6 33618 17.0 22683 11.5 44180 53.0 81775 15.9 107.6  1.0

結果不是很理想，應該是 cpu 不夠力。

WD15EARS on FreeBSD

2010-06-09T14:39:00.000+08:00

看硬碟盒子中附的說明寫著 windows 之外的系統之接插上就可以用，不過還是去找了資料，最簡單的應該是用 gpart 吧。

#gpart create -s GPT ad10
ad10 created
#gpart show ad10
=>   34  2930277101  ad10  GPT  (1.4T)
     34  2930277101        - free -  (1.4T)

4k = 512x8，所以接著由 40 開始

#gpart add -b 40 -s 2930277095 -t freebsd-ufs ad10
ad10p1 added
# gpart show ad10
=>   34  2930277101  ad10  GPT  (1.4T)
     34           6        - free -  (3.0K)
     40  2930277095     1  freebsd-ufs  (1.4T)

#newfs -S 4096 -b 32768 -f 4096 -O 2 -U -m 1 -o space /dev/ad10p1

接著測看看速度

#dd if=/dev/zero of=/dev/ad10p1 bs=1m count=8k
8192+0 records in
8192+0 records out
8589934592 bytes transferred in 90.180949 secs (95252209 bytes/sec)

diskinfo 看到的 sectorsize 還是 512

#diskinfo -t /dev/ad10
/dev/ad10
        512             # sectorsize
        1500301910016   # mediasize in bytes (1.4T)
        2930277168      # mediasize in sectors
        2907021         # Cylinders according to firmware.
        16              # Heads according to firmware.
        63              # Sectors according to firmware.
        WD-WMAVU3127845 # Disk ident.

Seek times:
        Full stroke:      250 iter in   5.759155 sec =   23.037 msec
        Half stroke:      250 iter in   4.177206 sec =   16.709 msec
        Quarter stroke:   500 iter in   7.581140 sec =   15.162 msec
        Short forward:    400 iter in   2.664591 sec =    6.661 msec
        Short backward:   400 iter in   2.181377 sec =    5.453 msec
        Seq outer:       2048 iter in   0.273239 sec =    0.133 msec
        Seq inner:       2048 iter in   0.238800 sec =    0.117 msec
Transfer rates:
        outside:       102400 kbytes in   1.065353 sec =    96118 kbytes/sec
        middle:        102400 kbytes in   1.264815 sec =    80960 kbytes/sec
        inside:        102400 kbytes in   2.177371 sec =    47029 kbytes/sec

Tcl + Tk + html + css + javascript = ?

2010-04-12T03:58:00.000+08:00

最近在寫一個需要漂亮 GUI 的應用程式，雖然說近年來 Tk 進步很多，但看起來還是很落伍 XD 像 wget 大概就是我目前用 Tk 能做到的極限了。過去一年都在寫 web 應用程式，用 html + css + js 可以輕鬆做出很多漂亮的操作介面，回到 Tk 後實在是很不習慣。前幾天突然想到乾脆用 html 來做 GUI 好了，寫了幾天後超快樂的，用 jquery 和一堆 plugin 就可以輕鬆就做出很現代的效果~

程式大概的架構是：

用 optcl 把 ie 丟到一個 tk frame 中，切換不同介面只需叫 ie 載入對應的 html 即可。
寫一個簡單的 httpd 丟到 thread 負責 ie 和 tcl 間的通訊。
js 透過 httpd 的 get (我用 jquery 的 jsonp) 控制 tcl (執行 procedure、取得變數等)，tcl 透過 httpd 回傳 json 格式的結果。
tcl 透過 optcl 取得與設定 js 中變數的值或執行 function。(還沒試)

當然這樣做的結果就是把程式間的關係搞得很複雜，寫的時候要在 html、js、tcl 間跳來跳去，不過我是覺得省下很多時間 (前提是要對 html、css、js 很熟)，像光是一個 cover flow 的效果，用 Tcl/Tk 根本不知道要怎樣才能做出來，但改用 html 後就有一堆現成的 flash 或 js 程式可直接拿來用。因為我才用這方式寫幾天，還沒整理出漂亮的架構和寫法，過段時間再放個範例上來。

Tcl 配合 Tor 取得不同 ip

2010-03-30T14:39:00.000+08:00

可以用來做什麼就自己想像吧 XD

安裝 Vidilia，到 settings -> advanced 把 authentication 改成 none (也可以單獨跑 Tor，不過在 windows 上跑 vidilia 方便就直接用了)。Tor 跑起來後要用 Tcl 控制可以透過 control port (預設 9051)，詳細內容在 Tor control protocol specification，應用可參考 Tor Control Commands 這篇文章。

以下是透過 Tor 取得不同 ip，若拿到的 ip 已經用過則再建立新 circuit。

proc get_ip {oip} {
  variable ipList
  variable sck
  set tok [http::geturl "http://whatismyip.org/" -timeout 10000 -headers [list Pragma no-cache]]
  set nip [http::data $tok]
  http::cleanup $tok
  while { $oip == $nip || $nip == "" || [string length $nip] > 15 || [lsearch $ipList $nip] != -1 } {
    set tok [http::geturl "http://whatismyip.org/" -timeout 10000 -headers [list Pragma no-cache]]
    set nip [http::data $tok]
    http::cleanup $tok            
    if { [lsearch $ipList $nip] != -1 } {
      set nip $oip
      puts $sck "signal newnym"
      after 5000
     }
  }
  lappend ipList $nip
  return $nip
}

http::config -proxyhost 127.0.0.1 -proxyport 8118
#connect to tor control port
set sck [socket 127.0.0.1 9051]
fconfigure $sck -buffering none -blocking 0 -encoding binary -translation crlf -eofchar {}
puts $sck {authenticate ""}

要更有效率可以先找出全部可用的 exit node 後再建立 two hop circuit，只是這樣得多很多很多行程式，這裡簡單的用 whatismyip.org 查看目前的 ip，若已用過再 signal newnym 要求 tor 建立一個新的 circuit。

Tcl 隨機產生身份證字號

2010-03-30T04:27:00.000+08:00

平常都是用 javascript 或 php 檢查身分證號碼，想不到有一天會需要用到身分證號產生器 XD 規則網路上很多，用 tcl 寫也沒幾行。

proc random_uid {sex} {
  set ret ""
  set wgt 0
  set cityList {A B C D E F G H J K L M N P Q R S T U V X Y W Z I O}
  set city [lpick $cityList]
  append ret $city
  set cityNum [expr [lsearch $cityList $city] + 10]
  set rndNum "$sex[expr {int(rand()*9000000+1000000)}]"
  append ret $rndNum
  set wgt [expr [expr [string index $cityNum 0] * 1] + [expr [string index $cityNum 1] * 9] ]
  set j 8
  for {set i 0} {$i<8} {incr i} {
    set wgt [expr $wgt + [expr [string index $rndNum $i ] * $j]]
    incr j -1
  }
  set chk [expr 10 - ($wgt % 10)]
  if {$chk == 10} {set chk 0}
  append ret $chk
  return $ret
}

Ftpidx 砍掉重練

2010-02-01T22:26:00.000+08:00

之前寫到爛尾的 ftp 軟體又開始繼續寫了 XD

先大概介紹一下，ftpidx 和其他 ftp client 最大的不同在於支援搜尋功能，一般的搜尋大概就是一個個目錄進去找，當檔案很多時得找很久，所以我在 server 端跑一支程式定時對 ftp 檔案做索引，這樣就可以透過它快速的找到檔案，因此在 client 端多了個 idx port 的選項，其它的功能跟一般 ftp 差不多。

當啟用 idx 後登入 ftp 可以查看目前 ftp 上的索引資料狀況，像圖中四十幾萬筆檔案建立索引大概花五分鐘。

搜尋結果畫面。找到的目錄可以點兩下進入，或是加到 queue 中下載。目前僅支援用 name 當關鍵字找，以後會加入用 timestamp，這樣可以快速列出新增的資料。另，會用到這功能的應該都是很大的站，且不希望讓別人知道有什麼內容 XD 所以搜尋結果的傳輸過程都有加密。

傳輸畫面，測速度約可跑到 2x MB/s，大部分情況下應該夠快了。

最後呢，就跟標題寫的一樣，想要整個重寫。主要是當初希望有個很簡單的操作介面 (覺得 filezilla 實在是太亂了)，寫到後來覺得太簡單反而有點難用 (好難取捨)，現在還在想怎樣的操作介面會比較適合，歡迎對這軟體有興趣的提出建議。

WGet 2.7.8 發佈

2010-01-31T15:24:00.000+08:00

WGet 2.7.8 已經發佈了，這個版次修正了 Xuite 相簿中無法下載無標題圖片的問題。

如果要下載WGet的朋友，請在這裡下載。

TkTreeCtrl & shellicon

2010-01-20T00:43:00.000+08:00

我幾乎每個程式都會用到 TkTreeCtrl，最常用來顯示條列式的 item，甚至還可以拿來做分頁功能的 tab。最近寫 ftp client 時想要顯示的 icon 和本機上的一樣，TkTreeCtrl 有提供 shellicon 的 package，可藉由建立 shellicon 的 element 和指定 path 來顯示檔案的 icon。

$tree element create elemImg shellicon -size small
$tree item element configure $item name elemImg -path $path

不過 ftp 的檔案在 server 上無法指定 path，所以我就先在本地端建立不同副檔名的檔案，要顯示時再依據副檔名將 path 指定到對應的檔案。在 windows 中有個 assoc 的指令可以列出目前所有副檔名，可由此資訊建立所需的檔案

C:\Documents and Settings\laby>assoc |more
.264x2pass+DvD=264x2pass+DvD_auto_file
.323=h323file
.386=vxdfile
.3g2=mplayerc.3g2
.3gp=mplayerc.3gp

在第一次啟動程式時先預先建立好對應的檔案即可

proc ::rc::create_mine_icon {mimeDir} {
   file mkdir $mimeDir
   close [open [file join $mimeDir mime.unknow] w]
   set assocList [exec cmd /c assoc]
   foreach line $assocList {
     set ext [lindex [split $line "="] 0]
     if { [string range $ext 0 0] eq "." } {
       catch {close [open [file join $mimeDir mime$ext] w]}
     }
   }
}

測試建立 840 個檔案只花了約 200ms。下圖上半為預設的 icon，下半為使用 shellicon 後的效果。

WGet 錯誤回報

2010-01-19T18:39:00.000+08:00

如果執行 WGet 有任何問題，請在這裡留下您的意見，回報錯誤時請附上相簿網址以便測試。

WGet 網路相簿下載器

2010-01-19T18:26:00.000+08:00

如果你有照片放在朋友的網路相簿裡，而你想要快速的把它們下載一份放在自己的電腦。
如果你想要從網路相簿下載自己所有的相簿，把它們製作成影像音效具佳的DVD光碟。
如果你找到帥哥或正妹的相簿，但苦於鎖右鍵不能下載的困擾。
如果你是使用Linux系統的高手，但找不到類似的相簿下載軟體。
如果你有系統潔癖不想亂裝軟體弄髒系統。
試試看WGet吧!!它可以容易的幫助你完成上面那些工作!!。
而且WGet是一套綠色軟體，不用安裝就可以執行。
不想要使用時直接丟到垃圾桶就好了，別擔心它會在你的系統留下沒用的垃圾。

目前最新版的WGet主要有下列的功能：

支援 Moko、Wretch、PChome、Pixnet、Xuite、Yam 網路相簿
同時預覽多本相簿內容
批次下載多個相簿、相片
支援原圖下載
鎖密碼的相簿，可以輸入密碼直接下載
封面快取，加速瀏覽過的相簿
支援代理伺服器
抓取間隔設定，防止抓太快被擋住
儲存檔案時，允許使用命名規則
跳過已下載的項目
自動檢查最新版本的軟體
書籤管理(我的最愛)
用瀏覽器查看指定的相簿
跨平台，提供Windows、Linux等版本

1.下載執行檔

WGet可以在Windows 或 Linux 系統上執行請從下列的載點找出合適你系統的版本。

2.解壓縮並執行主程式

將剛剛下載的WGet最新版本的zip檔解開，像下面的圖一樣，解開後只有一個「WGet.exe」這個就是主程式，請用滑鼠左鍵快按兩下就可以執行了。

3.設定相簿的類型

請在選單的 [選項=>相簿類型]挑選想要下載的網路相簿。

4.輸入ID取回相簿清單

主程式執行後請在下面圖中紅色1指示的位置輸入朋友或你的相簿ID，然後按下ID輸入方塊右邊的按鈕(紅色2指示的位置)，稍等一下 WGet就會把對應ID的相簿清單都抓取回來並顯示在相簿瀏覽區了(紅色3指示的位置)。

5.開始下載相簿

相簿清單抓取完成後，請在紅色1指示的相簿瀏覽區，用滑鼠左鍵挑選你有興取的相簿。按一下表示選取(黃色背景)，再按一下表示消取(灰色背景)。挑選完成後，請按下紅色2指示的「開始下載」按鈕，這樣就開始抓取相片囉!!在抓取相片時WGet預設是把相片都儲存在「C:\album」資料夾裡面，你可以按下工具列最右邊的按鍵來改變預設的儲存位置。

喝杯茶!等待稍後一下，等WGet的訊息方塊顯示下載結束 ... 。下載結束後，開啟你的檔案總管到你指定的儲存位置去看，相簿都已經儲存在磁碟了。

6.下載單張相片

WGet也提供單張相片下載的功能，如同下載相簿的步驟一般，你只需要先由相簿瀏覽區用滑鼠左鍵挑選你有興取的相簿，然後按一下右上方的「預覽相簿」按鈕，如此一來WGet會把所選取相簿裡的相片都列出來給你看。

相簿內容：

當然你也可以在瀏覽區裡點選你要下載的相片，然後按下右上方的「開始下載」按鈕，來抓取相片。

7.下載原圖

如果你想要下載原圖的話，請注意下面圖片紅色框的部份，WGet可以讓你設定相簿下載時要包含的項目。(WGet 2.7.4以後的版本不提供影音及MP3下載功能)

8.下載鎖碼的相簿

對於有鎖碼的相簿，WGet會在相簿封面的上方顯示一個「輸入密碼」的文字方塊，請使用滑鼠的左鍵點一下文字方塊，這樣就可以輸入密碼了。

9.影音

下載影音的方法非常的簡單，就像下載相簿一樣，如下圖，請先切換到影音清單的頁面，然後挑選影音，最後按下載就ok了。(WGet 2.7.4以後的版本不提供影音及MP3下載功能)

10.如何移除WGet ?

移除WGet的方法很簡單，只要把主程式丟到垃圾桶就算移除完成了。但如果你想要把WGet的記錄資訊一起移除的話，請刪除下面的資料夾：

C:\Documents and Settings\你登入Windows的帳號\.wget

OK!! 系統乾淨了，ＷGet沒有在你的電腦裡留下任何的垃圾。

11.如何下載最新版的WGet ?

如果想要下載最新版的WGet，除了可以本站下載之外WGet還有一個貼心的小地方，它內建了下載最新版的的功能，注意下面紅色箭號指示的位置：

12.如果你是使用Linux的高手

下載WGet-linux.zip解壓縮後會得到WGet.bin
使用下面的命令執行WGet

$ cd WGet.bin儲存的位置
$ chmod+x WGet.bin
$ ./WGet.bin

記錄檔放在 ~/.wget

最後要特別謝謝所有曾經回報錯誤給我的朋友謝啦!!

Windtop BBS + FreeBSD 8.0

2010-01-18T19:10:00.000+08:00

之前一直龜在 FreeBSD 6.x 很多新硬體新功能不能用，前幾天換硬體時升級到 FreeBSD 8.0 (想玩 zfs)。重編 bbs 時因系統預設的 gcc 是 4.2.1 出現一堆錯誤，google 不到相關的資料只好慢慢試。
安裝 gcc34

cd /usr/ports/lang/gcc34/ && make install clean
rehash

修改 ~/bbs/src/lib/Makefile，把 CC 改成gcc34CC = gcc34修改 ~/bbs/src/其他/Makefile，把 freebsd 的 CC 改成 gcc34freebsd: @$(MAKE) CC=gcc34freebsd 在 8.0 後移掉 sgtty.h 只好自己建立 /usr/include/sgtty.h 加入

#ifndef USE_OLD_TTY
#define USE_OLD_TTY
#endif
#include <sys/ioctl.h>

接著照原本的編譯方式即可。

Lifetype + APC

2010-01-14T15:41:00.001+08:00

有人反應修改 lifetype template 後在 blog 上沒有改變，想說近期只有把 eAccelerator 換成 APC，去 apc 管理介面看果然 template 都被 cache 住了，第一次用 apc 沒注意到這個問題，不過感覺上應該要知道 template 有改變過才是(?)，懶得研究 apc cache、lifetype/tmp、template 間的關係，直接用 google 找 apc lifetype template，很失望的看了幾頁都沒人遇到這問題，乾脆去看 APC 手冊比較快。其中有個 apc.filters string，可以用 reg exp 設定哪些檔案不要 cache，直接在 php.ini 的 apc 部分加入

apc.filters= .template.php

重開 apache，清 apc chahe 後果然就沒問題了~ 話說，裝了 APC 後感覺真的快很多。