Statistics: Posted by Guest — Wed Oct 09, 2002 9:47 am

proc www_mode {nick host hand chan mc} { global www_channel

proc www_mode {nick host hand chan mc victim} { global www_channelset mc "$mc $victim"

Statistics: Posted by ppslim — Tue Oct 08, 2002 8:59 am

Code:

proc www_mode {nick host hand chan mc} {

proc www_mode {nick host hand chan mc victim} {

Statistics: Posted by Papillon — Tue Oct 08, 2002 5:40 am

Code:

set www_channel "#naselo"set www_file "/home/Vizor/public_html/log.html"set www_title "roots live wwwgateway"set www_bgcolor "#ffffff"set www_fgcolor "#000000"putlog "--- wwwlive 1.0 by --> roots <-- loaded ---"putlog "--- type .wwwlive help to get some help ---"set www_lines 0proc init {hand idx mode} { if {$mode == "on"} {  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" } if {$mode == "off"} {  unbind pubm * * www_pubm  unbind 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" } if {$mode == "off"} {  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" } if {$mode == "help"} {  putlog "--> wwwlive help ... the commands :"  putlog " .wwwlive on - turns on the gateway to the www"  putlog " .wwwlive off - turns if off"  putlog " .wwwlive help - shows this help" }}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}}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}}proc www_join {nick host hand chan} { global www_channel if { $chan == $www_channel} { www_newfile global www_lines www_file set fh [open $www_file a] puts $fh "*** $nick ($host) has joined $chan<br>" close $fh incr www_lines}}proc www_part {nick host hand chan} { global www_channel if {$chan == $www_channel} { www_newfile global www_lines www_file set fh [open $www_file a] puts $fh "*** $nick ($host) has left $chan<br>" close $fh incr www_lines}}proc www_sign {nick host hand chan reason} { global www_channel if {$chan == $www_channel} { www_newfile global www_lines www_file set text [lindex $reason 0] set fh [open $www_file a] puts $fh "*** $nick ($host) has quit irc ($text)<br>" close $fh incr www_lines}}proc www_topc {nick host hand chan topc} { global www_channel if {$chan == $www_channel} { www_newfile global www_lines www_file set fh [open $www_file a] puts $fh "*** roots has changed the topic on $chan to $topc<br>" close $fh incr www_lines}}proc www_mode {nick host hand chan mc} { global www_channel if {$chan == $www_channel} { www_newfile global www_lines www_file set fh [open $www_file a] puts $fh "*** Mode change $mc on $chan by $nick<br>" close $fh incr www_lines}}proc www_kick {nick host hand chan kn kr} { global www_channel if {$chan == $www_channel} { www_newfile global www_lines www_file set fh [open $www_file a] puts $fh "*** $kn has been kicked off $chan by $nick ($kr)<br>" close $fh incr www_lines}}proc www_nick {nick host hand chan newnick} { global www_channel if {$chan == $www_channel} { www_newfile global www_lines www_file set fh [open $www_file a] puts $fh "*** $nick is now known as $newnick<br>" close $fh incr www_lines}}proc www_newfile {} { global www_lines if {$www_lines >25} {  www_htmlheader  set www_lines 0 }}proc www_htmlheader {} { global www_file global www_title www_bgcolor www_fgcolor set fh [open $www_file w] puts $fh "<html><head><title>$www_title</title>" puts $fh "<meta http-equiv=refresh content=5; url=log.html></head>" puts $fh "<body bgcolor=\"$www_bgcolor\" text=\"$www_fgcolor\"><tt>" close $fh}bind dcc n wwwlive init

Statistics: Posted by Guest — Tue Oct 08, 2002 5:25 am