讓FreeRadius Server整合Linux上的帳號做認證

很久以前有介紹透過FreeRadius Server裡的users來做使用者認證，在此update一下透過Linux本機帳號來做認證。

Step1. 將啟動radius server的使用者改為root

# vi /etc/raddb/radiusd.conf

如果不這麼做的話，當啟動radius server時，由於radiusd user對於/etc/shadow沒有讀取的權限，故會發生permission denied。網路上有找到PAM Support for FreeRadius (http://www.sfr-fresh.com/unix/misc/freeradius-1.0.5.tar.gz:a/freeradius-1.0.5/doc/rlm_pam）的文章，可是照著做還是不能work，所以先以此方法來實現。

Step2. Enable Unix account authentication

# vi /etc/raddb/radiusd.conf

unix {
cache=yes
passwd= /etc/passwd
group=/etc/group
shadow=/etc/shadow

radwtmp=${logdir}/radwtmp

}

Step3. 以debug mode啟動
先以debug mode啟動radius server看看是否能啟動成功:

………………. Message

如果看到Ready to process requests的話就代表成功了。
Note: 目前只允許localhost (127.0.0.1)可以連線，如果要允許別的網段或IP連線到本機認證的話請修改 /etc/raddb/clients.conf

Step4. 以本機使用者認證:
Usage: radtest

如果看到回應Access-Accept ……… 那麼就是代表認證成功。

Step6.以daemon方式啟動radius server，並測試:


成功的以daemon的方法啟動radius server，並且能正常工作。

Tcl + expect 簡單實作

這陣子在幫公司做些自動化測試的環境，故常利用到tcl搭配expect故在此做個雜記:
舉個簡單的例子，透過tcl與expect ssh login到遠端機器並將它reboot:

整個tcl的內容如下:
#!/usr/bin/tclsh
package require Expect
set ip [lindex $argv 0]
spawn ssh -o StrictHostKeyChecking=no Administrator@$ip
expect "Password: "
send "aaaa\r"
expect ">"
send "reboot\r"
expect "(y/n)"
send "y\r"
expect "# "

以expect期待得到怎樣的輸出後，便使用send輸入命令，而每台機器所吐出來的prompt都不相同，請自行更改。

執行: ./reboot.tcl 192.168.0.1

赤壁

今天跟老婆請了特休幫小女開戶，之後到中和的環球國賓影城去看赤壁，說起來不難看但是也沒說多好看到那邊去，也許是因為我看過大陸電視版的三國演義，每個段落總是會比較一下，電影場面雖大，但是人物的刻化似乎就沒有那麼傳神了，特別是諸葛亮說服東吳參戰的過程實在不夠精彩，電視版的諸葛亮（唐國強先生飾演）舌戰群臣的一慕實在是令人非常之佩服，相比之下，電影就有點遜色了，想起電視版星落五丈原的那幕：亮不能臨陣討賊，憂憂蒼天，何薄於我。總是會忍不住內心的激動而落下眼淚，唐國強先生的確是把諸葛亮演得非常之成功！

話題扯遠了，回歸正題，我覺得赤壁還算是這幾年來華語片中挺好看的片子，雖然有幾段劇情與史實不太符合但也不至於被改得太誇張，精彩的戰鬥場面替整部片加分了不少，我不是影評人，但是如果要我給分數的話那麼我會給它79分，主要是因為我覺得很多橋段是多餘的，如果能多加強以下幾點那麼整部片將更加完美了：
- 長板坡上的英雄，趙子龍的冷靜與霸氣，浴血救少主，七進七出呀！
- 張飛喝退曹軍百萬雄兵，大喝一聲使曹將摔馬
- 諸葛亮舌戰群臣，製造與論，說服東吳參戰，讓劉軍從中得利

BTW, 老婆不懂三國歷史，一直問我接下來會如何，所以剛剛在網路上買了電視版三國演義全集幫她惡補一下。

得到消息Ubuntu Linux Kernel有安全性的漏洞，將導致DOS攻擊。詳情請參考以下連結:

Kernel Vulnerability in Ubuntu 8.04, 7.10, 7.04 and 6.06 LTS. Upgrade Now!

看來我又要recompile一些套件了。

To disable the remote host key checking

最近用Tcl配合Expect SSH至遠端DUT自動測試並產生結果，比較麻煩的是因為測試的緣故，會有很多相同IP但不同DUT的狀況發生，這時我的script裡就要在for loop的開始去砍掉~/.ssh/known_hosts所對應的IP，有點麻煩，經高人指定原來是可以讓SSH不檢查key，實作的方法是:

ssh -o StrictHostKeyChecking=no

不過要小心中間人攻擊唷~ 帽客是在Lab裡面這樣做，倒是不用擔心到這一點 :p

Tcl語法雜記

將一些我常用的Tcl語法記錄與此，以後好備查:

1.宣告變數:
set A 100

2.列印變數的值:
puts $A

3.Append變數:
set a {QA Engineer: }
set b {Lawrence Chiu}
puts $a
puts $b
append a $b
puts $a

4.Array:
#Set value to array
for {set i 5} {$i >= 0} {incr i -1} {
set myarray($i) $i
}
#Print array value
for {set i 0} {$i <= 5} {incr i +1} { puts "myarray($i)=$myarray($i)" }

5.將指令結果存於變數內:
set var [exec ifconfig]
puts $var
set var2 [exec ifconfig | grep "inet\ addr" | grep -v 127.0.0.1]
puts $var2

6.eval & subst:
set age 28
set str {I'm $age years old}
set cmd {puts "$str"}
eval $cmd
eval [subst $cmd]

7.foreach:
set SUM 0
foreach test {1 2 3 4 5} {
puts "$test"
set SUM [expr $SUM + $test]
}
puts "SUM=$SUM"

8.if:
set A 100
if {$A==101} {
puts "A=101"
} else { puts "A=100" }

9.開關檔:
set ls [exec ls]
set file [open file w]
puts $file $ls
close $file

10.positional應用:
set count [llength $argv]
puts $count
for { set i 0 } { $i <= [expr $count-1] } { incr i +1} { puts [lindex $argv $i] } 11.positional應用, foreach:
foreach a $argv {
puts $a
}

11.proc:
#functin f1
proc f1 {a b} {
return [expr $a + $b]
}

#Main program
set A 100
set B 150

set sum [f1 $A $B]
puts "A=$A"
puts "B=$B"
puts "A+B=$sum"

12. RE:
set var1 {abcde}
set var2 {b1234}
set var3 {aabcd}

puts "var1=$var1"
puts "var2=$var2"
puts "var3=$var3"
puts "\r"

puts "Which variable have a character?"
if {[regexp {a} $var1]} {
puts "var1 have a character"
} else { puts "var1 haven't a character" }

if {[regexp {a} $var2]} {
puts "var2 have a character"
} else { puts "var2 haven't a character" }

if {[regexp {a} $var3]} {
puts "var3 have a character"
} else { puts "var3 haven't a character" }
puts "\r"
puts "Which variable include number?"

if {[regexp {[0-9]} $var1]} {
puts "var1 have number"
} else { puts "var1 haven't a number" }

if {[regexp {[0-9]} $var2]} {
puts "var2 have number"
} else { puts "var2 haven't number" }

if {[regexp {[0-9]} $var3]} {
puts "var3 have number"
} else { puts "var3 haven't number" }

13.string:
set A "hello world!"
puts $A
puts [string length $A]
puts [string index $A 4]
puts [string range $A 6 9]
puts [string range $A 6 end]
puts [string toupper $A]
puts [string tolower $A]

14.switch:
set A yes
switch $A {
yes { puts "yes"}
no { puts "no" }
YES { puts "YES" }
default { puts "Not match!" }
}

15.while
set SUM 0
set i 1
while { $i <= 100} {
set SUM [expr $SUM + $i]
incr i 1
}
puts "SUM=$SUM"

Tcl online man page: http://www.tcl.tk/man/