[SOLVED] Check if a website is down or not using isup.me

[sadnem]

Hello, I´m currently searching for a tcl script that will retrieve info from isup.me (aka downforeveryoneorjustme.com )
an example output would be like:

Code: Select all

!isup google.com
<bot> It's just you. http://google.com is up.

Code: Select all

!isup fakewebsite81823.com
<bot> It's not just you! http://fakewebsite81823.com looks down from here. 

Code: Select all

!isup website
<bot> Huh? http://website doesn't look like a site on the interwho. 

To directly access to the site´s output of a website you can directly access http://isup.me/website to retrieve the desired information.

It doesn´t seems complicated although I have no tcl skills at all and my curl knowledge it´s pretty poor so I don´t really know where to start, if someone could do this script for me I'd be very grateful.

[Trixar_za]

Ok, I tested it and it works:

Code: Select all

# Isup.me Script by Trixar_za
# Type in partyline: .chanset #channel +isup to enable it.

# Sets the user agent
set isup(agent) "Mozilla/4.75 (X11; U; Linux 2.2.17; i586; Nav)"

setudef flag isup

if {[catch {package require http 2.5} e] != 0} {
  set isup(noutf8) 1
  package require http
}

bind pub - !isup proc:isup

proc proc:isup {nick uhand handle chan input} {
  if {[channel get $chan isup]} {
     global isup

    if {![llength [split $input]]} {
       putquick "PRIVMSG $chan Please supply a website address. Ex: !isup google.com"
    } else {
  
       if {[info exists isup(noutf8)]} {
          set http [::http::config -useragent $isup(agent)]
       } else {
          set http [::http::config -useragent $isup(agent) -urlencoding "utf-8"]
       }

       catch { set http [::http::geturl "http://www.isup.me/$input" -timeout 10000]} error
 
       if {![string match -nocase "::http::*" $error]} {
          putquick "PRIVMSG $chan [string totitle [string map {"\n" " | "} $error]] \( $input \)"
          return 0
       }

       if {![string equal -nocase [::http::status $http] "ok"]} {
          putquick "PRIVMSG $chan [string totitle [::http::status $http]] \( $input \)"
          return 0
       }

       set html [::http::data $http]

       # Clean up :P
       regsub -all {\n} $html { } html
       regsub -all {\t} $html { } html
       regsub -all {<br/>} $html { } html
       regsub -all { } $html { } html
       regsub -all {    } $html { } html
       regsub -all {   } $html { } html
       regsub -all {  } $html { } html
       regsub -all {<a.+?>} $html {} html
       regsub -all {</a>} $html {} html
       regsub -all {<span.+?>} $html {} html
       regsub -all {</span>} $html {} html
       regsub -all {—} $html {-} html
       regsub -all {>} $html {>} html
       regsub -all {<} $html {<} html
       regsub -all {&} $html {\&} html
       regsub -all {×} $html {*} html
       regsub -all {(?:\x91|\x92|’|‘|')} $html {'} html
       regsub -all {(?:\x93|\x94|“|”|")} $html {"} html
       regsub -all {×} $html {x} html

       if {[regexp -- {<div.+?>(.+?)<p>} $html - upsite]} {
          set upsite [string trim $upsite]
       }

       if {[info exists upsite]} {
          putquick "PRIVMSG $chan $upsite"
       } else {
          putquick "PRIVMSG $chan Ironically, I couldn't get anything from isup.me!"
       }
    }
  }
}

putlog "Isup.me Script by Trixar_za Loaded"

[sadnem]

It´s working as a charm, thank you.

[caesar]

It's me or you forgot to define $isup(logo)? Also, shouldn't it be:

Code: Select all

putquick "PRIVMSG $chan :$upsite"

(notice the missing ':' after the $chan variable)?

[Trixar_za]

I forgot to remove that last $isup(logo) yes and in the strictest sense you don't need that : in privmsg, except on IRCds that STRICTLY adheres to the IRC protocol. So far I've found only one such server and that's with bitlbee, the rest seem to work just as well without it

[caesar]

I see. What happens if I would do !isup [die] for instance?

[Trixar_za]

I see. What happens if I would do !isup [die] for instance?

[@GameBot] Illegal characters in url path ( [die] ) <--- that happens

[Ashoq]

something wrong

i tested a down website on www.isup.me it said 'down' on tcl it said 'up'

[Trixar_za]

Eh, then it was down for a bit. All the script does is grab the text from the website each time the command is invoked. So what your seeing isn't cached at all and is the website's response as it happens.

[teegg]

this script was not working for me..so i played around with it a. It turns out the following codes were not pasted correctly into vi. Maybe vi doesnt support these codes?

Code: Select all

regsub -all {—} $html {-} html
regsub -all {(?:\x91|\x92|’|‘|')} $html {'} html
regsub -all {(?:\x93|\x94|“|”|")} $html {"} html

But anyhow I commented them out and the script works again.

[Cerberus]

with a few edit script worked great.

removed extra close brace from end of script

changed useragent to:

Mozilla/5.0 (X11; U; Linux i686; el-GR; rv:1.8.1) Gecko/2010112223 Firefox/3.6.12

and removed the -urlencode section.

i also added this so script can be turned on or off via public command by bot master.

Code: Select all

bind pub m|m &isup-script WSS-Settings

proc WSS-Settings {nick host hand chan text} {

	if {![channel get $chan isup] && $text == "on"} {
		catch {channel set $chan +isup}
		putserv "notice $nick :Web Site Statuc Checker: enabled for $chan"
		putlog "Web Site Statuc Checker: script enabled (by $nick for $chan)"
	} elseif {[channel get $chan isup] && $text == "off"} {
		catch {channel set $chan -isup}
		putserv "notice $nick :Web Site Statuc Checker: disabled for $chan"
		putlog "Web Site Statuc Checker: script disabled (by $nick for $chan)"
	} else {
		putserv "notice $nick :Web Site Statuc Checker: &isup-script (on|off) enables or disables script for active channel"
	}
}