No write File ;(
HELP, here is the code
set www_lines 0
bind pub -|- !startlog pub:startlog
bind pub -|- !stoplog pub:stoplog
proc pub:startlog {nick uhost hand chan args } {
www_htmlheader
bind pubm * * www_pubm
bind join * * www_join
bind part * * www_part
bind sign * * www_sign
bind topc * * www_topc
bind mode * * www_mode
bind kick * * www_kick
bind nick * * www_nick
putlog "--> Initializing wwwlive"
}
proc pub:stoplog {nick uhost hand chan args } {
unbind pubm * * www_pubm
unbind join * * www_join
unbind part * * www_part
unbind sign * * www_sign
unbind topc * * www_topc
unbind mode * * www_mode
unbind kick * * www_kick
unbind nick * * www_nick
www_htmlheader
global www_file
set fh [open $www_file a]
puts $fh "<h2>LIVE WWW disabled.</h2>"
close $fh
putlog "--> Stopping wwwlive"
}
proc www_pubm {nick uhost hand chan args} {
global www_channel
if { $chan == $www_channel} {
www_newfile
set text [lindex $args 0]
global www_lines www_file
set fh [open $www_file a]
puts $fh "\<$nick> $text<br>"
close $fh
incr www_lines
}
}
and more for join part for the bind´sStatistics: Posted by Guest — Tue Jul 27, 2004 6:30 pm
]]>