# Заходим на сайт, вводим логин и пароль и получаем куки:
set id [::http::meta [::http::geturl http://www.odnoklassniki.ru/dk?cmd=AnonymLogin&\;st.cmd=anonymLogin&\;tkn=941 -timeout 20000 -query [::http::formatQuery st.posted set st.email МЫЛО st.password ПАРОЛЬ submit ""]]]
# Берём только то что нам нужно для идентификации:
regexp -nocase -- {.*JSESSIONID=(.*?);.*} $id -> id
# Заходим по заданной сылке идентифицированные уже:
set html [::http::geturl http://www.odnoklassniki.ru/ -binary 1 -timeout 20000 -headers [list Cookie "JSESSIONID=$id"]]
# Приводим полученные данные для последующего анализа:
set data [encoding convertfrom utf-8 [regsub -all -- {\n|\r|\t|\v} [::http::data $html] ""]]; ::http::cleanup $html
# Сохраним в файлик то что получили:
::ccs::SaveFile ok.txt [list $data]

bind pub - !ip par

proc par {nick uhost hand chan text} {
set text [lindex [split $text] 0]
set file "/etc/openvpn/openvpn.log"
set rfile [read [open $file r]]
set rez [lindex [regexp -all -inline -- "Client\/(.*?):1194 SENT CONTROL.*?PUSH_REPLY,ping 10,ping-restart 120,ifconfig $text 255.255.255.0" $rfile] end]
putserv "PRIVMSG $chan :$rez"
}

bind pub - !ip par   
proc par {nick uhost hand chan text} {
if {$text == ""} {putserv "NOTICE $nick :Формат: !ip <ip>"; return}   
set maska "Client/(.*?):.*?ifconfig [lindex [split $text] 0] 255"
set filep [open /etc/openvpn/openvpn.log r]   
set rez ""; foreach line [split [read $filep] \n] { if {[regexp -nocase -- $maska $line -> ip]} {set rez $ip} }   
close $filep
putserv "PRIVMSG $chan :$rez"   
}

bind pub - !vhset       vhsetpub  
bind pub m !restricted+ restrictedpluspub  

set restricteds "data/restricted.txt"

proc vhsetpub {nick uhost hand chan text} {  
global restricteds  
set host [lindex [split [string trim [string map { {}} [stripcodes cubr $text]]]] 0]  
if {$host == ""} {putserv "NOTICE $nick :Формат: !vhset <ident@virtualnyi.host>"; return}  
if {[regexp -nocase -- {[а-я]} $host]} {putserv "NOTICE $nick :Кирилица в хосте запрещена."; return}  
if {[regexp -- {[0-9\.]{5,30}} $host]} {putserv "NOTICE $nick :Хост не должен походить на ip."; return}  
if {[file exists $restricteds]} {  
set rfilep [open $restricteds r]; set data [lrange [split [read $rfilep] \n] 0 end-1]; close $rfilep; foreach line $data {  
if {[string match -noc "[lindex $line 0]" $host]} {putserv "NOTICE $nick :Этот хост запрещён."; return}
} }
putserv "HostServ set $nick $host"  
putserv "NOTICE $nick :Ваш виртуальный хост: \002$host\002 Для дальнейшей активации вашего виртуального хоста используйте команду: \002/hs on\002"  
newchanban $chan $nick!*@* $::botnick "Увидимся через 7 дней." 10080; newchanban $chan *!$uhost $::botnick "Увидимся через 7 дней." 10080  
if {[string match "*@*" $host]} {newchanban $chan *!$host $::botnick "Увидимся через 7 дней." 10080} {newchanban $chan *!*@$host $::botnick "Увидимся через 7 дней." 10080}
}

proc restrictedpluspub {nick uhost hand chan text} {
global restricteds
set text [lindex [split [string trim [string map { {}} [stripcodes cubr $text]]]] 0]
if {$text == ""} {putserv "NOTICE $nick :Формат: !restricted+ <хост>. Можно использовать '*' и '?'."; return}
if {![file exists $restricteds]} {set f [open $restricteds w+]; close $f}
set rfilep [open $restricteds a+]; puts $rfilep $text; close $rfilep
putserv "NOTICE $nick :\002$text\002 успешно добавлен."
}