egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2006-08-08T19:13:59-04:00 https://forum.eggheads.org/app.php/feed/topic/12245 2006-08-08T19:13:59-04:00 2006-08-08T19:13:59-04:00 https://forum.eggheads.org/viewtopic.php?p=65297#p65297 <![CDATA[irc2html thingy...]]> and
I see what you meen metroid, how do I make it only remove the last line and not reset the hole, when it gets to the "max line number I have set"

but, is it easy to implement a list of showing all people on the channel, and topic ?

Statistics: Posted by Kimmi — Tue Aug 08, 2006 7:13 pm

]]> 2006-08-08T17:54:10-04:00 2006-08-08T17:54:10-04:00 https://forum.eggheads.org/viewtopic.php?p=65292#p65292 <![CDATA[irc2html thingy...]]>
That basically only allows (the last) 5 lines that are said to be in the file, not much of a "irc2html" then.

Statistics: Posted by metroid — Tue Aug 08, 2006 5:54 pm

]]> 2006-08-08T14:29:57-04:00 2006-08-08T14:29:57-04:00 https://forum.eggheads.org/viewtopic.php?p=65284#p65284 <![CDATA[irc2html thingy...]]>

Code: 

set 12h(chan) "#yourchannel"; channel to log set i2h(maxlines) "5"; # no of lines set i2h(refresh) "30"; # no of seconds set i2h(buffer) ""; # the buffer, dont touch set i2h(file) "/path/to/html/file.html"; # the html file if {![file exists $::i2h(file)]} {   set file [open $::i2h(file) w]; puts $file ""; close $file } bind pubm - "$::i2h(chan) *" i2h:log proc i2h:log {nickname hostname handle channel text} {   if {[llength $::i2h(buffer)] >= $::i2h(maxlines)} {     set ::i2h(buffer) ""   }   lappend ::i2h(buffer) "$nickname $text" } proc i2h:update {} {   if {[catch { set file [open $::i2h(file) w] } err]} {     putlog "i2h file error: $err"   } else {     puts $file "<html><head><title>some title</title>"     puts $file "<meta http-equiv=\"refresh\" content=\"$sec\">"     puts $file "</head><body>"       foreach i $::i2h(buffer) {         puts $file "<[lindex [split $i] 0]> [lrange $i 1 end]<br>"       }     puts $file "</body></html>"    close $file   }   utimer $::i2h(refresh) [list i2h:update] } i2h:update putlog "i2h (irc2html) loaded. Logging $::i2h(chan) to [lindex [split $::i2h(file) /] end]."

Statistics: Posted by r0t3n — Tue Aug 08, 2006 2:29 pm

]]> 2006-08-08T14:17:58-04:00 2006-08-08T14:17:58-04:00 https://forum.eggheads.org/viewtopic.php?p=65282#p65282 <![CDATA[irc2html thingy...]]>
As for your initial script, it did indeed print out nickname.. you just accidentally turned it into an (invalid) html-tag (check the source of the page you linked earlier)

Statistics: Posted by nml375 — Tue Aug 08, 2006 2:17 pm

]]> 2006-08-08T14:05:14-04:00 2006-08-08T14:05:14-04:00 https://forum.eggheads.org/viewtopic.php?p=65281#p65281 <![CDATA[irc2html thingy...]]>
but, now it dont print anything to file....
like haua.html is empty, something must be changes, cuz the initial code on the top, worked. only nick wasnt showing there.

Statistics: Posted by Kimmi — Tue Aug 08, 2006 2:05 pm

]]> 2006-08-08T09:34:02-04:00 2006-08-08T09:34:02-04:00 https://forum.eggheads.org/viewtopic.php?p=65276#p65276 <![CDATA[irc2html thingy...]]>

Code: 

puts $file "<meta http-equiv=\"refresh\" content=\"$sec\">"
to

Code: 

puts $file "<meta http-equiv=\"refresh\" content=\"$::i2h(refresh)\">"

Statistics: Posted by r0t3n — Tue Aug 08, 2006 9:34 am

]]> 2006-08-08T08:34:48-04:00 2006-08-08T08:34:48-04:00 https://forum.eggheads.org/viewtopic.php?p=65270#p65270 <![CDATA[irc2html thingy...]]>
[13:29] can't read "sec": no such variable
while executing
"puts $file "<meta http-equiv=\"refresh\" content=\"$sec\">""
(procedure "i2h:update" line 6)
invoked from within
"i2h:update"
(file "scripts/html2.tcl" line 35)
invoked from within
"source scripts/html2.tcl
"
It kinda looks like I need to set $sec as a time variable, how does one do that ?

Statistics: Posted by Kimmi — Tue Aug 08, 2006 8:34 am

]]> 2006-08-08T08:28:09-04:00 2006-08-08T08:28:09-04:00 https://forum.eggheads.org/viewtopic.php?p=65269#p65269 <![CDATA[irc2html thingy...]]>
But I do get an error on line 11

