Code:

set stock2(pref) "!"set stock2(commands) "trigger"set stock2(time) 10set stock2(page) http://m.dsemonitor.compackage require httpforeach bind [split $stock2(commands) " "] {bind pub -|- $stock2(pref)$bind stock2_pubbind msg -|- $stock2(pref)$bind stock2_msg}proc stock2_msg {nick uhost hand text} {    stock2_stock2 $nick $uhost $hand $nick $text}proc stock2_pub {nick uhost hand chan text} {   stock2_stock2 $nick $uhost $hand $chan $text}proc stock2_stock2 {nick uhost hand chan text} {    global stock2 lastbind    set text [lindex [split $text] 0]    if {![isnumber $text]} {        putserv "PRIVMSG $chan :Usage: \002$lastbind\002 <number of lines to show>"        return 0    }    set agent "Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.1) Gecko/2008070208 Firefox/3.0.1"    set stock2_tok [::http::config -useragent $agent]    set stock2_tok [::http::geturl "$stock2(page)" -timeout 30000]      set data [::http::data $stock2_tok]    ::http::cleanup $stock2_tok    regexp {<div class='quote'>(.*?)<div id='market_status'>} $data "" data    regsub -all -- {<div class='quote'>} $data "|" data    regsub -all -- {\<[^\>]*\>} $data "" data    set i 0    foreach line [split $data "|"] {            if {$i < $text} {                putserv "PRIVMSG $chan :$line"                incr i            } else { return 0 }    }}putlog "stock2.tcl loaded..."

Code:

website : http://m.dsemonitor.com

Code:

Trading Code: UCBL Company No: 11108Business Segment Bank

Code:

set stock(pref) "!"set stock(commands) "trigger"set stock(time) 10set stock(page) http://www.dsebd.org/displayCompany.php?name=package require httpforeach bind [split $stock(commands) " "] {bind pub -|- $stock(pref)$bind stock_pubbind msg -|- $stock(pref)$bind stock_msg}proc stock_msg {nick uhost hand text} {    stock_stock $nick $uhost $hand $nick $text}proc stock_pub {nick uhost hand chan text} {   stock_stock $nick $uhost $hand $chan $text}proc stock_stock {nick uhost hand chan text} {    global stock lastbind    set text [lindex [split $text] 0]    set agent "Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.1) Gecko/2008070208 Firefox/3.0.1"    set stock_tok [::http::config -useragent $agent]    set stock_tok [::http::geturl "$stock(page)$text" -timeout 30000]      set data [::http::data $stock_tok]    ::http::cleanup $stock_tok    regsub -all -- {\n} $data "" data    regsub -all -- { } $data " " data    regsub -all -- {\s+} $data " " data    set mstatus ""; set cname ""; set ltrade ""; set lupddate ""    set change ""; set oprice ""; set yclose ""; set drange ""    set mlot ""; set tcode ""; set cno ""; set bsegment ""    regexp {Market Status:(.*?)</font>} $data "" mstatus     regexp {Company Name</font>:(.*?)</font>} $data "" cname    regsub -all -- {\<[^\>]*\>} $cname "" cname    regexp {Last Trade</font>(.*?)<tr>} $data "" ltrade    regsub -all -- {\<[^\>]*\>} $ltrade "" ltrade    regexp {Last Update</font>(.*?)<tr>} $data "" lupdate    regsub -all -- {\<[^\>]*\>} $lupdate "" lupdate    regexp {Change</font>(.*?)</table>} $data "" change    regsub -all -- {\<[^\>]*\>} $change "" change    regexp {Open Price</font>(.*?)<tr>} $data "" oprice    regsub -all -- {\<[^\>]*\>} $oprice "" oprice    regexp {Yesterday Close</font>(.*?)</table>} $data "" yclose    regsub -all -- {\<[^\>]*\>} $yclose "" yclose    regexp {Day's Range</font>(.*?)<tr>} $data "" drange    regsub -all -- {\<[^\>]*\>} $drange "" drange    regexp {Market Lot</font>(.*?)<tr>} $data "" mlot    regsub -all -- {\<[^\>]*\>} $mlot "" mlot    regexp {Trading Code:(.*?)</font>} $data "" tcode    regexp {Company No:(.*?)</font>} $data "" cno    regexp {Business Segment</font>(.*?)</table>} $data "" bsegment    regsub -all -- {\<[^\>]*\>} $bsegment "" bsegment    putserv "PRIVMSG $chan :Market Status: $mstatus"    putserv "PRIVMSG $chan :Company Name: $cname"    putserv "PRIVMSG $chan :Last Trade: $ltrade"    putserv "PRIVMSG $chan :Last Update: $lupdate"    putserv "PRIVMSG $chan :Change: $change"    putserv "PRIVMSG $chan :Open Price: $oprice"    putserv "PRIVMSG $chan :Yesterday Close: $yclose"    putserv "PRIVMSG $chan :Day's Range: $drange"    putserv "PRIVMSG $chan :Market Lot: $mlot"    putserv "PRIVMSG $chan :Trading Code: $tcode"    putserv "PRIVMSG $chan :Company No: $cno"    putserv "PRIVMSG $chan :Business Segment: $bsegment"}putlog "stock.tcl loaded..."

Code:

Market Status: ClosedCompany Name:  UNITED COMMERCIAL BANK LTD.Last Trade 222.50Last Update Jan 16, 2011 at 17:25:45Change  -2.4 -1.07%Open Price 226.0Yesterday Close 224.9Day's Range 217.1 - 227.5 Market Lot 50