酷!學園

好多年都忘記這裡了。
這裡看起來超冷清的，只能回來灌個水。
但偏偏自己是肉腳，不知道怎樣灌水。
不曉得是否有大大願意教我？

請問一下各位大師
肉腳想要將兩個interface的Multicast封包進行傳送，不曉得Linux現有的iptables是否就能辦到?

外部裝置發送Multicast封包 --> Lan interface --> Wan interface --> 別台機器

肉腳目前卡在Lan -> Wan這邊不知道要怎麼設定，是否要加裝其他像是proxy的軟體?
或是直接用iptables就能處理了呢?

感謝。

各位大師好，
本肉腳最近在寫console操作的程式，但是有發現到同樣一段code在Linux跟Solaris上執行顯示的完全不一樣。
肉腳先用這裡的sample code做測試:
http://www.vr.ncue.edu.tw/esa/EmbeddedSystemProgramming2010/ch06.htm

發現讀取跟寫入資料是正常，但是將此code拿到Solaris上後發現噴出的都是亂碼。
想嘗試從網路上找相關差異性的文件，卻幾乎找不到。
有檢查過相對應的DEVICE名稱跟BAUDRATE值，這部份有確認改正確。

這兩支程式範例code，Solaris跟Linux只有改這兩行，其他code都沒有動到:
#define BAUDRATE B57600
#define MODEMDEVICE "/dev/cua/0"

有實際用cat /dev/cua/0去讀值去，從反應確認是這個裝置沒錯。
也有試著設定/etc/remote，可以從tip看到正常的console畫面。
所以想請問一下各位大師，是否有相關說明文件或注意事項?
謝謝。

最近本肉腳剛學會用一點ffmpeg，就順手寫了一支視窗程式來方便執行它。
這個年頭自己寫視窗程式比網路上花力氣找GUI還來的簡單啊......
如果大家有興趣玩玩看的話，希望可以順便把你還有哪些需求，
或是執行遇到哪些問題回報給肉腳，肉腳再繼續修改並擴充它，
謝謝。
目前還在研究ffmpeg如果做影片轉檔，所以影片檔的設定參數還沒加上。
(本程式碼歡迎自由散佈、修改等，使用沒有限制)

程式說明，最上面的選項是找到ffmpeg的位置後按確定，
它會執行ffmpeg -formats的動作檢查支援哪些格式，
之後輸出格式的部份就有選項可選了。
選擇完輸入輸出目錄，按下轉檔鍵就會將整個目錄的音檔轉過去。

目前已知狀況：
1.遇到異常檔名(含怪字元)，程式會執行終止，還在研究怎麼過濾中。
2.輸入資料夾中含有非ffmpeg能處理的檔案，也會讓程式執行到那裡時終止。

從終端機中執行這隻程式，比較能看出ffmpeg運作到哪邊時，發生異常。
有時候Tk彈出的錯誤訊息視窗，多半是Tcl/Tk部份的程式問題，而不容易看到
ffmpeg的錯誤訊息。因為ffmpeg是外部呼叫的程式。
=========================================================

#!/usr/bin/wish8.5
###########################前置宣告########################
set ftype1 {
{{全部}         {*}}
}

proc scancodec { ffcmd } {
set clist [split [exec -ignorestderr $ffcmd -formats] "\n"]
set ll [llength $clist]
for {set i 0} {$i<$ll} {incr i} {
set line [lindex $clist $i]
set line1 [lindex $line 0]
if {$line1=="E" || $line1=="DE"} {lappend oclist $line}
}
set ocl [llength $oclist]
for {set i 0} {$i<$ocl} {incr i} {
lappend ::ocf [lindex [lindex $oclist $i] 1]
}
.area2.op3 configure -values $::ocf -state normal
}

proc conv {ffcmd ab ar sel inpdir outdir} {
set ::probmx 0
set ::count 0
set par "-ar"
if {$ar==""} { set par "" }
set fls [split [exec ls $inpdir] "\n"]
set ll [llength $fls]
set ::probmx $ll
.area4.prob configure -maximum $::probmx
for {set i 0} {$i<$ll} {incr i} {
set infile [lindex $fls $i]
######檢查檔名異常######
set llf [string length $infile]
set c ""
set infile1 ""
for {set j 0} {$j<$llf} {incr j} {
set c [string index $infile $j]
if {$c==" " || $c=="\[" || $c=="\]" } {
set c "_"
#append infile1 "_"
}
append infile1 $c

}
if {[string match $infile $infile1]==0} {
file rename $inpdir/$infile $inpdir/$infile1
set infile $infile1
}
########################

set outfile [lindex [split $infile "."] 0]
eval "exec -ignorestderr $ffcmd -ab $ab $par $ar \
 -i $inpdir/$infile -f $sel $outdir/$outfile.$sel"
incr ::count
update
after 1000
}
}

