Code: Select all
# BAROMETER
if {[regexp -- {"pressure": (.*?),} $html - bar]} {
regexp -- {barometer : "(.*?)"} $html - cond
set output(pressure_data) "$bar & $cond"
}
Code: Select all
# BAROMETER
if {[regexp -- {"pressure": (.*?),} $html - bar]} {
set output(pressure_data) "$bar"
}
Code: Select all
if {[regexp -nocase {"pressure": (.*?),} $html - bar]} {
if {[regexp -nocase {"barometer": (.*?),} $html - cond]} {
set output(pressure_data) "$bar & $cond"
} else {
set output(pressure_data) "$bar"
}
}
Code: Select all
Tcl error [incith::weather::weather_handler]: can't read "html(todays_day)": no such element in array
Code: Select all
OLD: ::http::register https 443 [list ::tls::socket -request 1 -require 0 -ssl3 1 -tls1 1]
NEW: ::http::register https 443 [list ::tls::socket -request 1 -require 0 -ssl3 0 -tls1 1]
Code: Select all
#day
set fc_regexp_day {<td class="taC" style="width: 20%;">(.+?)</td>}
#condition
set fc_regexp_cond {<div><img src=".+?\.gif" alt="(.+?)" width="\d\d" height="\d\d" class="condIcon" /></div>}
# high/low
set fc_regexp_highlow {<div class="b nobr"><span style="color: #900;">(.+?)° F</span><span style="font-weight: normal; color: #999;">\|</span><span style="color: #009;">(.+?)° F</span><br />.*?° C.*?° C.*?</div>}
hellohello, check out this script which is working as of nowhellohello wrote:ok folks, this script seems to be dead in the water... is there an update?