| View previous topic :: View next topic |
| Author |
Message |
Football
Master
Joined: 26 Dec 2008
Posts: 205
Location: Quakenet, #Football
|
 Posted: Mon Feb 15, 2010 11:45 am Post subject: |
 |
|
That didn't help, I download a working tcl that logs what the bot says, it still doesn't appear.
Seems like Project2HTML ignores or earses what he says.
_________________
Idling at #Football, Quakenet. |
|
| Back to top |
|
 |
Football
Master
Joined: 26 Dec 2008
Posts: 205
Location: Quakenet, #Football
|
| Posted: Tue Feb 16, 2010 8:00 am Post subject: |
|
|
Ok I`ve tried to contact the author of this script, but the links provided in the script itself aren't in use anymore, so It seems like there's no way to contact him.
I want to modify this script, and I`ve tried to do so (for example, if anyones nick contains a number, or if a text contains numbers, it erases them)
[11:51]<Xsploit> ready to kill those italian cunts today?
[11:51]<el> y
That guys nick isn't el, his real nick is el8.
I`m also trying to modify the colors, like joins will be a different color than the body text, but for some reason it seems like there's a default color that overwrites the color I`m trying to set for specific events.
Here's an example of what is displayed atm: http://www.eplonline.co.uk/chanstats/EPL.html
Help please?
Here's the bit modified code:
| Code: | ########################################################################
### __ __ __ ###
### ___ ____ __ _ ___ ___ / /_ \ \/ / ###
### / _ \' __/ _ `/ / -_)/ __/ _/ ) ( ###
### / .__/_/ \___/ /\___/\__/\__/ /_/\_\ ###
### /_/ -------- /__/ --------------------- ###
### ###
########################################################################
### ProjectX IRC 2 HTML v2.00 by Natrak <natrak@projectx.mx.dk> ###
########################################################################
### This script logs what goes on in an IRC channel, converts it to ###
### HTML and make it visible to user on the web. To see pxi2h in ###
### action visit: ###
### http://www.projectx.mx.dk/contact/spycam.html ###
########################################################################
### Goto http://www.projectx.mx.dk/contact/bugreport.shtml to send ###
### bug reports, or http://www.projectx.mx.dk/contact/feedback.shtml ###
### to tell us what you think of this script. ###
########################################################################
### Configuration:
#
# The channel set to show online:
set pxi2h_chan(#EPL) "/home/xabriel/eggdrop/public_html/EPL.html"
#
# The prefix to prevent stuff from being shown on the web:
set pxi2h(secret) "."
#
# Maximum number of lines shown on the web:
set pxi2h(maxlines) 50
#
# The page is set to refes every X seconds:
set pxi2h(refresh) 5
#
# The title of the page:
set pxi2h(title) "#EPL - Latest Activity"
#
# Text color:
set pxi2h(text) ""
#
# Background color:
set pxi2h(bgcolor) "#ffffff"
#
# Heading color:
set pxi2h(heading) "#ff6a6a"
#
# Font type:
set pxi2h(font) "monospace"
#
### End of config.
########################################################################
proc pxi2h:style {event chan nick host arg} {
global pxi2h_history
set chan [pxi2h:findchan $chan]
if {$chan == ""} { return }
switch -- $event {
actn { set text "* $nick $arg" }
join { set text "*** $nick ($host) has joined $chan" }
kick { set text "*** [lindex $arg 0] was kicked by $nick ([lrange $arg 1 end])" }
mode { set text "*** $nick sets mode: $arg" }
nick { set text "*** $nick is now known as $arg" }
part { set text "*** $nick ($host) has left $chan" }
pubm { set text "<$nick> $arg" }
sign { set text "*** $nick ($host) #has quit irc ($arg)" }
topc { set text "*** $nick changes topic to '$arg'" }
}
set pxi2h_history($chan) [lappend pxi2h_history($chan) [pxi2h:control [pxi2h:convert $text]]]
utimer 1 "pxi2h:make $chan"
}
proc pxi2h:dcc {hand idx arg} {
global pxi2h
if {[string tolower [lindex $arg 0]] == "on"} {
set pxi2h(status) "on"
} elseif {[string tolower [lindex $arg 0]] == "off"} {
set pxi2h(status) "off"
}
putdcc $idx "ProjectX irc2html is $pxi2h(status)"
return 1
}
proc pxi2h:html {text} {
return [pxi2h:unconvert [pxi2h:convert $text]]
}
proc pxi2h:control {text} {
set temp $text
set text ""
set bold "0"
set undr "0"
set color ""
for {set i 0} {$i < [string length $temp]} {incr i} {
set c [string index $temp $i]
switch -- $c {
{ if {$bold == "1"} { set text "$text</B>"; set bold "0" } else { set text "$text<B>"; set bold "1" } }
{ if {$undr == "1"} { set text "$text</U>"; set undr "0" } else { set text "$text<U>"; set undr "1" } }
{ }
{ }
default { set text "$text$c" }
}
}
if {$bold == "1"} { set text "$text</B>" }
if {$undr == "1"} { set text "$text</U>" }
return $text
}
proc pxi2h:convert {text} {
regsub -all , $text "" text
regsub -all 0 $text "" text
regsub -all 1 $text "" text
regsub -all 2 $text "" text
regsub -all 3 $text "" text
regsub -all 4 $text "" text
regsub -all 5 $text "" text
regsub -all 6 $text "" text
regsub -all 7 $text "" text
regsub -all 8 $text "" text
regsub -all 9 $text "" text
regsub -all {\]} $text "p!c1" text
regsub -all {\[} $text "p!c2" text
regsub -all {\}} $text "p!c3" text
regsub -all {\{} $text "p!c4" text
regsub -all {\$} $text "p!c5" text
regsub -all {\"} $text "p!c6" text
regsub -all {\;} $text "p!c7" text
regsub -all {\\} $text "p!c8" text
regsub -all {\/} $text "p!c9" text
regsub -all & $text "\\&" text
regsub -all < $text "\\<" text
regsub -all > $text "\\>" text
regsub -all \" $text "\\"" text
regsub -all " " $text "\\ " text
return $text
}
proc pxi2h:unconvert {text} {
regsub -all {p!c1} $text "\]" text
regsub -all {p!c2} $text "\[" text
regsub -all {p!c3} $text "\}" text
regsub -all {p!c4} $text "\{" text
regsub -all {p!c5} $text "\$" text
regsub -all {p!c6} $text "\"" text
regsub -all {p!c7} $text "\;" text
regsub -all {p!c8} $text "\\" text
regsub -all {p!c9} $text "\/" text
return $text
}
proc pxi2h:make {chan} {
global pxi2h_history pxi2h pxi2h_chan server
if {[llength $pxi2h_history($chan)] > $pxi2h(maxlines)} { set pxi2h_history($chan) [lrange $pxi2h_history($chan) 1 end] }
set nicks ""
foreach nick [chanlist $chan] {
if {[isop $nick $chan]} {
set nicks "$nicks @[pxi2h:convert $nick]"
} elseif {[isvoice $nick $chan]} {
set nicks "$nicks +[pxi2h:convert $nick]"
} else {
set nicks "$nicks [pxi2h:convert $nick]"
}
}
set nicks [lsort -increasing $nicks]
set html [open $pxi2h_chan($chan) w]
puts $html "<HTML>\n<HEAD>\n <TITLE>$pxi2h(title)</TITLE>\n <META HTTP-EQUIV=\"Refresh\" CONTENT=\"$pxi2h(refresh)\">\n</HEAD>"
puts $html "BGCOLOR=\"$pxi2h(bgcolor)\" LINK=\"$pxi2h(heading)\" VLINK=\"$pxi2h(heading)\">"
puts $html " <FONT COLOR=\"$pxi2h(heading)\"><FONT SIZE=\"+0\" FACE=\"sans-serif\">$chan</FONT> <FONT SIZE=\"+1\" FACE=\"monospace\">: '[pxi2h:html [topic $chan]]'</FONT></FONT><P>"
puts $html " <FONT SIZE=\"-1\" FACE=\"$pxi2h(font)\">"
puts $html " <B>Server</B>: [string range $server 0 [expr [string last ":" $server] - 1]]<BR>"
puts $html " <B>Users</B>: [pxi2h:unconvert $nicks]<BR>\n <HR SIZE=\"1\">"
close $html
set html [open $pxi2h_chan($chan) a]
if {$pxi2h(status) == "on"} {
for {set i 0} {$i < [llength $pxi2h_history($chan)]} { incr i } {
puts $html " \[[strftime "%H:%M"]\][pxi2h:unconvert [lindex $pxi2h_history($chan) $i]]<BR>"
}
} else {
puts $html " <BR><CENTER><B>O F F L I N E !</B></CENTER><P>"
}
puts $html " </FONT>\n <HR SIZE=\"1\">\n <CENTER><FONT SIZE=\"-1\" FACE=\"sans-serif\"><I>Powered by <A HREF=\"http://www.eplonline.co.uk/viewpage.php?page_id=4/\">#EPL Quakenet</A></I></FONT></CENTER>\n</BODY>\n</HTML>"
close $html
}
proc pxi2h:findchan {chan} {
global pxi2h_chan
foreach ele [array names pxi2h_chan] {
if {[string tolower $ele] == [string tolower $chan]} { return $ele }
}
}
proc pxi2h:ctcp {nick host handle dest keyword arg} {
if {![string compare $keyword "ACTION"]} { pxi2h:style "actn" $dest $nick $host $arg }
}
proc pxi2h:join {nick host handle chan} {
pxi2h:style "join" $chan $nick $host ""
}
proc pxi2h:kick {nick host handle chan knick arg} {
pxi2h:style "kick" $chan $nick $host "$knick $arg"
}
proc pxi2h:mode11x {nick host handle chan arg} {
if {[lindex $arg 0] == "+k"} { set mode [lindex $arg 0] } else { set mode [lrange $arg 0 end] }
pxi2h:style "mode" $chan $nick $host $mode
}
proc pxi2h:mode13x {nick host handle chan arg mnick} {
if {[lindex $arg 0] == "+k"} { set mode [lindex $arg 0] } else { set mode "[lrange $arg 0 end] $mnick" }
pxi2h:style "mode" $chan $nick $host $mode
}
proc pxi2h:nick {nick host handle chan newnick} {
pxi2h:style "nick" $chan $nick $host $newnick
}
proc pxi2h:part {nick host handle chan rest} {
pxi2h:style "part" $chan $nick $host ""
}
proc pxi2h:pubm {nick host handle chan arg} {
global pxi2h
if {[string range $arg 0 0] != $pxi2h(secret)} { pxi2h:style "pubm" $chan $nick $host $arg }
}
proc pxi2h:sign {nick host handle chan arg} {
pxi2h:style "sign" $chan $nick $host $arg
}
proc pxi2h:topc {nick host handle chan topic} {
if {$nick != "*"} { pxi2h:style "topc" $chan $nick $host $topic }
}
bind dcc +m irc2html pxi2h:dcc
bind ctcp - ACTION pxi2h:ctcp
bind join - * pxi2h:join
bind kick - * pxi2h:kick
if {[lindex $version 1] < "01030000"} {
bind mode - * pxi2h:mode11x
} else {
bind mode - * pxi2h:mode13x
}
bind nick - * pxi2h:nick
bind part - * pxi2h:part
bind pubm - * pxi2h:pubm
bind sign - * pxi2h:sign
bind topc - * pxi2h:topc
set pxi2h(ver) "2.00"
if {![info exists pxi2h(status)]} { set pxi2h(status) "on" }
foreach ele [array names pxi2h_chan] {
if {![info exists pxi2h_history($ele)]} { set pxi2h_history($ele) "" }
pxi2h:make $ele
}
putlog "\[ProjectX\] irc2html v$pxi2h(ver) loaded."
|
_________________
Idling at #Football, Quakenet. |
|
| Back to top |
|
|
TCL_no_TK
Owner
Joined: 25 Aug 2006
Posts: 509
Location: England, Yorkshire
|
| Posted: Tue Feb 16, 2010 1:26 pm Post subject: |
|
|
I wish i could help more, but at the moment, i'm not able to take on any more projects. The link which i posted was about "eggdrop not displaying its own messages" and not really about "showing them". However, The script posted by thommey i think it was, should be easy to include in the script and have it be displayed that way. As for the color thing, it should be fairly simple to include a .css file for the page, maybe that could work. (should open the possiblity of allow people to choise the output colors like mIRC-line, x-chat-like, KvIRC ...etc)  only imput i can give at the moment.
_________________
TCL the misunderstood |
|
| Back to top |
|
|
Trixar_za
Op
Joined: 18 Nov 2009
Posts: 143
Location: South Africa
|
| Posted: Tue Feb 16, 2010 7:07 pm Post subject: |
|
|
I would remove: | Code: | regsub -all 0 $text "" text
regsub -all 1 $text "" text
regsub -all 2 $text "" text
regsub -all 3 $text "" text
regsub -all 4 $text "" text
regsub -all 5 $text "" text
regsub -all 6 $text "" text
regsub -all 7 $text "" text
regsub -all 8 $text "" text
regsub -all 9 $text "" text |
This should remove the number stripping from nicknames, but I don't know what other of effects this would have have so you'd have to see. I'm not sure how to make it show up the bot though. |
|
| Back to top |
|
|
Football
Master
Joined: 26 Dec 2008
Posts: 205
Location: Quakenet, #Football
|
| Posted: Wed Feb 17, 2010 7:46 am Post subject: |
|
|
Thanks Trixar, that did the trick.
It doesn't stripp numbers anymore, any idea how to solve the color problem?
_________________
Idling at #Football, Quakenet. |
|
| Back to top |
|
|
Trixar_za
Op
Joined: 18 Nov 2009
Posts: 143
Location: South Africa
|
| Posted: Wed Feb 17, 2010 10:38 am Post subject: |
|
|
I'll have a look at the code a little later and play with it. I have noticed this though ---> BGCOLOR="#ffffff" LINK="#ff6a6a" VLINK="#ff6a6a"> #EPL on your website. Seems the "<BODY" bit is missing in your code.
You just have to change | Code: | | puts $html "BGCOLOR=\"$pxi2h(bgcolor)\" LINK=\"$pxi2h(heading)\" VLINK=\"$pxi2h(heading)\">" |
to | Code: | | puts $html "<BODY BGCOLOR=\"$pxi2h(bgcolor)\" LINK=\"$pxi2h(heading)\" VLINK=\"$pxi2h(heading)\">" |
to fix that. |
|
| Back to top |
|
|
Football
Master
Joined: 26 Dec 2008
Posts: 205
Location: Quakenet, #Football
|
| Posted: Wed Feb 17, 2010 11:16 am Post subject: |
|
|
Ok, I changed that, thanks so far.
Let me know if there's any luck regarding the colors, could be great if you pull this one.
_________________
Idling at #Football, Quakenet. |
|
| Back to top |
|
|
Trixar_za
Op
Joined: 18 Nov 2009
Posts: 143
Location: South Africa
|
| Posted: Wed Feb 17, 2010 8:35 pm Post subject: |
|
|
Ok, here is the rewrite for you and anybody else that wants it. I added in a crapload of features and configuration options so far, so play around with it or ask me about it later 
Enjoy man!
| Code: | ########################################################################
### __ __ __ ###
### ___ ____ __ _ ___ ___ / /_ \ \/ / ###
### / _ \' __/ _ `/ / -_)/ __/ _/ ) ( ###
### / .__/_/ \___/ /\___/\__/\__/ /_/\_\ ###
### /_/ -------- /__/ --------------------- ###
### ###
########################################################################
### ProjectX IRC 2 HTML v2.1 by Trixar_za <trixarian@gmail.com> ###
### based on original script by Natrak <natrak@projectx.mx.dk> ###
########################################################################
### This script logs what goes on in an IRC channel, converts it to ###
### HTML and make it visible to user on the web. ###
########################################################################
### I mainly just fixed the bugs in this and added in a crapload ###
### more user configuration options, better way to handel font ###
### types, sizes and color. I also added in a way to show mirc ###
### control codes (even colours). So Enjoy! ###
### -- Trixar_za ###
########################################################################
### Configuration:
#
# The channel set to show online & path to output to:
set pxi2h_chan(#Zen) "/home/brenton/eggdrop/EPL.html"
#
# The prefix to prevent stuff from being shown on the web:
set pxi2h(secret) "."
#
# Maximum number of lines shown on the web:
set pxi2h(maxlines) 50
#
# The page is set to refes every X seconds:
set pxi2h(refresh) 5
#
# The title of the page:
set pxi2h(title) "#EPL - Latest Activity"
#
# The powered by of the page:
set pxi2h(powered) "<A HREF=\"http://www.eplonline.co.uk/viewpage.php?page_id=4/\">#EPL Quakenet</A>"
#
# Background color:
set pxi2h(bgcolor) "white"
#
# Default Font:
set pxi2h(font) "monospace"
#
# Default Text color:
set pxi2h(text) "black"
#
# Font type, color & size (in standard pixel format) for the heading:
set pxi2h(hfont) "sans-serif"
set pxi2h(heading) "#ff6a6a"
set pxi2h(hfontsize) "18"
#
# Font type, color & size (in standard pixel format) for the server address:
set pxi2h(sfont) "monospace"
set pxi2h(sfontcol) "black"
set pxi2h(sfontsize) "10"
#
# Font type, color & size (in standard pixel format) for the user list:
set pxi2h(ufont) "monospace"
set pxi2h(ufontcol) "black"
set pxi2h(ufontsize) "10"
#
# Font type, color & size (in standard pixel format) for the channel text:
set pxi2h(mfont) "monospace"
set pxi2h(mfontcol) "black"
set pxi2h(mfontsize) "11"
#
# Font type, color & size (in standard pixel format) for the powered by message:
set pxi2h(pfont) "sans-serif"
set pxi2h(pfontcol) "black"
set pxi2h(pfontsize) "12"
#
### End of config.
########################################################################
proc pxi2h:style {event chan nick host arg} {
global pxi2h_history
set chan [pxi2h:findchan $chan]
if {$chan == ""} { return }
switch -- $event {
actn { set text "* $nick $arg" }
join { set text "\00304*** $nick ($host) has joined $chan" }
kick { set text "*** [lindex $arg 0] was kicked by $nick ([lrange $arg 1 end])" }
mode { set text "*** $nick sets mode: $arg" }
nick { set text "*** $nick is now known as $arg" }
part { set text "*** $nick ($host) has left $chan" }
pubm { set text "<$nick> $arg" }
sign { set text "*** $nick ($host) #has quit irc ($arg)" }
topc { set text "*** $nick changes topic to '$arg'" }
}
set pxi2h_history($chan) [lappend pxi2h_history($chan) [pxi2h:control [pxi2h:convert $text]]]
utimer 1 "pxi2h:make $chan"
}
proc pxi2h:dcc {hand idx arg} {
global pxi2h
if {[string tolower [lindex $arg 0]] == "on"} {
set pxi2h(status) "on"
} elseif {[string tolower [lindex $arg 0]] == "off"} {
set pxi2h(status) "off"
}
putdcc $idx "ProjectX irc2html is $pxi2h(status)"
return 1
}
proc pxi2h:html {text} {
return [pxi2h:unconvert [pxi2h:convert $text]]
}
# mirc to html code by stdragon
proc pxi2h:control {text} {
set mirc_color(00) "white"
set mirc_color(01) "black"
set mirc_color(02) "blue"
set mirc_color(03) "green"
set mirc_color(04) "red"
set mirc_color(05) "brown"
set mirc_color(06) "purple"
set mirc_color(07) "orange"
set mirc_color(08) "yellow"
set mirc_color(09) "lightgreen"
set mirc_color(10) "cyan"
set mirc_color(11) "lightcyan"
set mirc_color(12) "lightblue"
set mirc_color(13) "pink"
set mirc_color(14) "grey"
set mirc_color(15) "lightgrey"
set chars [split $text ""]
set len [llength $chars]
set output ""
set in_bold 0
set in_color 0
set in_uline 0
for {set i 0} {$i < $len} {incr i} {
switch [lindex $chars $i] {
"" {
if {$in_bold} {
append output "</b>"
set in_bold 0
} else {
append output "<b>"
set in_bold 1
}
}
"" {
incr i
set c [lindex $chars $i]
if {$i < $len && [string is integer $c]} {
incr i
set d [lindex $chars $i]
if {$i < $len && [string is integer $d]} {
incr i
set num "$c$d"
} else {
set num "0$c"
}
if {$in_color} { append output "</font>" }
append output "<font color="
if {[info exists mirc_color($num)]} {
append output $mirc_color($num)
} else {
append output $pxi2h(text)
}
append output ">"
set in_color 1
# Skip past background color if it's there.
set c [lindex $chars $i]
if {$i < $len && $c == ","} {
incr i
set c [lindex $chars $i]
if {$i < $len && [string is integer $c]} {
incr i
set c [lindex $chars $i]
if {![string is integer $c]} { incr i -1 }
} else { incr i -2 }
} else { incr i -1 }
} else {
if {$in_color} { append output "</font>" }
set in_color 0
incr i -1
}
}
" " {
if {$in_uline} {
append output "</u>"
set in_uline 0
} else {
append output "<u>"
set in_uline 1
}
}
default {
append output [lindex $chars $i]
}
}
}
if {$in_bold} { append output "</b>" }
if {$in_color} { append output "</font>" }
if {$in_uline} { append output "</u>" }
return $output
}
proc pxi2h:clean {text} {
regsub -all {} $text "" text
regsub -all {[0-9]*} $text "" text
regsub -all { } $text "" text
return $text
}
proc pxi2h:convert {text} {
regsub -all , $text "" text
regsub -all {\]} $text "p!c1" text
regsub -all {\[} $text "p!c2" text
regsub -all {\}} $text "p!c3" text
regsub -all {\{} $text "p!c4" text
regsub -all {\$} $text "p!c5" text
regsub -all {\"} $text "p!c6" text
regsub -all {\;} $text "p!c7" text
regsub -all {\\} $text "p!c8" text
regsub -all {\/} $text "p!c9" text
regsub -all & $text "\\&" text
regsub -all < $text "\\<" text
regsub -all > $text "\\>" text
regsub -all \" $text "\\"" text
regsub -all " " $text "\\ " text
return $text
}
proc pxi2h:unconvert {text} {
regsub -all {p!c1} $text "\]" text
regsub -all {p!c2} $text "\[" text
regsub -all {p!c3} $text "\}" text
regsub -all {p!c4} $text "\{" text
regsub -all {p!c5} $text "\$" text
regsub -all {p!c6} $text "\"" text
regsub -all {p!c7} $text "\;" text
regsub -all {p!c8} $text "\\" text
regsub -all {p!c9} $text "\/" text
return $text
}
proc pxi2h:make {chan} {
global pxi2h_history pxi2h pxi2h_chan server
if {[llength $pxi2h_history($chan)] > $pxi2h(maxlines)} { set pxi2h_history($chan) [lrange $pxi2h_history($chan) 1 end] }
set nicks ""
foreach nick [chanlist $chan] {
if {[isop $nick $chan]} {
set nicks "$nicks @[pxi2h:convert $nick]"
} elseif {[isvoice $nick $chan]} {
set nicks "$nicks +[pxi2h:convert $nick]"
} else {
set nicks "$nicks [pxi2h:convert $nick]"
}
}
set nicks [lsort -increasing $nicks]
set html [open $pxi2h_chan($chan) w]
puts $html "<HTML>\n<HEAD>\n <TITLE>$pxi2h(title)</TITLE>\n <META HTTP-EQUIV=\"Refresh\" CONTENT=\"$pxi2h(refresh)\">\n</HEAD>"
puts $html "<BODY TEXT=\"$pxi2h(text)\" BGCOLOR=\"$pxi2h(bgcolor)\" LINK=\"$pxi2h(heading)\" VLINK=\"$pxi2h(heading)\">"
puts $html "<FONT COLOR=\"$pxi2h(heading)\" FACE=\"$pxi2h(hfont)\"><DIV style=\"font-size:$pxi2h(hfontsize)px\">$chan: '[pxi2h:clean [pxi2h:html [topic $chan]]]'</DIV></FONT><P>"
puts $html "<FONT COLOR=\"$pxi2h(sfontcol)\" FACE=\"$pxi2h(sfont)\"><DIV style=\"font-size:$pxi2h(sfontsize)px\"><B>Server</B>: [string range $server 0 [expr [string last ":" $server] - 1]]<DIV></FONT>"
puts $html "<FONT COLOR=\"$pxi2h(ufontcol)\" FACE=\"$pxi2h(ufont)\"><DIV style=\"font-size:$pxi2h(ufontsize)px\"><B>Users</B>: [pxi2h:unconvert $nicks]</DIV></FONT>\n <HR SIZE=\"1\">"
close $html
set html [open $pxi2h_chan($chan) a]
if {$pxi2h(status) == "on"} {
for {set i 0} {$i < [llength $pxi2h_history($chan)]} { incr i } {
puts $html "<FONT COLOR=\"$pxi2h(mfontcol)\" FACE=\"$pxi2h(mfont)\"><DIV style=\"font-size:$pxi2h(mfontsize)px\">\[[strftime "%H:%M"]\] [pxi2h:unconvert [lindex $pxi2h_history($chan) $i]]</DIV></FONT>"
}
} else {
puts $html "<BR><CENTER><B>O F F L I N E !</B></CENTER><P>"
}
puts $html "<HR SIZE=\"1\">\n <CENTER><FONT COLOR=\"$pxi2h(pfontcol)\" FACE=\"$pxi2h(pfont)\"><DIV style=\"font-size:$pxi2h(pfontsize)px\"><I>Powered by $pxi2h(powered)</I></DIV></FONT></CENTER>\n</BODY>\n</HTML>"
close $html
}
proc pxi2h:findchan {chan} {
global pxi2h_chan
foreach ele [array names pxi2h_chan] {
if {[string tolower $ele] == [string tolower $chan]} { return $ele }
}
}
proc pxi2h:ctcp {nick host handle dest keyword arg} {
if {![string compare $keyword "ACTION"]} { pxi2h:style "actn" $dest $nick $host $arg }
}
proc pxi2h:join {nick host handle chan} {
pxi2h:style "join" $chan $nick $host ""
}
proc pxi2h:kick {nick host handle chan knick arg} {
pxi2h:style "kick" $chan $nick $host "$knick $arg"
}
proc pxi2h:mode11x {nick host handle chan arg} {
if {[lindex $arg 0] == "+k"} { set mode [lindex $arg 0] } else { set mode [lrange $arg 0 end] }
pxi2h:style "mode" $chan $nick $host $mode
}
proc pxi2h:mode13x {nick host handle chan arg mnick} {
if {[lindex $arg 0] == "+k"} { set mode [lindex $arg 0] } else { set mode "[lrange $arg 0 end] $mnick" }
pxi2h:style "mode" $chan $nick $host $mode
}
proc pxi2h:nick {nick host handle chan newnick} {
pxi2h:style "nick" $chan $nick $host $newnick
}
proc pxi2h:part {nick host handle chan rest} {
pxi2h:style "part" $chan $nick $host ""
}
proc pxi2h:pubm {nick host handle chan arg} {
global pxi2h
if {[string range $arg 0 0] != $pxi2h(secret)} { pxi2h:style "pubm" $chan $nick $host $arg }
}
proc pxi2h:sign {nick host handle chan arg} {
pxi2h:style "sign" $chan $nick $host $arg
}
proc pxi2h:topc {nick host handle chan topic} {
if {$nick != "*"} { pxi2h:style "topc" $chan $nick $host $topic }
}
bind dcc +m irc2html pxi2h:dcc
bind ctcp - ACTION pxi2h:ctcp
bind join - * pxi2h:join
bind kick - * pxi2h:kick
if {[lindex $version 1] < "01030000"} {
bind mode - * pxi2h:mode11x
} else {
bind mode - * pxi2h:mode13x
}
bind nick - * pxi2h:nick
bind part - * pxi2h:part
bind pubm - * pxi2h:pubm
bind sign - * pxi2h:sign
bind topc - * pxi2h:topc
set pxi2h(ver) "2.00"
if {![info exists pxi2h(status)]} { set pxi2h(status) "on" }
if {[info exists pxi2h(status)] && [validchan pxi2h_chan]} {
foreach ele [array names pxi2h_chan] {
if {![info exists pxi2h_history($ele)]} { set pxi2h_history($ele) "" }
pxi2h:make $ele
}
}
putlog "\[ProjectX\] irc2html v$pxi2h(ver) loaded." |
|
|
| Back to top |
|
|
heartbroken
Op
Joined: 23 Jun 2011
Posts: 106
Location: somewhere out there
|
| Posted: Sat Sep 03, 2011 5:41 am Post subject: |
|
|
hi
i just load that script into my bot and working well thnx for that but it seems i have another problem with this about utf-8 support in to this code is it possible? because i've been using this code on a German speaking channel i've try to edit html codes into this script but not working..
i try to add charset=utf-8 lang name="DE" charset="iso-8859-1" on line of html codes but nope.. so how can we set utf-8 into this html codes. thnx..
_________________
Life iS Just a dReaM oN tHE wAy to DeaTh |
|
| Back to top |
|
|
Trixar_za
Op
Joined: 18 Nov 2009
Posts: 143
Location: South Africa
|
| Posted: Mon Sep 05, 2011 3:42 pm Post subject: |
|
|
You're on the right track, but just not putting the blame in the right place. The thing is that eggdrop doesn't process input with utf-8 by default. I also guess it has something to do with the server it's hosted on. For example, I tested the new script with a eggdrop bot on my debian server and it didn't work, yet the eggdrop I have running on my PC (SliTaz Linux) works with German characters in utf-8. They're both the same version of eggdrop too. Anyway, here's the modified script that tries to force encoding to utf-8 (and I kind of overkilled on extra configurable options...). All the bugs should be fixed too. Hope it works!
| Code: | ########################################################################
### __ __ __ ###
### ___ ____ __ _ ___ ___ / /_ \ \/ / ###
### / _ \' __/ _ `/ / -_)/ __/ _/ ) ( ###
### / .__/_/ \___/ /\___/\__/\__/ /_/\_\ ###
### /_/ -------- /__/ --------------------- ###
### ###
########################################################################
### ProjectX IRC 2 HTML v3.0 by Trixar_za <trixarian@gmail.com> ###
### based on original script by Natrak <natrak@projectx.mx.dk> ###
########################################################################
### This script logs what goes on in an IRC channel, converts it to ###
### HTML and make it visible to user on the web. ###
########################################################################
### The Configuration madness continues and this script is even more ###
### configurable to the point that you can alter most of the ###
### elements without alterning a single line of code. ###
### I also fixed some of my lingering bugs and added utf-8 support, ###
### which to me warrented another release and version number. ###
### So enjoy and have fun with it ;) ###
### -- Trixar_za ###
########################################################################
### Configuration:
#
# The channel set to show online & path to output to:
set pxi2h_chan(#Chatz) "/home/irc/eggdrop/index.html"
#
# The prefix to prevent stuff from being shown on the web:
set pxi2h(secret) "."
#
# Maximum number of lines shown on the web:
set pxi2h(maxlines) 50
#
# The page is set to refes every X seconds:
set pxi2h(refresh) 5
#
# HTML MANAGEMENT:
# Change these to alter the text, font, colour and size of the html elements
#
# The title of the page:
set pxi2h(title) "#Chatz - Latest Activity"
#
# Default Font & text colour:
set pxi2h(font) "monospace"
set pxi2h(text) "white"
#
# Background colour:
set pxi2h(bgcolor) "black"
#
# Links colour:
set pxi2h(links) "#FF6A6A"
#
# Topic Heading:
set pxi2h(htxt) "Topic for #Chatz: "
set pxi2h(hfont) "sans-serif"
set pxi2h(heading) "#FF6A6A"
set pxi2h(hfontsize) "18"
# Strip colours and other codes from the topic and only use the above colour?
# Remember more colours equal bigger file equals slower refresh times in a browser!
# Set this as 1 to enable and as 0 to disable
set pxi2h(tstrip) 1
#
# The user list:
set pxi2h(ufont) "monospace"
set pxi2h(ufontcol) "white"
set pxi2h(ufontsize) "10"
#
# Channel text:
set pxi2h(mfont) "monospace"
set pxi2h(mfontcol) "lightgrey"
set pxi2h(mfontsize) "11"
#
# Powered by footer:
set pxi2h(powered) "Powered by <A HREF=\"http://chat.gigirc.com/?channel=#chatz\">#Chatz on GigIRC</A>"
set pxi2h(pfont) "sans-serif"
set pxi2h(pfontcol) "white"
set pxi2h(pfontsize) "12"
#
# EVENTS MANAGEMENT:
#
# Change these to alter the text, colours and symbols used for events:
# The symbol gets used with actions (one) and events (three)
# Colour Key: white(00), black(01), blue(02), green(03), red(04), brown(05), purple(06), orange(07),
# yellow(08), light green(09), cyan(10), light cyan(11), light blue(12), pink(13), grey(14),
# light grey(15)
# Leave as "" to use default font colour. Remember more colours equal bigger file equals slower
# refresh times in a browser!
#
# Timestamp configuration:
set pxi2h(tstamp) "%H:%M:%S"
set pxi2h(tstampcol) "14"
set pxi2h(tleft) "\("
set pxi2h(tright) "\)"
# Nick wrapper (The <> or [] around nicknames - remember to prefix [ or ] with \ to use),
# and colours:
set pxi2h(left) "\["
set pxi2h(right) "\]"
# The Rest:
set pxi2h(symbol) "*"
set pxi2h(actioncol) "08"
set pxi2h(jointxt) "has joined"
set pxi2h(joincol) "03"
set pxi2h(kicktxt) "was kicked by"
set pxi2h(kickcol) "14"
set pxi2h(modetxt) "sets mode:"
set pxi2h(modecol) "07"
set pxi2h(nickchangetxt) "is now known as"
set pxi2h(nickchangecol) "07"
set pxi2h(parttxt) "has left"
set pxi2h(partcol) "14"
set pxi2h(quittxt) "has quit"
set pxi2h(quitcol) "04"
set pxi2h(topichangetxt) "changes the topic to"
set pxi2h(topichangecol) "07"
#
# STRIP FUNCTIONS:
#
# Use this to strip colour or formatting codes from users
# enable it by setting it as 1 and set as 0 to disable
set pxi2h(ustrip) 1
# This is the master strip function - it even strips the above colours you
# just set and uses the html elements colours only. Use this is your in
# serious need of smaller files and don't want to do all the effort of
# setting all the above colours to ""
# Set to 1 to enable and set to 0 to disable.
set pxi2h(mstrip) 0
#
########################################################################
### End of config. ###
########################################################################
proc pxi2h:style {event chan nick host arg} {
global pxi2h_history pxi2h
set chan [pxi2h:findchan $chan]
if {$chan == ""} { return }
set arg [encoding convertto utf-8 $arg]
if {$pxi2h(ustrip) == 1} {
set arg [pxi2h:clean $arg]
}
switch -- $event {
actn { set text "\003$pxi2h(actioncol)$pxi2h(symbol) $nick $arg" }
join { set text "\003$pxi2h(joincol)[string repeat $pxi2h(symbol) 3] $nick ($host) $pxi2h(jointxt) $chan" }
kick { set text "\003$pxi2h(kickcol)[string repeat $pxi2h(symbol) 3] [lindex $arg 0] $pxi2h(kicktxt) $nick ([lrange $arg 1 end])" }
mode { set text "\003$pxi2h(modecol)[string repeat $pxi2h(symbol) 3] $nick $pxi2h(modetxt) $arg" }
nick { set text "\003$pxi2h(nickchangecol)[string repeat $pxi2h(symbol) 3] $nick $pxi2h(nickchangetxt) $arg" }
part { set text "\003$pxi2h(partcol)[string repeat $pxi2h(symbol) 3] $nick ($host) $pxi2h(parttxt) $chan" }
pubm {
if {[ishalfop $nick $chan]} {
set text "$pxi2h(left)%$nick$pxi2h(right) $arg"
} elseif {[isop $nick $chan]} {
set text "$pxi2h(left)@$nick$pxi2h(right) $arg"
} elseif {[isvoice $nick $chan]} {
set text "$pxi2h(left)+$nick$pxi2h(right) $arg"
} else {
set text "$pxi2h(left)$nick$pxi2h(right) $arg"
}
}
sign { set text "\003$pxi2h(quitcol)[string repeat $pxi2h(symbol) 3] $nick ($host) $pxi2h(quittxt) ($arg)" }
topc { set text "\003$pxi2h(topichangecol)[string repeat $pxi2h(symbol) 3] $nick $pxi2h(topichangetxt) \"$arg\"" }
}
set text "[strftime "\003$pxi2h(tstampcol)$pxi2h(tleft)$pxi2h(tstamp)$pxi2h(tright)\003"] $text"
set pxi2h_history($chan) [lappend pxi2h_history($chan) [pxi2h:control [pxi2h:convert $text]]]
utimer 1 "pxi2h:make $chan"
}
proc pxi2h:dcc {hand idx arg} {
global pxi2h
if {[string tolower [lindex $arg 0]] == "on"} {
set pxi2h(status) "on"
} elseif {[string tolower [lindex $arg 0]] == "off"} {
set pxi2h(status) "off"
}
putdcc $idx "ProjectX irc2html is $pxi2h(status)"
return 1
}
proc pxi2h:html {text} {
return [pxi2h:unconvert [pxi2h:convert $text]]
}
# mirc to html code by stdragon
proc pxi2h:control {text} {
set mirc_color(00) "white"
set mirc_color(01) "black"
set mirc_color(02) "blue"
set mirc_color(03) "green"
set mirc_color(04) "red"
set mirc_color(05) "brown"
set mirc_color(06) "purple"
set mirc_color(07) "orange"
set mirc_color(08) "yellow"
set mirc_color(09) "lightgreen"
set mirc_color(10) "cyan"
set mirc_color(11) "lightcyan"
set mirc_color(12) "lightblue"
set mirc_color(13) "pink"
set mirc_color(14) "grey"
set mirc_color(15) "lightgrey"
set chars [split $text ""]
set len [llength $chars]
set output ""
set in_bold 0
set in_color 0
set in_uline 0
for {set i 0} {$i < $len} {incr i} {
switch -- [lindex $chars $i] {
"\002" {
if {$in_bold} {
append output "</b>"
set in_bold 0
} else {
append output "<b>"
set in_bold 1
}
}
"\003" {
incr i
set c [lindex $chars $i]
if {$i < $len && [string is integer $c]} {
incr i
set d [lindex $chars $i]
if {$i < $len && [string is integer $d]} {
incr i
set num "$c$d"
} else {
set num "0$c"
}
if {$in_color} { append output "</font>" }
append output "<font color="
if {[info exists mirc_color($num)]} {
append output $mirc_color($num)
} else {
append output $pxi2h(text)
}
append output ">"
set in_color 1
# Skip past background color if it's there.
set c [lindex $chars $i]
if {$i < $len && $c == ","} {
incr i
set c [lindex $chars $i]
if {$i < $len && [string is integer $c]} {
incr i
set c [lindex $chars $i]
if {![string is integer $c]} { incr i -1 }
} else { incr i -2 }
} else { incr i -1 }
} else {
if {$in_color} { append output "</font>" }
set in_color 0
incr i -1
}
}
"\x1F" {
if {$in_uline} {
append output "</u>"
set in_uline 0
} else {
append output "<u>"
set in_uline 1
}
}
default {
append output [lindex $chars $i]
}
}
}
if {$in_bold} { append output "</b>" }
if {$in_color} { append output "</font>" }
if {$in_uline} { append output "</u>" }
return $output
}
proc pxi2h:clean {text} {
regsub -all {\002} $text "" text
regsub -all {\003[0-9]*} $text "" text
regsub -all {\x1F} $text "" text
return $text
}
proc pxi2h:convert {text} {
global pxi2h
regsub -all {\]} $text {p!c1} text
regsub -all {\[} $text {p!c2} text
regsub -all {\}} $text {p!c3} text
regsub -all {\{} $text {p!c4} text
regsub -all {\$} $text {p!c5} text
regsub -all {\"} $text {p!c6} text
regsub -all {\;} $text {p!c7} text
regsub -all {\\} $text {p!c8} text
regsub -all {\/} $text {p!c9} text
regsub -all {\&} $text {\&} text
regsub -all {\<} $text {\<} text
regsub -all {\>} $text {\>} text
regsub -all {\"} $text {\"} text
regsub -all { } $text {\ } text
if {$pxi2h(mstrip) == 1} {
set text [pxi2h:clean $text]
}
return $text
}
proc pxi2h:unconvert {text} {
regsub -all {p!c1} $text "\]" text
regsub -all {p!c2} $text "\[" text
regsub -all {p!c3} $text "\}" text
regsub -all {p!c4} $text "\{" text
regsub -all {p!c5} $text "\$" text
regsub -all {p!c6} $text "\"" text
regsub -all {p!c7} $text "\;" text
regsub -all {p!c8} $text "\\" text
regsub -all {p!c9} $text "\/" text
return $text
}
proc pxi2h:make {chan} {
global pxi2h_history pxi2h pxi2h_chan server
if {[llength $pxi2h_history($chan)] > $pxi2h(maxlines)} { set pxi2h_history($chan) [lrange $pxi2h_history($chan) 1 end] }
set ops ""
set halfops ""
set voice ""
set other ""
foreach nick [chanlist $chan] {
if {[ishalfop $nick $chan]} {
set halfops "$halfops %[pxi2h:convert $nick]"
} elseif {[isop $nick $chan]} {
set ops "$ops @[pxi2h:convert $nick]"
} elseif {[isvoice $nick $chan]} {
set voice "$voice +[pxi2h:convert $nick]"
} else {
set other "$other [pxi2h:convert $nick]"
}
}
set ops [lsort -increasing $ops]
set halfops [lsort -increasing $halfops]
set voice [lsort -increasing $voice]
set other [lsort -increasing $other]
set ops "$ops $halfops"
set other "$voice $other"
set html [open $pxi2h_chan($chan) w]
puts $html "<HTML>\n<HEAD>\n <TITLE>$pxi2h(title)</TITLE>\n <META HTTP-EQUIV=\"Refresh\" CONTENT=\"$pxi2h(refresh)\">\n <META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=UTF-8\">\n </HEAD>"
puts $html "<BODY TEXT=\"$pxi2h(text)\" BGCOLOR=\"$pxi2h(bgcolor)\" LINK=\"$pxi2h(links)\" VLINK=\"$pxi2h(links)\">"
if {$pxi2h(tstrip) == 0} {
puts $html "<FONT COLOR=\"$pxi2h(heading)\" FACE=\"$pxi2h(hfont)\"><DIV style=\"font-size:$pxi2h(hfontsize)px\">$pxi2h(htxt)\"[pxi2h:control [pxi2h:html [topic $chan]]]\"</DIV></FONT><BR />"
} else {
puts $html "<FONT COLOR=\"$pxi2h(heading)\" FACE=\"$pxi2h(hfont)\"><DIV style=\"font-size:$pxi2h(hfontsize)px\">$pxi2h(htxt)\"[pxi2h:clean [pxi2h:html [topic $chan]]]\"</DIV></FONT><BR />"
}
puts $html "<FONT COLOR=\"$pxi2h(ufontcol)\" FACE=\"$pxi2h(ufont)\"><DIV style=\"font-size:$pxi2h(ufontsize)px\"><B>Ops</B>: [pxi2h:unconvert $ops]</DIV></FONT>\n"
puts $html "<FONT COLOR=\"$pxi2h(ufontcol)\" FACE=\"$pxi2h(ufont)\"><DIV style=\"font-size:$pxi2h(ufontsize)px\"><B>Users</B>: [pxi2h:unconvert $other]</DIV></FONT>\n <HR SIZE=\"1\">"
close $html
set html [open $pxi2h_chan($chan) a]
if {$pxi2h(status) == "on"} {
for {set i 0} {$i < [llength $pxi2h_history($chan)]} { incr i } {
puts $html "<FONT COLOR=\"$pxi2h(mfontcol)\" FACE=\"$pxi2h(mfont)\"><DIV style=\"font-size:$pxi2h(mfontsize)px\">[pxi2h:unconvert [lindex $pxi2h_history($chan) $i]]</DIV></FONT>"
}
} else {
puts $html "<BR><CENTER><B>O F F L I N E !</B></CENTER><P>"
}
puts $html "<HR SIZE=\"1\">\n <CENTER><FONT COLOR=\"$pxi2h(pfontcol)\" FACE=\"$pxi2h(pfont)\"><DIV style=\"font-size:$pxi2h(pfontsize)px\"><I>$pxi2h(powered)</I></DIV></FONT></CENTER>\n</BODY>\n</HTML>"
close $html
}
proc pxi2h:findchan {chan} {
global pxi2h_chan
foreach ele [array names pxi2h_chan] {
if {[string tolower $ele] == [string tolower $chan]} { return $ele }
}
}
proc pxi2h:ctcp {nick host handle dest keyword arg} {
if {![string compare $keyword "ACTION"]} { pxi2h:style "actn" $dest $nick $host $arg }
}
proc pxi2h:join {nick host handle chan} {
pxi2h:style "join" $chan $nick $host ""
}
proc pxi2h:kick {nick host handle chan knick arg} {
pxi2h:style "kick" $chan $nick $host "$knick $arg"
}
proc pxi2h:mode11x {nick host handle chan arg} {
if {[lindex $arg 0] == "+k"} { set mode [lindex $arg 0] } else { set mode [lrange $arg 0 end] }
pxi2h:style "mode" $chan $nick $host $mode
}
proc pxi2h:mode13x {nick host handle chan arg mnick} {
if {[lindex $arg 0] == "+k"} { set mode [lindex $arg 0] } else { set mode "[lrange $arg 0 end] $mnick" }
pxi2h:style "mode" $chan $nick $host $mode
}
proc pxi2h:nick {nick host handle chan newnick} {
pxi2h:style "nick" $chan $nick $host $newnick
}
proc pxi2h:part {nick host handle chan rest} {
pxi2h:style "part" $chan $nick $host ""
}
proc pxi2h:pubm {nick host handle chan arg} {
global pxi2h
if {[string range $arg 0 0] != $pxi2h(secret)} { pxi2h:style "pubm" $chan $nick $host $arg }
}
proc pxi2h:sign {nick host handle chan arg} {
pxi2h:style "sign" $chan $nick $host $arg
}
proc pxi2h:topc {nick host handle chan topic} {
if {$nick != "*"} { pxi2h:style "topc" $chan $nick $host $topic }
}
bind dcc +m irc2html pxi2h:dcc
bind ctcp - ACTION pxi2h:ctcp
bind join - * pxi2h:join
bind kick - * pxi2h:kick
if {[lindex $version 1] < "01030000"} {
bind mode - * pxi2h:mode11x
} else {
bind mode - * pxi2h:mode13x
}
bind nick - * pxi2h:nick
bind part - * pxi2h:part
bind pubm - * pxi2h:pubm
bind sign - * pxi2h:sign
bind topc - * pxi2h:topc
set pxi2h(ver) "3.0"
if {![info exists pxi2h(status)]} { set pxi2h(status) "on" }
if {[info exists pxi2h(status)] && [validchan pxi2h_chan]} {
foreach ele [array names pxi2h_chan] {
if {![info exists pxi2h_history($ele)]} { set pxi2h_history($ele) "" }
pxi2h:make $ele
}
}
putlog "\[ProjectX\] irc2html v$pxi2h(ver) loaded." |
_________________
http://www.trixarian.net/Projects |
|
| Back to top |
|
|
|
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