set ab 192k
set ::ocf ""
set ::probmx 0
set ::count 0

###########################主程式##########################
if { [file exists /tmp/ffcmd]==1 } {
set f [open /tmp/ffcmd r]
set ffcmd [lindex [split [read $f] "\n"] 0]
close $f
}
label .findff -text "轉檔指令位置：(注意：目前只支援ffmpeg)"
label .ffpar -text "ffmpeg參數設定：(留空白則使用預設)"
frame .area1 -relief flat
frame .area2 -relief flat
frame .area3 -relief flat
frame .area4 -relief flat
button .conv -text "開始轉檔" -command {
conv $ffcmd $ab $ar $sel $inpdir $outdir
}
button .exit -text "離開" -command { exit }
pack .findff .area1 .ffpar .area2 .area3 .area4 .conv .exit -side top -fill x

entry .area1.ffpath -textvariable ffcmd
button .area1.bw -text "瀏覽" -command {
set ffcmd [tk_getOpenFile -title "轉檔程式的位置" -filetypes $ftype1]
}
button .area1.ok1 -text "確定" -command {
scancodec $ffcmd
set f [open /tmp/ffcmd w+]
puts $f $ffcmd
close $f
}
pack .area1.ffpath .area1.bw .area1.ok1 -side left

label .area2.opl1 -text "音頻碼率"
entry .area2.op1 -textvariable ab
label .area2.opl2 -text "音頻採樣率"
entry .area2.op2 -textvariable ar
label .area2.opl3 -text "輸出格式"
ttk::combobox .area2.op3 -values $::ocf -textvariable sel -state disabled
grid .area2.opl1 -column 1 -row 1
grid .area2.op1 -column 2 -row 1
grid .area2.opl2 -column 1 -row 2
grid .area2.op2 -column 2 -row 2
grid .area2.opl3 -column 1 -row 3
grid .area2.op3 -column 2 -row 3

label .area3.inpl -text "來源音檔目錄"
entry .area3.inp -textvariable inpdir
button .area3.inpbw -text "瀏覽" -command {
set inpdir [tk_chooseDirectory -title "來源目錄" -initialdir [pwd] ]
}
label .area3.outl -text "輸出音檔目錄"
entry .area3.out -textvariable outdir
button .area3.outbw -text "瀏覽" -command {
set outdir [tk_chooseDirectory -title "輸出目錄" -initialdir [pwd] ]
if {[file exists $outdir]==0} { file mkdir $outdir}
}
grid .area3.inpl -column 1 -row 1
grid .area3.inp -column 2 -row 1
grid .area3.inpbw -column 3 -row 1
grid .area3.outl -column 1 -row 2
grid .area3.out -column 2 -row 2
grid .area3.outbw -column 3 -row 2

label .area4.prol -text "處理進度："
ttk::progressbar .area4.prob -orient horizontal \
 -maximum $::probmx -variable ::count
pack .area4.prol .area4.prob -side top -fill x

這是肉腳在學習分析snmpwalk所產生的大量資料，邊try資料邊寫支程式把它們撈出來。
因為網路上非常少人有寫介紹這些資料意涵的文件，於是肉腳只好自己目測。
因為Linux跟Unix吐出資料還是有差，所以部份有價值的資料並沒有寫入程式去撈。
(例如Unix/BSD連底下裝什麼套件都看的到，雖然snmpd偵測出來的資料有些會誤判
(例如FAT32檔案系統空間用量很怪)，但能夠偵測出這麼多東西已經夠恐怖了。)
並且比對三種作業系統的樣本：Solaris 10、FreeBSD 7.2、Debian 5，
扣除掉部份系統會產生的異常結構資料，才寫出來一部分。
肉腳對於這些資料還在學習階段，如果程式有寫錯也希望各位大師多多指點。
謝謝......
============================================================================
#!/usr/bin/tclsh8.5
puts "請輸入要偵測的主機IP"
gets stdin IP
set resultat [exec snmpwalk -v 2c -c public $IP]
set splitre [split $resultat '\n']
set lrres [llength $splitre]
puts "SNMP擷取總資料量：$lrres 筆"
set f [open tmp w+]
set cpun 0
set nonhd 0

