egghelp/eggheads community

Stock quotes

2011-04-30T16:22:51-04:00

I did as you suggested.

I got:

Code:

 Tcl error [prcMarketCommand]: can't read "data": no such variable

Here's what the script looks like right now:

Code:

package require httpbind PUB n !market prcMarketCommandproc prcMarketCommand {nick uhost hand chan text} {    set url http://www.londonstockexchange.com/home/homepage.htm    set agent [::http::config -useragent "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)"]    set token [::http::geturl $url -timeout 10000]    switch -- [::http::status $token] {        "timeout" {putserv "PRIVMSG $chan :-error- http operation (timed out)"}        "error" {putserv "PRIVMSG $chan :-error- http error ([::http::error $token])"}        "ok" {            switch -- [http::ncode $token] {                200 {                    set rise \00303[encoding convertto utf-8 \u25B2]\003; set fall \00304[encoding convertto utf-8 \u25BC]\003                    set same \00312[encoding convertto utf-8 \u25BA]\003; set lost \00307[encoding convertto utf-8 \u25CF]\003                    regexp -- {\\[\\s\]\(\[^\<\]\+?\)\\[\\s\]\\<\[^\>\]\+\>\(\[^\<\]\+?\)\                    foreach market [array names identity] {                        regexp -- [subst -nocommands -nobackslashes {$identity($market)$pattern}] $data match price($market) change($market)                        if {([info exists price($market)]) && ([info exists change($market)])} {                            switch -- [string index $change($market) 0] {                                \+ {putserv "PRIVMSG $chan :$identity($market) $rise $price($market) $change($market)"}                                \- {putserv "PRIVMSG $chan :$identity($market) $fall $price($market) $change($market)"}                                default {putserv "PRIVMSG $chan :$identity($market) $same $price($market) $change($market)"}                            }                        } else {putserv "PRIVMSG $chan :$identity($market) $lost data unavailable"}                    }                }                default {putserv "PRIVMSG $chan :-error- http ncode ([http::ncode $token])"}            }        }    }    return 0}

Statistics: Posted by marx2k — Sat Apr 30, 2011 4:22 pm

Stock quotes

2011-04-26T14:10:04-04:00

The url (the 'set url' line) has changed thus why it's no longer working. Tried changing it to current main address?

Statistics: Posted by caesar — Tue Apr 26, 2011 2:10 pm

Stock quotes

2011-04-26T10:52:47-04:00

This does not seem to function any longer. Could this be updated to work again? Would be great.

Statistics: Posted by marx2k — Tue Apr 26, 2011 10:52 am

Stock quotes

2009-03-08T20:00:04-04:00

Code:

package require httpbind PUB n !market prcMarketCommandproc prcMarketCommand {nick uhost hand chan text} {    set url http://www.londonstockexchange.com/en-gb/home.htm    set agent [::http::config -useragent "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)"]    set token [::http::geturl $url -timeout 10000]    switch -- [::http::status $token] {        "timeout" {putserv "PRIVMSG $chan :-error- http operation (timed out)"}        "error" {putserv "PRIVMSG $chan :-error- http error ([::http::error $token])"}        "ok" {            switch -- [http::ncode $token] {                200 {                    set rise \00303[encoding convertto utf-8 \u25B2]\003; set fall \00304[encoding convertto utf-8 \u25BC]\003                    set same \00312[encoding convertto utf-8 \u25BA]\003; set lost \00307[encoding convertto utf-8 \u25CF]\003                    regexp -- {\\[\\s\]\(\[^\<\]\+?\)\\[\\s\]\\<\[^\>\]\+\>\(\[^\<\]\+?\)\                    foreach market [array names identity] {                        regexp -- [subst -nocommands -nobackslashes {$identity($market)$pattern}] $data match price($market) change($market)                        if {([info exists price($market)]) && ([info exists change($market)])} {                            switch -- [string index $change($market) 0] {                                \+ {putserv "PRIVMSG $chan :$identity($market) $rise $price($market) $change($market)"}                                \- {putserv "PRIVMSG $chan :$identity($market) $fall $price($market) $change($market)"}                                default {putserv "PRIVMSG $chan :$identity($market) $same $price($market) $change($market)"}                            }                        } else {putserv "PRIVMSG $chan :$identity($market) $lost data unavailable"}                    }                }                default {putserv "PRIVMSG $chan :-error- http ncode ([http::ncode $token])"}            }        }    }    return 0}

SELL SELL SELL!!!

Statistics: Posted by arfer — Sun Mar 08, 2009 8:00 pm

Stock quotes

2009-03-04T21:37:02-04:00

Hello,

I need something more specific than the current stock scripts on the archive. The scripts that are available now only show one index at a time. Example:

!dow
(Down Jones) 6800 -100 | 3/4/2009

I would like to display three indexes like so...

!us
(Dow Jones 6800 -100 2%) (Nasdaq 2000 -100 5.3%) (S&P 700 -20 1.3%)

I would also like to display percentage loss and gains. Lastly, I noticed the other scripts have if and else conditions to display the numbers that are positive are green and negative numbers are red.

Statistics: Posted by start — Wed Mar 04, 2009 9:37 pm