namespace eval cwer {

package require http 2.7
variable version "1.4"
variable timeout "30"
variable starturl "http://www.cwer.ru"

bind pub - !cwer [namespace current]::pub
bind pub - !цвер [namespace current]::pub

bind msg - !cwer [namespace current]::msg
bind msg - !цвер [namespace current]::msg

variable chflag [namespace tail [namespace current]]
setudef flag $chflag

proc msg {nick uhost hand text} {
pub $nick $uhost $hand $nick $text
}

proc pub {nick uhost hand chan text} {
variable chflag
variable starturl
variable timeout
if {$nick ne $chan && ![channel get $chan $chflag]} {return}

if {[string is space $text]} {
puthelp "PRIVMSG $chan :$nick: $::lastbind \<запрос\> - поиск на сайте cwer.ru"
return
}

if {[regexp -- {^-(\d+)} $text -> num]} {regsub -- "-$num" $text "" text} {set num 1}
set num [scan $num %d]
if {$num eq 0} {set num 1}
set pos $num
if {$num > 20} {
set page [expr round((($num - 1)/20)+1)]
set num [expr $num - 20 * ($page - 1)]
set page "&page=$page"
} else {
set page ""
}

set text [string trim [stripcodes bcruag [string map {\017 ""} $text]]]

putlog "::[namespace current]:: $nick/$chan ($uhost) -> $text"

::http::config \
-urlencoding utf-8 \
-useragent {Opera/9.64 (Windows NT 5.1; U; ru) Presto/2.1.1}

if {[catch {
set token [::http::geturl "${starturl}/sphinx/?s=[::http::formatQuery $text]$page" \
-method GET \
-timeout [expr $timeout*1000] \
-command [list [namespace current]::data $nick $chan $num $pos]]
} err]} {
puthelp "PRIVMSG $chan :$nick: Не удалось соединиться с сервисом. Повторите попытку позже."
return
}
}



proc data {nick chan num pos token} {
variable starturl
set status [::http::status $token]
set code [::http::ncode $token]

if {$status ne "ok" || $code ne "200"} {
::http::cleanup $token
puthelp "PRIVMSG $chan :$nick: Ошибка получения информации."
return 0
}

set data [::http::data $token]
::http::cleanup $token

regsub -all -- "\n|\r|\t" $data "" data

if {[string match -nocase "*Новостей не обнаружено*" $data]} {
puthelp "PRIVMSG $chan :\037Ничего не найдено\037."
return
}

if {![regexp -nocase -- {<script language='JavaScript'.*?'pagesTotal'\s?:\s?(\d+),} $data - tpages]} {
#putfast "PRIVMSG #vb :хуй"
set tpages 1
}

set data [string map {{<div class="node">} \n} $data]
set res [list]
foreach _ [split $data \n] {
if {[regexp -nocase -- {<div class="nodetitle">.*?<a href="(.*?)">(.*?)</a>.*?<div class="nodecontent">(.*?)<div class="readmore">.*?</a></div>.*?class="user">.*?</a>\s(\d{1,2}\/\d{1,2}\/\d{1,2}\s)} $_ -> link name descr date]} {
regsub -all -nocase -- {<span.*?>(.*?)</span>} $descr "\002\\1\002" descr
set descr [strip $descr]
if {[string length $descr] >= 200} {set descr "[string range $descr 0 199]..."}
lappend res "\002$name\002 :: [string trim $date] :: [string trim $descr] @ \037\00312${starturl}$link\037\003"
}
}

set total [llength $res]

#putfast "PRIVMSG #vb :\00303num=$num \003:: \00309total=$total"

if {!$total} {
puthelp "PRIVMSG $chan :Ошибка обработки результатов поиска."
return 1
}



if {$num > $total} {set num $total}

if {$tpages > 1 && $total > 1} {set total [expr $total * $tpages]}

if {$total eq 1} {set pfix ""} {set pfix "\[$pos/$total\] :: "}

putquick "PRIVMSG $chan :$nick: $pfix[lindex $res [expr $num - 1]]"

}

proc strip {text} {
regsub -all -- {<.*?>} $text " " text
regsub -all -- {\s+} $text " " text
return $text
}



return "[file tail [info script]] v$version by Vertigo@RusNet loaded"
}