Code: 

bind pubm - "$::i2h(chan) *" i2h:log
[13:26] can't read "::i2h(chan)": no such element in array
while executing
"bind pubm - "$::i2h(chan) *" i2h:log"
(file "scripts/html2.tcl" line 11)
invoked from within
"source scripts/html2.tcl
"
#FIXED# IT WAS A TYPO :)

Statistics: Posted by Kimmi — Tue Aug 08, 2006 8:28 am

]]> 2006-08-07T19:47:57-04:00 2006-08-07T19:47:57-04:00 https://forum.eggheads.org/viewtopic.php?p=65251#p65251 <![CDATA[irc2html thingy...]]>

Code: 

...puts $file "<[lindex $e 0]> [lindex $e 1]<br>"...
rather than

Code: 

...puts $file "<[lindex $e 0]> [lindex $e 1]<br>"...
Would make one confused browser otherwize...

edit: Minor typo...

Statistics: Posted by nml375 — Mon Aug 07, 2006 7:47 pm

]]> 2006-08-07T19:58:19-04:00 2006-08-07T19:37:05-04:00 https://forum.eggheads.org/viewtopic.php?p=65250#p65250 <![CDATA[irc2html thingy...]]>
* code updated with nml375's improvement *

Code: 

set 12h(chan) "#yourchannel"; channel to logset i2h(maxlines) "5"; # no of linesset i2h(refresh) "30"; # no of secondsset i2h(buffer) ""; # the buffer, dont touchset i2h(file) "/path/to/html/file"; # the html fileif {![file exists $::i2h(file)]} {  set file [open $::i2h(file) w]; puts $file ""; close $file}bind pubm - "$::i2h(chan) *" i2h:logproc i2h:log {nickname hostname handle channel text} {  if {[llength $::i2h(buffer)] >= $::i2h(maxlines)} {    set ::i2h(buffer) ""  }  lappend ::i2h(buffer) "$nickname $text"}proc i2h:update {} {  if {[catch { set file [open $::i2h(file) w] } err]} {    putlog "i2h file error: $err"  } else {    puts $file "<html><head><title>some title</title>"    puts $file "<meta http-equiv=\"refresh\" content=\"$sec\">"    puts $file "</head><body>"      foreach i $::i2h(buffer) {        puts $file "<[lindex [split $i] 0]> [lrange $i 1 end]<br>"      }    puts $file "</body></html>"  }  utimer $::i2h(refresh) [list i2h:update]}i2h:updateputlog "i2h (irc2html) loaded"
Not tested, but hopefully it should work

Statistics: Posted by r0t3n — Mon Aug 07, 2006 7:37 pm

]]> 2006-08-07T19:33:44-04:00 2006-08-07T19:33:44-04:00 https://forum.eggheads.org/viewtopic.php?p=65249#p65249 <![CDATA[irc2html thingy...]]>

Statistics: Posted by Alchera — Mon Aug 07, 2006 7:33 pm

]]> 2006-08-07T07:20:00-04:00 2006-08-07T07:20:00-04:00 https://forum.eggheads.org/viewtopic.php?p=65228#p65228 <![CDATA[irc2html thingy...]]>

Code: 

set buf {}set maxlines 5 ;# linesset refresh 30 ;# secondsbind pubm - "#channel *" fooproc foo {n u h c t} {   if {[llength $::buf] == $::maxlines} {      set ::buf [lreplace $::buf 0 0]   }   lappend ::buf [list $n $t]}proc bar {sec} {   if ![catch {set fd [open /path/to/convo.html w]}] {      puts $fd "<html><head><title>some title</title>"      puts $fd "<meta http-equiv=\"refresh\" content=\"$sec\">"      puts $fd "</head><body>"      foreach e $::buf {         puts $fd "<[lindex $e 0]> [lindex $e 1]<br>"      }      puts $fd "</body></html>"      close $fd   }   utimer $sec [list bar $sec]}bar $refresh
okey I got this code and it looks like this:
http://eggis.multinet.no/~lisemarie/haua.html

Is it hard to add who is saying what... like add the nick
and to make a list of all users in channel ?

Statistics: Posted by Kimmi — Mon Aug 07, 2006 7:20 am

]]> 2006-08-07T07:04:32-04:00 2006-08-07T07:04:32-04:00 https://forum.eggheads.org/viewtopic.php?p=65227#p65227 <![CDATA[irc2html thingy...]]>
I have been looking for a script that does a "screen" on a irc channel and makes a html file, including all users on channel and all chat and actions.

I tryed a script called irc2html.tcl, but its 8 years old and didnt support current eggdrop version.
Anyone that know of a newer version of this script?

Statistics: Posted by Kimmi — Mon Aug 07, 2006 7:04 am

]]>