bind pub - !web do_ques
proc do_ques { global webfile lynxfile web_update botnick webtz lynxfilerf pic} {
  foreach chan [array names webfile] {
    if {[lsearch -exact [string tolower [channels]] [string tolower $chan]] == -1} {continue}
    set fd [open $webfile($chan) w]
    if {[info exists lynxfile($chan)]} {
      set fdl [open $lynxfile($chan) w]
    } else {
      set fdl [open "/dev/null" w]
    }
    puts $fd "<meta http-equiv=\"Refresh\" content=[expr $web_update *60]>"
    if {![onchan $botnick $chan]} {
      puts $fd "<html><head><title>People on $chan right now!</title></head>"
      puts $fd "<body><h1>Oops!</h1><p>"
      puts $fd "The bot is not on $chan right now for some strange reason.<br>"
      puts $fd "IRC isn't a very stable place these days... Please try again"
      puts $fd "later!<p></body></html>"
      puts $fdl "<html><head><title>People on $chan right now!</title></head>"
      puts $fdl "<body><h1>Oops!</h1><p>"
      puts $fdl "The bot is not on $chan right now for some strange reason.<br>"
      puts $fdl "IRC isn't a very stable place these days... Please try again"
      puts $fdl "later!<p></body></html>"
      close $fd
      close $fdl
    } {
      puts $fd "<html><head><title>People on $chan right now!</title></head>"
      puts $fd "<body><center><A HREF=irc.html><IMG SRC=$pic($chan) ALT=$chan BORDER=0></A>"
      puts $fdl "<html><head><title>People on $chan right now!</title></head>"
      puts $fdl "<body><h1>$chan</h1>"
      if {[info exists lynxfile($chan)]} {
       puts $fd "<p>If this page looks strange on your browser, try"
        puts $fd "<a href=\"$lynxfilerf($chan)\">this page</a>.<p>"
      }
      puts $fd "People on $chan as of [date] [time] $webtz<P>"
      puts $fd "<table border=1 cellpadding=4>"
      puts $fd "<th align=left>Nickname<th align=left>Status"
      puts $fd "<th align=left>User@Host"
      puts $fdl "<em>People on $chan as of [date] [time] $webtz</em><pre>"
      puts $fdl "Nickname  Status           User@Host"
      foreach i [chanlist $chan] {
        puts $fd "<tr>"
        if {[isop $i $chan]} { set chop "op"} { set chop "" }
        if {[getchanidle $i $chan] > 10} {
          if {$chop == ""} { set chop "idle" } { set chop "${chop}, idle" }
        }
        set handle [finduser $i![getchanhost $i $chan]]
        if {[onchansplit $i $chan]} {
          if {$chop == ""} {
            set chop "<strong>(split)</strong>"
          } {

Think thats is enough??

its so much more... but the rpoblem seems to be on the 2nd line