for { set i 0 } { $i<$lrres } {incr i } {
  set line [lindex $splitre $i]
  puts $f $line

#0.清除奇怪資料
  if {[lindex $line 0]=="HOST-RESOURCES-MIB::hrSystemInitialLoadDevice.0"} {
  #這行的引號很討厭會斷兩行，讓程式判斷錯誤。
  incr i 3
  set line [lindex $splitre $i]
  #puts $line
  }
#1.測試系統
  if { [lindex $line 0]=="SNMPv2-MIB::sysDescr.0" } {
  set sys [lindex $line 3]
  set kernel [lindex $line 5]
  set sysname [lindex $line 4]
  puts "作業系統：$sys $kernel"
  puts "主機名稱：$sysname"
  }
#2.網路介面
  if { [string range $line 0 14]=="IF-MIB::ifDescr" } {
  lappend netin [lindex $line 3]
  }
  if { [string range $line 0 20]=="IF-MIB::ifPhysAddress" } {
  lappend macaddr [lindex $line 3]
  }
  if { [string range $line 0 19]=="IF-MIB::ifOperStatus" } {
  lappend instat [lindex $line 3]
  }
  if { [string range $line 0 21]=="IP-MIB::ipAdEntIfIndex" } {
  set linaddr [lindex $line 0]
  set indexaddr [lindex $line 3]
  set inaddr [string range $linaddr 23 end]
  lappend laddr "$indexaddr $inaddr"
  }
  if { [string range $line 0 17]=="IF-MIB::ifInOctets" } {
  set inoct [lindex $line 3]
  lappend inoctmb [format %.2f [expr $inoct/1024.0/1024.0]]
  }
  if { [string range $line 0 18]=="IF-MIB::ifOutOctets" } {
  set outoct [lindex $line 3]
  lappend outoctmb [format %.2f [expr $outoct/1024.0/1024.0]]
  }
  if { [string range $line 0 28]=="TCP-MIB::tcpConnState.0.0.0.0" } {
    if {[lindex $line 3]=="listen(2)"} {
    lappend listenp [lindex [split [string range [lindex $line 0] 30 end] . ] 0]
    }
  }
#3.處理器
  if { [string range $line end-16 end]=="hrDeviceProcessor" } {
  incr cpun
  lappend node_cpu [string range [lindex $line 0] 33 end]
  }
  if { [string range $line 0 32]=="HOST-RESOURCES-MIB::hrDeviceDescr" } {
  foreach var $node_cpu {
    if {[string range [lindex $line 0] 34 end]==$var} {
      lappend cputype [lrange $line 3 end]
      }
    }
  }

#3.系統資源
  if { [string range $line 0 33]=="HOST-RESOURCES-MIB::hrFSMountPoint" } {
  lappend mountp1 [lindex $line 3]
  }
  if {[string range [lindex $line 0] 0 27]=="HOST-RESOURCES-MIB::hrFSType"} {
  set orifs [lindex $line 3]
  if {[string range $orifs 24 end]=="FSSys5FS"} { lappend fstype "UFS" }
  if {[string range $orifs 24 end]=="FSNFS"} { lappend fstype "NFS" }
  if {[string range $orifs 24 end]=="FSFat"} { lappend fstype "FAT(Windows)" }
  if {[string range $orifs 24 end]=="FSLinuxExt2"} { lappend fstype "Ext2(Linux)" }
  if {[string range $orifs 24 end]=="FSOther"} { lappend fstype "unknown/devfs" }
  }
  if { [string range $line 0 31]=="HOST-RESOURCES-MIB::hrMemorySize" } {
  set memsize [lindex $line 3]
  lappend memsizem [expr $memsize/1024]
  }
  if { [string range $line 0 32]=="HOST-RESOURCES-MIB::hrStorageSize" } {
  lappend node_storsize [string range [lindex $line 0] 34 end]
  set storsize [lindex $line 3]
  lappend storsizemb [expr $storsize/1024 ]
  }
  if { [string range $line 0 33]=="HOST-RESOURCES-MIB::hrStorageDescr" } {
      lappend node_mount [string range [lindex $line 0] 35 end]
      lappend mountp [lindex $line 3]
  }
  if { [string range $line 0 32]=="HOST-RESOURCES-MIB::hrStorageUsed" } {
  lappend node_storuse [string range [lindex $line 0] 34 end]
  set storuse [lindex $line 3]
  lappend storusemb [expr $storuse/1024]
  }

}
set stori [llength $node_storsize]
set storj [llength $node_storuse]
for { set i 0 } {$i<$stori} {incr i} {
  set stor1 [lindex $storsizemb $i]
  set stor3 [lindex $mountp $i]
  set index_stor1 [lindex $node_storsize $i]
  for {set j 0} {$j<$storj } { incr j} {
  set stor2 [lindex $storusemb $j]
  set index_stor2 [lindex $node_storuse $j]
  if { $index_stor1==$index_stor2 } {
    lappend storage "$stor3 $stor1 $stor2"
    }
  }
}
set addr [lsort -index 0 $laddr]

