That json data is somewhat odd, keeping the easiest plans from working:) Let us assume you have that data you posted above saved in a variable named $jsondata I might use something like this... package require json set jdict [::json::json2dict $jsondata] set todaytext [dict get [lindex [dict get $jd...
Version 0.3 tries to make this script a little more user friendly: 1) script will now follow the redirect to the "Similar Symbol Lookup" page. 2) use .chanset #channel +asx to enable this script by channel. 3) and/or use the new channel setting: set asx(chan) "#chan #anotherchan"...
Version 0.2 adds some bare minimum sanity/error checks w/ reporting: 1) restricts user input to 3 - 6 alphanumeric characters. 2) adds some error checking on the http connection & get. 3) put the entire script code in the namespace ausStocks. ## ausStocks.tcl version 0.2 27Jan2023 ## ## Version ...
Looking over the html source file much closer, shows they hide their quote data very well. <td>Last (Price)</td> <td class="text-right"> <span data-quoteapi="price"></span> </td> </tr> <tr> <td>Change</td> <td class="text-right" data-quoteapi="changeSignCSS"> ...
First put this new setting somewhere in the Options section of the script, and add your exempt nicks/masks. # List all Exempt Nicks |and/or| nk!usr@host masks, space separated. # example: set exemptmasks "tom dick harry *!*@sum.host *!myusername@*" set exemptmasks "" Then add thi...