egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2004-01-28T20:37:21-04:00 https://forum.eggheads.org/app.php/feed/topic/6732 2004-01-28T20:37:21-04:00 2004-01-28T20:37:21-04:00 https://forum.eggheads.org/viewtopic.php?p=33051#p33051 <![CDATA[The cut'n'paste-force is strong with this one]]>
it worked
Cool :mrgreen:

Statistics: Posted by user — Wed Jan 28, 2004 8:37 pm

]]> 2004-01-28T20:25:07-04:00 2004-01-28T20:25:07-04:00 https://forum.eggheads.org/viewtopic.php?p=33048#p33048 <![CDATA[ServerCheck script]]> it worked

Statistics: Posted by cvanmeer — Wed Jan 28, 2004 8:25 pm

]]> 2004-01-28T14:26:51-04:00 2004-01-28T14:26:51-04:00 https://forum.eggheads.org/viewtopic.php?p=33030#p33030 <![CDATA[ServerCheck script]]> example 1 (creating the a string for output):

Code: 

set out {}foreach {server server status} [regexp -all -nocase -inline {<tr><td>([^<]+)</td><td><img [^>]+>([^<]+)</td></tr>} $html] {lappend out "$server is $status"}set out [join $out ", "]
example 2 (storing the values in an array):

Code: 

foreach {server server status} [regexp -all -nocase -inline {<tr><td>([^<]+)</td><td><img [^>]+>([^<]+)</td></tr>} $html] {set onoroff($server) $status}
..then loop through [array names onoroff] or access onoroff(Name) directly (check if {[info exists ...] first to avoid errors)

Statistics: Posted by user — Wed Jan 28, 2004 2:26 pm

]]> 2004-01-28T14:08:01-04:00 2004-01-28T14:08:01-04:00 https://forum.eggheads.org/viewtopic.php?p=33029#p33029 <![CDATA[ServerCheck script]]>
This will make it fairly robust I hope. Clue: the first variable in the foreach will be overwritten by the second one by the same name (making it discard the first reported value in each match, which is the entire match)
I don't get it, sorry.

And how do I put the right values in the right one of the 5 variables?

could you write some code to help me?

thx.

Chris
PS. Sorry I don't understand what you mean. I'm not that an expert :(

Statistics: Posted by cvanmeer — Wed Jan 28, 2004 2:08 pm

]]> 2004-01-28T13:56:17-04:00 2004-01-28T13:56:17-04:00 https://forum.eggheads.org/viewtopic.php?p=33028#p33028 <![CDATA[ServerCheck script]]> this thread with the following regexp rule:

Code: 

{<tr><td>([^<]+)</td><td><img [^>]+>([^<]+)</td></tr>}
This will make it fairly robust I hope. Clue: the first variable in the foreach will be overwritten by the second one by the same name (making it discard the first reported value in each match, which is the entire match)

Statistics: Posted by user — Wed Jan 28, 2004 1:56 pm

]]> 2004-01-28T13:27:44-04:00 2004-01-28T13:27:44-04:00 https://forum.eggheads.org/viewtopic.php?p=33026#p33026 <![CDATA[ServerCheck script]]>
I'm stuck with creating a TCL script. I have a webpage that I get with http::geturl etc. the output of that file is in $data

let's say the content of $data is:

Code: 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"><html>  <body>      <div id="maindiv" >      <div id="ServerCheckDiv">    <table id="ServerCheckTable">      <tr><th>Server</th><th>Status</th><tr>      <tr><td>Account</td><td><img SRC="dot_green.gif"/>Online</td></tr>      <tr><td>Character</td><td><img SRC="dot_green.gif"/>Online</td></tr>      <tr><td>Interact</td><td><img SRC="dot_green.gif"/>Online</td></tr>      <tr><td>Zone</td><td><img SRC="dot_green.gif"/>Online</td></tr>      <tr><td>Proxy</td><td><img SRC="dot_green.gif"/>Online</td></tr>    </table></div></div>  </body></html>
In this file you see 5 types of servers: Account, Character, Interact, Zone and Proxy. Behind that is says if it's on- or offline

Now I want to make a script that will retrieve every server status and post it on the chan (the account server status goes to $account, character status goes to $character, etc.)

So I want to parse the file and select only row nrs. 8 till 13.
Then it has to search in those rows of it says ONLINE or OFFLINE
And than put that in the right variable (account status in $account, etc)

Could someone help me? I'm really stuck...been trying to make this for over a month now

thx.

Chris

Statistics: Posted by cvanmeer — Wed Jan 28, 2004 1:27 pm

]]>