egghelp/eggheads community

Webchat.tcl

2009-08-04T15:56:20-04:00

You are number one !

Statistics: Posted by rabanne — Tue Aug 04, 2009 3:56 pm

Webchat.tcl

2009-08-04T13:46:55-04:00

try:

Code:

# channelset irc_chan "#channel"# html fileset channel_file "/home/www/chat.html"# max lines numberset output_lines 20##################################################33bind pubm -|- "*" log_channelif {![file exists $channel_file]} {set create_new [open $channel_file w]close $create_new}proc log_channel { nick uhost hand chan text } {global irc_chan channel_file output_linesif {$irc_chan != $chan} {return}set log_time [clock format [clock seconds] -format "%H:%M:%S"] set log_date [clock format [clock seconds] -format "%d %B %Y"] set log_line "($log_date) ($log_time) ($nick) ($text)
"set read_current [open $channel_file r]set get_all [split [read $read_current] "\n"]close $read_currentlappend get_all $log_lineset get_all [lrange $get_all end-$output_lines end]set line_idx 1set rewrite [open $channel_file w]foreach each_line $get_all {if {$each_line != ""} {regsub {^[0-9]+\. } $each_line "" each_lineputs $rewrite "$line_idx\. $each_line"incr line_idx 1}}close $rewrite}putlog "html-chan-log.tcl"

Statistics: Posted by tomekk — Tue Aug 04, 2009 1:46 pm

Webchat.tcl

2009-08-04T11:30:44-04:00

Ten q ;>
Working Perfectly

...And if you want the last 30 lines should be

set last_lines [join [lrange [split [read $filehand] "\n"] end-28 end] "\n"] ?

for 40

set last_lines [join [lrange [split [read $filehand] "\n"] end-38 end] "\n"] .... etc

How can I make a site to see the numbers of rows? etc:
1. (date) (time) (nick) (text)
2. (date) (time) (nick) (text)

Statistics: Posted by rabanne — Tue Aug 04, 2009 11:30 am

Webchat.tcl

2009-08-04T04:49:35-04:00

try:

Code:

set chat_setting(chan) "#kupa" set chat_setting(file) "/home/www/chat.html" set chat_setting(temp) "/home/www/chat.tmp" if {![file exists $chat_setting(file)]} { set filehand [open $chat_setting(file) w] puts -nonewline $filehand "" close $filehand } bind pubm - * chat_update proc chat_update {nick uhost hand chan text} { global chat_setting if {![string match "* [string tolower $chan ]*" "l [string tolower $chat_setting(chan)] l"]} { return 0 } set time [clock format [clock seconds] -format "(%H:%M:%S\)"] set date [clock format [clock seconds] -format {%d %B %Y}] set text_nick "($nick)" set text_form "($date) $time text_nick $text
" chat_file $text_form return 0 } proc chat_file {text} { global chat_setting set filehand [open $chat_setting(file) r] set filehandtemp [open $chat_setting(temp) w] #set linenum 0 #while {![eof $filehand]} { #set line [gets $filehand] #set lines [incr linenum] #puts $filehandtemp "$line" #} set last_lines [join [lrange [split [read $filehand] "\n"] end-18 end] "\n"]puts $filehandtemp $last_linesputs -nonewline $filehandtemp "$text" close $filehand close $filehandtemp file rename -force $chat_setting(temp) $chat_setting(file) } putlog "Инсталиран: WebChat.tcl"

Statistics: Posted by tomekk — Tue Aug 04, 2009 4:49 am

Webchat.tcl

2009-08-04T11:29:02-04:00

Hello. Can I do this TCL to show only the lastest 20 lines that are written in the channel?

Code:

set chat_setting(chan) "#Channel"set chat_setting(file) "/home/ircd/www/radio/chat.html"set chat_setting(temp) "/home/ircd/www/radio/chat.tmp"if {![file exists $chat_setting(file)]} {set filehand [open $chat_setting(file) w]puts -nonewline $filehand ""close $filehand}bind pubm - * chat_updateproc chat_update {nick uhost hand chan text} {global chat_settingif {![string match "* [string tolower $chan ]*" "l [string tolower $chat_setting(chan)] l"]} {return 0}set time [clock format [clock seconds] -format "(%H:%M:%S\)"]set date [clock format [clock seconds] -format {%d %B %Y}]set text_nick "($nick)"set text_form "($date) $time text_nick $text
"chat_file $text_formreturn 0}proc chat_file {text} {global chat_settingset filehand [open $chat_setting(file) r]set filehandtemp [open $chat_setting(temp) w]set linenum 0while {![eof $filehand]} {set line [gets $filehand]set lines [incr linenum]puts $filehandtemp "$line"}puts -nonewline $filehandtemp "$text"close $filehandclose $filehandtempfile rename -force $chat_setting(temp) $chat_setting(file)}putlog "Инсталиран: WebChat.tcl"

Statistics: Posted by rabanne — Mon Aug 03, 2009 11:58 pm