puts "網路介面：(裝置： IP位址  MAC位址)"
set lnet [llength $netin]
for { set i 0 } { $i<$lnet } {incr i} {
set netin1 [lindex $netin $i]
set macaddr1 [lindex $macaddr $i]
set addr1 [lindex $addr $i]
puts "$netin1: $addr1 $macaddr1"
}

puts "連線狀態：$instat"
puts "網路總下載流量：$inoctmb"
puts "網路總上傳流量：$outoctmb"
puts "Listen Port：$listenp"
puts "處理器數目：$cpun"
puts "CPU類型："
set lcputype [llength $cputype]
for {set i 0} {$i<$lcputype} { incr i} {
puts [lindex $cputype $i]
}
puts "磁碟空間用量：(全部/已使用)"
set lstorage [llength $storage]
for { set i 0 } { $i<$lstorage } { incr i} {
set storage1 [lindex $storage $i]
puts "$storage1 MB "
}

puts "檔案系統："
set lfstype [llength $fstype]
for {set i 0} { $i<$lfstype } {incr i} {
set fstype1 [lindex $fstype $i]
set mountp11 [lindex $mountp1 $i]
puts "$fstype1 $mountp11"
}

各位大師抱歉，本肉腳又遭遇到瓶頸了，這次肉腳是實做samba server，samba的帳戶是透過另一台freeradius機器來驗證。
目前的狀況是samba架的起來，freeradius2也架起來了，使用radtest指令測試users檔案裡面的帳號也通過了。
但是接下來如何將它們結合起來，肉腳就想不出來。
目前是在smb.conf中passwd server = 127.0.0.1:1812       (目前還在同一台機器上測試)  並且security = server
至於freeradius的設定檔只有新增了一個驗證網域和users檔案的新帳號。(驗證機制沒有動)
在/etc/nsswitch.conf中的passwd:欄位files後面加winbind(肉腳亂猜的)

接者在其他台同網域機器用smbclient到該台主機，輸入freeradius帳號後顯示：session setup failed: NT_STATUS_LOGIN_FAILURE
而server端是用radiusd -X啟動，當smbclient登入時，顯示訊息沒變動，沒有跳出之前radtest會產生的連接驗證訊息。
目前肉腳被卡在這裡，不曉得下一步該怎麼做。希望各位大師指點，謝謝。

本肉腳目前有兩台NIS Server，系統都是BSD，有開啟ypserv和ypbind。(啟動ypbind主要是能夠直接在這部機器測試)
一台Master、另一台Slave，目前已經可以用NIS帳號登入。但是現在遇到的問題是設定了netgroup後，還是一直可以登入。

假設本肉腳的NIS domainename設定為：a1，本肉腳是使用者m3
nis_adm1 (,m1,a1) (,m2,a1)  (,m3,a1)
nis_adm2 (,m1,a1) (,m2,a1)

本肉腳用vipw在測試的Client端的/etc/master.passwd的尾端加入：
+@nis_adm2:::::::::
+:::::::::/sbin/nologin
這兩行不論我上下對調位置、兩行都註解掉、只保留+@nis_adm2、只用-@nis_adm1等組合，肉腳一直能夠登入。
已確定測試這台沒有放肉腳帳號，肉腳的id是NIS的帳號。ypcat -k netgroup也看得到定義的資訊。
在/etc/nsswitch.conf中是寫入這些資訊：
group: nis compat
group_compat: nis
hosts: files dns
networks: files
passwd: files nis
passwd_compat: nis
shells: files
services: compat
services_compat: nis
protocols: files
rpc: nis files
netgroup: nis

因此本肉腳一直想不通發生了什麼事，希望各位大師指教，謝謝。

下載地址：
http://www.opensolaris.com/get/index.jsp
如果各位跟我一樣是肉腳，那就更適合用Solaris系統。
Windows,Mac真的操作難度太高了.....

本肉腳一直很羨慕OpenSolaris上有許多很新的版本軟體。但是Solaris 10(SXDE)上面，
仍保有很多好用的東西，所以一直想嘗試找到SUNWipkg這個套件，
但是網路上找不到下載處......

後來有看了這個網頁：
http://blogs.sun.com/kronox/entry/ips_on_solaris_10
案造他的步驟，一直到"How to use"結束就沒辦法進行下一步了.....
安裝過程第八步，沒有產生SUNWipkg跟SUNWpython-cherrypy這兩個套件。
但是How to use的啟動服務都有成功。
之後在/var/pkg/repo/catalog下產生了attrs這個檔案。下一步就不知道要如何進行了.....
懇請各位大師指教......  謝謝.....