Code:

# BibleGateway Example using EggHttp via speechless# freeware - feel free to use any part of this script for any purpose.# To enable this script requires one of 2 methods below:# 1) some chans: on dcc partyline, type: .chanset #yourchan +bible# 2) all bot chans: on dcc partyline, type .chanset * +bible# NOTE: Code is purposely over commented to explain each section.# Configset pubtrigger "!bible"set pubspeed 5# End of config# script begins with egghttp checkif {![info exists egghttp(version)]} {  putlog "egghttp.tcl was NOT successfully loaded."  putlog "biblegateway.tcl has not been loaded as a result."} else {  proc biblegateway {sock} {    global url    global chan2    set headers [egghttp:headers $sock]    set body [egghttp:data $sock]    # remove all newlines, carriage returns, tabs, and vertical tabs    regsub -all {(?:\n|\r|\t|\v)} $body "" body    # grab the title and if success, change   into space    # if fails, set title accordingly    if {[regexp {<h3>(.+?)</h3>} $body - title]} {      # change   into space      regsub -all { } $title " " title    } else {      # if no title is found we must set one      set title "No Title"    }       # grab the subtitle and other relevant subtitles    # gather them into a single line.    if {[regexp {<p><h.*?>(.+?)<span id} $body - moretitle]} {      # these end each subtitle, changing them to . allows      # them to fit on one line, in a sort-of sentence.      regsub -all {</h.>} $moretitle ". " moretitle      # replace non-breaking space tags with true spaces.      regsub -all { } $moretitle " " moretitle      # remove all remaining html tags.      regsub -all {<.*?>} $moretitle "" moretitle    } else {      # some valid pages have no subtitles      # so if none is found, we will just set it blank.      set moretitle ""    }        # message title and subtitles.    putserv "privmsg $chan2 :$title"    putserv "privmsg $chan2 :$moretitle"    # reset pubspeed counter    set count 0    # while we have text, let's recurse the loop    while {[regexp -- {<span id.*?">(.+?)<span} $body - line]} {      # increment pubspeed counter      incr count      # remove from the $body the regexp leader      # so that the same exact segment can never      # match twice.      regsub -- {<span id.*?">} $body "" body      # each verse number is encased within span tags      # changing the end tag to a parenthesis cleans up text      regsub -all {</span>} $line "\)" line      # this combination should be dealt with first      regsub -all {\[<.*?>\]} $line "" line      # now remove the rest of the html tags      regsub -all {<.*?>} $line "" line      # this non-breaking space is for web display      # irrelevant on irc, let's remove it      regsub -all { } $line "" line      # pubspeed check, if exceeded puthelp      if {$count > $::pubspeed} {        puthelp "privmsg $chan2 :$line"      } else {        putserv "privmsg $chan2 :$line"      }    }  }  # bind pub  bind pub -|- $::pubtrigger our:pubtrigger  # channel flag  setudef flag bible  proc our:pubtrigger {nick uhand hand chan text} {    global url    global chan2    set chan2 $chan    # if bible isn't set for the channel, return and do nothing    if {[lsearch -exact [channel info $chan] +bible] == -1} {return}    # set the url using urlencode function based on $text    set url "http://www.biblegateway.com/passage/?search=[our:urlencode $text]&version=72"    # call bible    set sock [egghttp:geturl $url biblegateway]  }  # convert text into html approved % codes.  proc our:urlencode {text} {    set aurl ""    foreach byte [split [encoding convertto utf-8 $text] ""] {      scan $byte %c i      if {$i < 65 || $i > 122} {        append aurl [format %%%02X $i]      } else {        append aurl $byte      }    }    return [string map {%3A : %2D - %2E . %30 0 %31 1 %32 2 %33 3 %34 4 %35 5 %36 6 %37 7 %38 8 %39 9 \[ %5B \\ %5C \] %5D \^ %5E \_ %5F \` %60} $aurl]  }  putlog "biblegateway.tcl has been successfully loaded."}

Code:

# grab the subtitle and other relevant subtitles    # gather them into a single line.    # removed a '}' end of moretitle} -- try 2    if {[regexp {<p><h.*>(.+?)<span id} $body - moretitle} {      # change closing header tag to a period to better      # compact all the subtitles into one line and keep      # it looking pretty.

Code:

# pull the verses from the page in list format    # which allows using a foreach to step through it.    regexp -all -inline {<span id.*">(.+?)</p>} $body - text]} {

Code:

see code snippet in my last post below.

Code:

# egghttp_example.tcl# Configset url "http://www.biblegateway.com/passage/?search=mark%204:1-9&version=72"set dcctrigger "example"# End of configif {![info exists egghttp(version)]} {  putlog "egghttp.tcl was NOT successfully loaded."  putlog "biblegateway.tcl has not been loaded as a result."} else {  proc biblegateway {sock} {    global url    set headers [egghttp:headers $sock]    set body [egghttp:data $sock]    set boddy "example"    regsub -all "\n" $body "" body    regsub -all -nocase {<br>} $body " " body    regsub -all -nocase {<p>} $body " " body    regsub -all -nocase {<span id=\"en-TNIV-24335\" class=\"sup\">} $body "\002" body    regsub -all -nocase {</span>} $body "\002" body    regsub -all -nocase {<br>} $body " " body    regsub -all -nocase {</p>} $body " " body    regexp {<div class="result-text-style-normal">(.*?)<p/><p><br/></p></div>} $body - boddyforeach line [split $body \n] {  if {[string match "*<div class=\"result-text-style-normal\">*" $line]} {    set start [string first "<div class=\"result-text-style-normal\">" $line]    set start [expr {$start + 38}] ;# 38 is the number of characters in "<div class=\"result-text-style-normal\">"    set end [string first "<p/><p><br/></p></div>" $line]    set end [expr {$end - 1}];# We don't want the "<" from "<p/>"    set boddy [string range $line $start $end]  }}putlog "PRIVMSG #questions :Mark 4v1-9 '$boddy' THE END!"}  bind dcc n|n $dcctrigger our:dcctrigger  proc our:dcctrigger {hand idx text} {    global url    set sock [egghttp:geturl $url biblegateway]    return 1  }  putlog "biblegateway.tcl has been successfully loaded."}