Need Looping/Timer Help Please

2004-06-16T08:50:38-04:00

you forgot to tell us which part of the code you can't get to work
anyway..
remove the return x, no need for those
make sure you add a http::cleanup $statx right after the set data line
make the matching case-insensitive
to tell you how to get the timer right we need to know how you intend to trigger the proc

Statistics: Posted by Papillon — Wed Jun 16, 2004 8:50 am

Need Looping/Timer Help Please

2004-06-16T00:37:04-04:00

What i am trying to do is If the site URL has the text , display every x time the site is down, when the page does not have the text , display the site is back to normal and then only check if the site goes to maintainence ( with out displaying ) then if the site goes down , loop again that the site is down until it comes back and so on and so forth... sorry i am new to TCL as i am sure you can quickly tell

package require http

#bind pub - !status pub:neo_check
#bind time - "15 * * * *" pub:neo_check

#bind pubm - "*" pub:neo_check

proc pub:neo_check {nick host handle chan text} {
global botnick showtimechans

#set statx [http::geturl http://www.neopets.com/objects.phtml]
set statx [http::geturl http://www.dubloon.com/test.php]

set data [http::data $statx]

set var "Neopets is down for maintenance "
set x 0
foreach content [split $data \n] {
if [string match "*$var*" $content] {set x 1}
}

if {$x == 1} {
putserv "NOTICE Xolite : \002 *Neopian Alert: http://www.Neopets.com is Down For Maintenance \002"
putlog "Neopets.com Status is Down For Maintenance"

} else {

if {$x == 0} {
putserv "NOTICE Xolite :\002 *Attention Neopians: http://www.Neopets.com/ Is Back Up and Running\002 - Have Fun!"
putlog "Neopets.com Status is OK"
return 0

}
}

timer 1 pub:neo_check
return 1

}

Statistics: Posted by Guest — Wed Jun 16, 2004 12:37 am

egghelp/eggheads community

Need Looping/Timer Help Please

Need Looping/Timer Help Please