김형원입니다 Manuz.Com :: Tur-Trial v2.6 Addon ...

이 스크립은 ioFTPD 에 있는 !quotas 기능과 같은것이라고 보면 된다.

위를 보시면 아는 분은 대충 이해하실거라고 본다....
설치 방법은 아주 간단하다.

tur-trial 2.6 은 깔려 있다고 가정하고 설정도 완료 했으며 현재 사용중이라는 전제아래에 설명한다.

bind pub - !quota pub:quotacheck

proc pub:quotacheck {nick output binary chan text} {
set binary {/glftpd/bin/tur-trial.sh}
set datebin {date}

set output [exec $binary dummy quota test]
set month [exec $datebin +%B]

set addedtm 0
set delled 0
set gexcluded 0
set nopass 0
set pass 0

foreach line [split $output \n] {
if {[string match *User*added*this*month* $line]} {
incr addedtm
} elseif {[string match *Already*delled*though* $line]} {
incr delled
} elseif {[string match *Group*Exclude*Match* $line]} {
incr gexcluded
} elseif {[string match *Putting*flag*6*on*him!* $line]} {
incr nopass
} elseif {[string match *Safe*$4096$* $line]} {
incr pass
set passuser [lindex $line 0]
append userlist "$passuser, "
} else { }
}
putserv "PRIVMSG $chan :QUOTA + QUOTA STAT + (up to date of $month)"
putserv "PRIVMSG $chan :QUOTA ... $delled already delled. ^ $gexcluded group excluded. ^ $nopass didn't passed. ^ $pass passed."
putserv "PRIVMSG $chan :QUOTA + PASSED USER LIST (up to date of $month)"
putserv "PRIVMSG $chan :QUOTA ... $userlist"
}

putlog "tur-trial addon v1.0 by Manu loaded"

tcl 소스이다 tur-trial-addon.tcl 이라고 저장한후
봇에다 로드한다 :)
Site channel 에서 !quota 를 입력해보자

PS. 다른 서버에서는 전혀 테스트 해보지 않았으며 나혼자 사용하기 위해 만든 스크립이니 에러가 발생한다면 필자에게 물어보던지 아니면.. 직접 고쳐서 사용하길 바란다..

추가로 서버의 quota 양이 4096이 아니라면

} elseif {[string match *Safe*$4096$* $line]} {

이 라인의 4096을 현재 설정해둔 양으로 고쳐서 사용하길 바란다.