在香港開車，車頭對其它車輛發生輕微碰撞，賠了HKD1000。
車是朋友的，朋友沒要求賠償。
[ 發表回應 ] ( 9預覽 ) | 常註連結 |
( 3 / 1424 )英文原文：http://quidocet.blogspot.com/2005/12/how-do-i-customise-smf-service.html
作者：Boyd Adamson
翻譯：Andrew Choi (蔡健發)
經過在Opensolaris的討論，我認為有需要解釋SMF的使用方法。在安裝最新版本的Solaris便可以使用到SMF。
有一個例子，在使用DNS Server方面，我曾經遇過一些問題。在Solaris 10上自行安裝了新的Bind 9 DNS Server，執行檔案名稱為named。位置在/usr/local/sbin/named。當我們正在討論有關如何修改manifest file (/var/svc/manifest/network/dns/server.xml)來執行新的Bind 9 DNS時。發現，使用修改smf 的xml檔案的方法並不好。這樣會更改了系統預設的資料。如果我們需要Update patch的話，我們將不會得到任何update patch的好處。
那怎樣做？
答案就是，SMF 服務中提供了很多屬性的參數設定方法。那些屬性可以除您的喜愛而更改，而且又不需要更改manifest 檔案，這樣就不會應響系統update patch。
您可以查看服務中的屬性：
# svcprop dns/server
翻譯未完成
This lists them all. The one we're interested in is called "exec" in the property group "start", so to just see that one:
# svcprop -p start/exec dns/server
/usr/sbin/named
To change a property, use svccfg as follows:
# svccfg
svc:> select dns/server:default
svc:/network/dns/server:default> listprop start/exec
start/exec astring /usr/sbin/named
svc:/network/dns/server:default> setprop start/exec = /usr/local/sbin/named
svc:/network/dns/server:default> listprop start/exec
start/exec astring /usr/local/sbin/named
svc:/network/dns/server:default> quit
Then you need to refresh the service:
# svcadm refresh dns/server
And now, start it:
# svcadm start dns/server
Finally, you can actually make the svccfg part much shorter with:
# svccfg -s dns/server:default setprop start/exec = /usr/local/sbin/named
[ 發表回應 ] ( 7預覽 ) | 常註連結 |
( 3 / 1339 )不知到原文出處，但經過一些老中醫政實，這是一個很好的急救方法。但要注意不是醫治的方法，是急救的方法，所以，當發生中風的情況後，使用了這急救方法後有好轉，千萬不要不看醫生，否則可嚴重。
還有補充一點，如果在中風24小時內，能服食「北京同仁堂的牛黃解毒丸」，可減輕中風後的後遺症。注意不是「牛黃解毒片」。「北京同仁堂的牛黃解毒丸」要幾百完港幣一粒，外層包了金箔的。
還有一點，我是中風高急人使，如果是朋友的話，記住用這遍文章內的方法救我，不用客氣。
在文中的所謂一滴血，經過中醫的解釋一滴大約為「黃豆」的大小。
原文開始：
我曾經親身經歷，換回我老爸的生命．．．．．就因為曾看過這篇記載～救了爸爸！
患了中風，腦部的微血管，
會慢慢的破裂，遇到這種情形，千萬別慌，
患者無論在什麼地方(不管是浴室、臥房或客廳），
千萬不可搬動他。
因為，如果移動，會加速微血管的破裂 。
所以要先原地把患者扶起坐穩以防止再摔倒，這時才開始（放血）。
家中如有專為注射用的針，當然最好，
如果沒有，就拿縫衣用的銅針，
或是大頭針，用火燒一下消毒，
就在患者的十個手指頭尖兒
（沒有固定穴道，大約距離手指甲一分之處）
刺上去，要刺出血來 (萬一血不出來，可用手擠），
等十個手指頭都流出血來(每指一滴)，
大約幾分鐘之後，患者就會自然清醒
如果嘴也歪了，就拉他的耳朵，把耳朵拉紅，
在兩耳的耳垂兒的部位，各刺兩針，
也各流兩滴血，幾分鐘以後，嘴就恢復原狀了。
等患者一切恢復正常感覺沒有異狀時再送醫，
就一定可以轉危為安，否則，若是急著抬上救護車送醫，
經一路的顛跛震動恐怕還沒到醫院，他腦部微血管，
差不多已經都破裂了。萬一能夠吉人天相，保全老命，
能像孫院長，容得勉強行動，那得要靠祖上的庇蔭了。
放血救命法，是住在新竹的中醫師夏伯挺先生說的。
且是經自己親身實驗，敢說百分之百有效。
大概是民國六十八年我在台中逢甲學院任教，
有天上午，我正在上課，一位老師跑到我的教室上氣不接下氣的說：
劉老師快來，主任中風了；
我立刻跑到三樓，看到陳幅添主任，
氣色不正，語意模糊，嘴也歪了，很明顯的是中風了。
立即請工讀生到校門外的西藥房，買來一支注射用的針頭，
就在陳主任十個手指頭上直刺。
等十個手指尖兒都見血了（豆粒似的一滴），
大約幾分鐘以後，陳主任的氣色就變過來了，
兩眼也有神了，只有嘴還歪著，我就拉搓他的耳朵，
使之充血，等把耳朵拉紅，就在左右耳垂之處，
各刺兩針，待兩耳垂都流出兩滴血來，奇蹟就出現了，
大約不到三五分鐘，他的嘴形，恢復正常了，說話也清清楚楚了。
讓他靜坐一陣子，喝了一杯熱茶，才扶他下樓，
開車送到惠華醫院，打一罐點滴，休息了一夜，
第二天就出院回學校上課了。
一切照常工作，毫無後遺症。
反觀一般腦中風患者，
都是送醫院治療時，經過一路震盪血管急速破裂，
以致多數患者一病不起，所以腦中風，在死因排行榜上高居第二位，
其最幸運者，也僅能保住老命，而落得終身殘廢。
這是一個多麼可怕的病症。如果大家都能記住這（放血救命)的方法，
立刻施救，在短短時間它能起死回生，
而且保證百分之百的正常。
這個急救法，希望大家告訴大家。
那腦中風，在死因排行榜上，就可以除名了。
●閱後傳知他人，功德無量●
[ 發表回應 ] ( 12預覽 ) | 常註連結 |
( 2.9 / 1567 )#psrinfo -pv
The physical processor has 1 virtual processor (0)
x86 (GenuineIntel family 6 model 23 step 10 clock 2833 MHz)
Intel(r) Core(tm)2 Quad CPU Q9550 @ 2.83GHz
[ 發表回應 ] ( 8預覽 ) | 常註連結 |
( 3 / 1384 )# zfs-backup.pl
#!/usr/bin/perl
### Design By Andrew Choi
### Backup Directory
@backuppool = ("ntpool/u0","ntpool/local");
$targetpool = "backup";
$record = "/$targetpool/zfs-backup-record.dat";
### Main Program
# Gen Date Code
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime time;
$year = $year + 1900;
$mon = substr "0".$mon,-2;
$mday = substr "0".$mday,-2;
$hour = substr "0".$hour,-2;
$min = substr "0".$min,-2;
$sec = substr "0".$sec,-2;
$datecode = $year.$mon.$mday.$hour.$min.$sec;
# Check the last record of record file
open (FILE,"<$record");
@temp = <FILE>;
close (FILE);
$lastrecord = pop(@temp);
chop ($lastrecord);
# Save the update datecode
open (FILE,">>$record");
print FILE"$datecode\n";
close (FILE);
# Create snapshot
foreach $pool(@backuppool) {
$command = "zfs snapshot $pool\@$datecode\n";
print $command;
$a = `$command`;
}
# Backup method
if ($lastrecord eq "") {
# Full Backup
foreach $pool(@backuppool) {
$command = "zfs send $pool\@$datecode \| zfs recv -F $targetpool/$pool\n";
print $command;
$a = `$command`;
}
} else {
# Incremental Backup
foreach $pool(@backuppool) {
$command = "zfs send -i $pool\@$lastrecord $pool\@$datecode \| zfs recv -F $targetpool/$pool\n";
print $command;
$a = `$command`;
}
}
# clean-snapshot.pl
#!/usr/bin/perl
### Design By Andrew Choi
### Clean snapshot
@backuppool = ("ntpool/u0","ntpool/local");
$targetpool = "backup";
$record = "/$targetpool/zfs-backup-record.dat";
### Main Program
# Check the last record of record file
open (FILE,"<$record");
@temp = <FILE>;
close (FILE);
if ($temp[0] eq "") {print "No any snapshot for clean\n"; exit;}
# Clean snapshot method
foreach $datecode(@temp) {
chop ($datecode);
foreach $pool(@backuppool) {
$command = "zfs destroy $pool\@$datecode\n";
$a = `$command`;
print $command;
$command = "zfs destroy $targetpool/$pool\@$datecode\n";
$a = `$command`;
print $command;
}
}
# Remove the record file
$command = "rm $record\n";
print $command;
$a = `$command`;
[ 發表回應 ] ( 19預覽 ) | 常註連結 |
( 2.8 / 1715 )
日曆
