tcl-lusers-to-html

bind time - "*" save:lusers
bind raw - "250" rawLusers250
bind raw - "251" rawLusers251
bind raw - "255" rawLusers255
bind raw - "265" rawLusers265
bind raw - "266" rawLusers266

set lusersfile "/var/www/portal/lusers.html"

proc rawLusers250 {from cmd text} {
regexp {H.*} $text ::lusers250
}

proc rawLusers251 {from cmd text} {
regexp {T.*} $text ::lusers251
}

proc rawLusers255 {from cmd text} {
regexp {I.*} $text ::lusers255
}

proc rawLusers265 {from cmd text} {
regexp {C.*} $text ::lusers265
}

proc rawLusers266 {from cmd text} {
global ::lusers250 ::lusers251 ::lusers255 ::lusers265 lusersfile
  set fileId [open $::lusersfile w]
  if {[info exists ::lusers250]} {
    puts $fileId "$::lusers250 <br>"
    unset ::lusers250
  }
  if {[info exists ::lusers251]} {
    puts $fileId "$::lusers251 <br>"
    unset ::lusers251
  }
  if {[info exists ::lusers255]} {
    puts $fileId "$::lusers255 <br>"
    unset ::lusers255
  }
  if {[info exists ::lusers265]} {
    puts $fileId "$::lusers265 <br>"
    unset ::lusers265
  }
  regexp {C.*} $text ::lusers266
  puts $fileId $::lusers266
  close $fileId
}
proc save:lusers {min hour day mon year} {
putserv "LUSERS"
}