@@ -2,15 +2,18 @@ require "rubygems" require "hpricot" +require "net/http" require "open-uri" require "net/telnet" -include Net +# include Net class Stoker attr_accessor :host, :user, :pass, :http_port, :telnet_port attr_reader :telnet, :sensors, :blowers + ALARMS = ["None", "Food", "Fire"] + def initialize(host = nil, options = {}) @host = host @http_port = options[:http_port] || 80 @@ -25,7 +28,7 @@ class Stoker end def connect(txt = nil) - @telnet = Telnet.new("Host" => @host, "Port" => @telnet_port) + @telnet = Net::Telnet.new("Host" => @host, "Port" => @telnet_port) @telnet.login(@user, @pass) # bbq -k # gc @@ -36,11 +39,13 @@ class Stoker @telnet.close end - def find_sensors(html = nil) + def find_sensors(html = nil, attempt = 1) @sensors = [] @blowers = [] + html ||= open("http://#{@host}:#{@http_port}") + contents = html.read - doc = Hpricot(html || open("http://#{@host}:#{@http_port}")) + doc = Hpricot(contents) (doc/"td.ser_num/b[text() = 'Blower']:first/../../../tr").each do |row| unless (row/"td:first/b").size > 0 @@ -56,13 +61,40 @@ class Stoker sensor.name = row.at("td[2]/input")['value'].strip sensor.temp = row.at("td[3]").inner_html sensor.target = row.at("td[4]/input")['value'].strip - sensor.alarm = row.at("td[5]/select/option[@selected='selected']").inner_html rescue "None" + # sensor.alarm = row.at("td[5]/select/option[@selected='selected']").inner_html rescue "None" sensor.low = row.at("td[6]/input")['value'].strip sensor.high = row.at("td[7]/input")['value'].strip - sensor.blower = row.at("td[8]/select/option[@selected='selected']").inner_html rescue "None" + # sensor.blower = row.at("td[8]/select/option[@selected='selected']").inner_html rescue "None" @sensors << sensor end end + + if contents =~ /sel = \[(.*)\];$/ + blower_alarm_string = $1 + end + + count = 0 + for_sensor = 0 + blower_alarm_string.split(",").each do |val| + case count + when 0 + @sensors[for_sensor].alarm = Stoker::ALARMS[val.to_i] + count += 1 + when 1 + @sensors[for_sensor].blower = val.gsub(/\"/,'') + count = 0 + for_sensor += 1 + end + end + + rescue Net::HTTPBadResponse + if attempt > 4 + raise "Web page output corrupt. Tried too many times, giving up." + else + attempt += 1 + puts "Warning: Web page output corrupt. Retrying... attempt #{attempt}" + find_sensors(html, attempt) + end end end @@ -81,6 +113,11 @@ class Sensor @name = str # TODO: update stoker end + + def blower=(blower_serial_number) + @blower = @stoker.blowers.find{|b| b.serial_number == blower_serial_number} + # TODO: update stoker + end end class Blower @@ -98,5 +135,9 @@ class Blower @name = str # TODO: update stoker end + + def sensor + stoker.sensors.find{|s| s.blower.serial_number == self.serial_number} + end end lib/stoker.rb @@ -3,15 +3,16 @@ require "lib/stoker" stoker = Stoker.new("10.1.1.8", :html => File.open("tests/test1.html")) +# stoker = Stoker.new("10.1.1.8") puts "Listing blowers:" stoker.blowers.each do |blower| - puts "#{blower.serial_number}, #{blower.name}" + puts "#{blower.serial_number}, #{blower.name}, #{blower.sensor.name rescue ''}" end puts "Listing sensors:" stoker.sensors.each do |sensor| - puts "#{sensor.serial_number}, #{sensor.name}, #{sensor.temp}" + puts "#{sensor.serial_number}, #{sensor.name}, #{sensor.temp}, #{sensor.target}, #{sensor.alarm}, #{sensor.low}, #{sensor.high}, #{sensor.blower.name rescue ''}" end # ideas: test.rb @@ -1,9 +1,7 @@ <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> -<STYLE type="text/css"> -.ser_num { display: none } -</STYLE> + <style type="text/css"> .alarming { background-color: red } </style> @@ -92,7 +90,7 @@ function do_presel(sr_rows, sw_rows) { Powered by <a href="http://www.rocksbarbque.com">Rock's Bar-B-Que</a><br /> Software by kaytat, Version -2.0.259 +2.1.287 </p> <script type="text/javascript">  </script> </td> - <td align="right"> <table BORDER="2" CELLPADDING="5"> <tr><td class="ser_num"><b>Blower</b></td> @@ -115,7 +112,6 @@ document.write(Date() + "<br /><b>Temperatures in F</b>"); </td> </tr> <tr> - <td colspan="2"> <table BORDER="2" CELLPADDING="5"> <tr> @@ -126,38 +122,35 @@ document.write(Date() + "<br /><b>Temperatures in F</b>"); <td><b>Alarm</b></td> <td><b>Low Set</b></td> <td><b>High Set</b></td> - <td><b>Blower</b></td> </tr> -<tr><td colspan="7"><b>Control Sensors</b></td></tr> -<tr> +<tr><td colspan="8"><b>Control Sensors</b></td></tr> +<tr class="alarming"> <td class="ser_num">440000112A621E30</td> <td><input size="16" maxLength="32" name="n1440000112A621E30" value="Pit Temp "></td> -<td>107.2</td> -<td><input size="6" maxLength="6" name="ta440000112A621E30" value="450"></td> +<td>72.2</td> +<td><input size="6" maxLength="6" name="ta440000112A621E30" value="72"></td> <td><select name="al440000112A621E30" onchange="do_disable(0, 0)"> <option value="0">None <option value="1">Food <option value="2">Fire - </select> </td> -<td><input size="6" maxLength="6" name="tl440000112A621E30" value="32"></td> -<td><input size="6" maxLength="6" name="th440000112A621E30" value="32"></td> +<td><input size="6" maxLength="6" name="tl440000112A621E30" value="0"></td> +<td><input size="6" maxLength="6" name="th440000112A621E30" value="0"></td> <td><select name="sw440000112A621E30"> <option value="None">None <option value="140000002AA65105">Fan </select> </td> </tr> -<tr><td colspan="7"><b>Alarm Sensors</b></td></tr> +<tr><td colspan="8"><b>Alarm Sensors</b></td></tr> <tr> <td class="ser_num">0E0000112A5D1630</td> -<td><input size="16" maxLength="32" name="n10E0000112A5D1630" value="temp1 "></td> -<td>64.6</td> - -<td><input size="6" maxLength="6" name="ta0E0000112A5D1630" value="95"></td> +<td><input size="16" maxLength="32" name="n10E0000112A5D1630" value="Blue "></td> +<td>76.9</td> +<td><input size="6" maxLength="6" name="ta0E0000112A5D1630" value="140"></td> <td><select name="al0E0000112A5D1630" onchange="do_disable(1, 0)"> <option value="0">None <option value="1">Food @@ -165,20 +158,18 @@ document.write(Date() + "<br /><b>Temperatures in F</b>"); </select> </td> <td><input size="6" maxLength="6" name="tl0E0000112A5D1630" value="32"></td> -<td><input size="6" maxLength="6" name="th0E0000112A5D1630" value="95"></td> +<td><input size="6" maxLength="6" name="th0E0000112A5D1630" value="344"></td> <td><select name="sw0E0000112A5D1630"> <option value="None">None <option value="140000002AA65105">Fan </select> </td> </tr> -<tr><td colspan="7"><b>Monitoring Sensors</b></td></tr> - <tr> <td class="ser_num">530000112A584E30</td> -<td><input size="16" maxLength="32" name="n1530000112A584E30" value="temp2 "></td> -<td>65.9</td> -<td><input size="6" maxLength="6" name="ta530000112A584E30" value="32"></td> +<td><input size="16" maxLength="32" name="n1530000112A584E30" value="Yellow "></td> +<td>75.8</td> +<td><input size="6" maxLength="6" name="ta530000112A584E30" value="76"></td> <td><select name="al530000112A584E30" onchange="do_disable(2, 0)"> <option value="0">None <option value="1">Food @@ -189,23 +180,22 @@ document.write(Date() + "<br /><b>Temperatures in F</b>"); <td><input size="6" maxLength="6" name="th530000112A584E30" value="32"></td> <td><select name="sw530000112A584E30"> <option value="None">None - <option value="140000002AA65105">Fan </select> </td> </tr> +<tr><td colspan="8"><b>Monitoring Sensors</b></td></tr> <tr> <td class="ser_num">9C00001195DEE430</td> -<td><input size="16" maxLength="32" name="n19C00001195DEE430" value="temp3 "></td> -<td>72.6</td> -<td><input size="6" maxLength="6" name="ta9C00001195DEE430" value="180"></td> -<td><select name="al9C00001195DEE430" onchange="do_disable(3, 0)"> +<td><input size="16" maxLength="32" name="n19C00001195DEE430" value="Red "></td> +<td>74.6</td> +<td><input size="6" maxLength="6" name="ta9C00001195DEE430" value="130"></td> +<td><select name="al9C00001195DEE430" onchange="do_disable(2, 0)"> <option value="0">None <option value="1">Food <option value="2">Fire </select> </td> - <td><input size="6" maxLength="6" name="tl9C00001195DEE430" value="32"></td> <td><input size="6" maxLength="6" name="th9C00001195DEE430" value="32"></td> <td><select name="sw9C00001195DEE430"> @@ -216,9 +206,9 @@ document.write(Date() + "<br /><b>Temperatures in F</b>"); </tr> <SCRIPT type="text/javascript">  </script> @@ -226,7 +216,6 @@ var check = false <td class="ser_num"><b>Temp Sensor</b></td> <td><b>Description</b></td> <td><b>Temp</b></td> - <td><b>Target</b></td> <td><b>Alarm</b></td> <td><b>Low Set</b></td> @@ -239,7 +228,6 @@ var check = false <tr> <td colspan="2"> <br /> - <input type="checkbox" name="q_show_ser" />Show serial numbers<br /> <INPUT TYPE="submit" VALUE="Save Changes" /> </td> @@ -256,5 +244,4 @@ var check = false </table> </form> </BODY> - -</HTML> +</HTML> \ No newline at end of file tests/test1.html 27852dfbe87f6039a92db27f0a76574ea9d3508c Tony Buser tbuser@gmail.com http://github.com/tbuser/stoker/commit/36f809d43cafca0855b4e69b5fc441129489857e 36f809d43cafca0855b4e69b5fc441129489857e

2008-06-16T12:47:33-07:00

can now read all the values of the sensors and blowers including alarm and blower assignment 70d179dd55ec2eaedad013da4ddbbebc23d2ab05 Tony Buser tbuser@gmail.com