HTML Logger — File Browser
HTMLLoggerv1.0 / HTMLLoggerv1.0 / HTMLL / htmlogs.mrc
htmlogs.mrc — 18.92 KB — Download this file
********************************
* HTML Logger v1.0 *
* Made by b00hp aka bewPy *
* Readme is in Docs Directory *
* *
* Email: corey5424@gmail.com *
* ******************************
on *:load:{
echo -s You have successfully loaded HTML Logger.
echo -s If you need help please read the readme located in the Docs folder.
hadd html version 1.0
hadd html join CC0000
hadd html input 66FF33
hadd html part CC00CC
hadd html mode FFFF00
hadd html chan FF6600
hadd html text FFFFFF
hadd html nick 33FFFF
hadd html kick 66CCFF
hadd html ban FF6600
hadd html op FF00CC
hadd html voice FFFFCC
hadd html background 000000
hadd html action FFCC33
hadd html topic 009999
if (!$hget(html,apache)) {
hadd html apache $shortfn($sdir(C:\,Locate the folder you with your logs to goto))
}
hsave -o html html.hsh
}
menu channel,menubar,query,status {
-
HTML Logger
.Advertise: msg $active I am using HTML Logger v $+ $hget(html,version) made by bewPy
.My Version:echo -a 4You current version of HTML Logger is $hget(html,version)
.Change Colors
..Join:hadd html join $$?"Color HEX for Join"
..Part:hadd html part $$?"Color HEX for Part"
..Input:hadd html input $$?"Color HEX for Input"
..Mode:hadd html mode $$?"Color HEX for Mode"
..Channel:hadd html chan $$?"Color HEX for Mode"
..Text:hadd html text $$?"Color HEX for Text"
..Nick:hadd html nick $$?"Color HEX for Nick"
..Kick:hadd html kick $$?"Color HEX for Kick"
..Ban:hadd html kick $$?"Color HEX for Ban"
..Op/Deop:hadd html op $$?"Color HEX for OP"
..Voice/DeVoice:hadd html voice $$?"Color HEX for Voice"
..Background:hadd html background $$?"Color HEX for Background"
..Action:hadd html action $$?"Color HEX for Action"
..Topic:hadd html topic $$?"Color HEX for Topic"
.Hex Converter:dialog -dm conv conv
-
}
on *:text:*:#:{
if (!$exists($hget(html,apache) $+ $+ $chan $+ .html)) {
write $hget(html,apache) $+ channels.html <a href=" $+ $replace($chan,$chr(35),$chr(37) $+ 23) $+ .html" target="main"> $+ $chan $+ </a><br>
write $hget(html,apache) $+ $chan $+ .html <body bgcolor=" $+ $hget(html,background) $+ "></body>
write $hget(html,apache) $+ $chan $+ .html <font size="5" color=" $+ $hget(html,chan) $+ "> $+ $chan $+ </font><p>
write $hget(html,apache) $+ $chan $+ .html <font size="4" color=" $+ $hget(html,topic) $+ "> $+ <b>Topic</b> $+ </font><font color=" $+ $hget(html,text) $+ "> $strip($chan($chan).topic) </font><p>
write $hget(html,apache) $+ $chan $+ .html <font color=" $+ $hget(html,nick) $+ "><b> $+ $nick $+ </font></b><font color=" $+ $hget(html,text) $+ ">:</font><font color=" $+ $hget(html,text) $+ "> $strip($replace($1-,$chr(60),<)) </font><br>
}
else {
write $hget(html,apache) $+ $chan $+ .html <font color=" $+ $hget(html,nick) $+ "><b> $+ $nick $+ </font></b><font color=" $+ $hget(html,text) $+ ">:</font><font color=" $+ $hget(html,text) $+ "> $strip($replace($1-,$chr(60),<)) </font><br>
}
}
on *:join:#:{
if (!$exists($hget(html,apache) $+ $chan $+ .html)) {
write $hget(html,apache) $+ channels.html <a href=" $+ $replace($chan,$chr(35),$chr(37) $+ 23) $+ .html" target="main"> $+ $chan $+ </a><br>
write $hget(html,apache) $+ $chan $+ .html <body bgcolor=" $+ $hget(html,background) $+ "></body>
write $hget(html,apache) $+ $chan $+ .html <font size="5" color=" $+ $hget(html,chan) $+ "> $+ $chan $+ </font> <p>
write $hget(html,apache) $+ $chan $+ .html <font size="4" color=" $+ $hget(html,topic) $+ "> $+ <b>Topic</b> $+ </font><font color=" $+ $hget(html,text) $+ "> $strip($chan($chan).topic) </font><p>
write $hget(html,apache) $+ $chan $+ .html <b><font color=" $+ $hget(html,join) $+ "> $+ $nick $+ </font></b><font color=" $+ $hget(html,text) $+ "> has joined.</font><br>
}
else {
write $hget(html,apache) $+ $chan $+ .html <b><font color=" $+ $hget(html,join) $+ "> $+ $nick $+ </font></b><font color=" $+ $hget(html,text) $+ "> has joined.</font><br>
}
}
on *:input:#:{
if ($left($1,1) != /) {
if (!$exists($hget(html,apache) $+ $chan $+ .html)) {
write $hget(html,apache) $+ channels.html <a href=" $+ $replace($chan,$chr(35),$chr(37) $+ 23) $+ .html" target="main"> $+ $chan $+ </a><br>
write $hget(html,apache) $+ $chan $+ .html <body bgcolor=" $+ $hget(html,background) $+ "></body>
write $hget(html,apache) $+ $chan $+ .html <font size="5" color=" $+ $hget(html,chan) $+ "> $+ $chan $+ </font> <p>
write $hget(html,apache) $+ $chan $+ .html <font size="4" color=" $+ $hget(html,topic) $+ "> $+ <b>Topic</b> $+ </font><font color=" $+ $hget(html,text) $+ "> $strip($chan($chan).topic) </font><p>
write $hget(html,apache) $+ $chan $+ .html <font color=" $+ $hget(html,input) $+ "><b> $+ $me $+ </font></b><font color=" $+ $hget(html,text) $+ ">:</font><font color=" $+ $hget(html,text) $+ "> $strip($replace($1-,$chr(60),<)) </font><br>
}
else {
write $hget(html,apache) $+ $chan $+ .html <font color=" $+ $hget(html,input) $+ "><b> $+ $me $+ </font></b><font color=" $+ $hget(html,text) $+ ">:</font><font color=" $+ $hget(html,text) $+ "> $strip($replace($1-,$chr(60),<)) </font><br>
}
}
}
on *:mode:#:{
if (!$exists($hget(html,apache) $+ $chan $+ .html)) {
write $hget(html,apache) $+ channels.html <a href=" $+ $replace($chan,$chr(35),$chr(37) $+ 23) $+ .html" target="main"> $+ $chan $+ </a><br>
write $hget(html,apache) $+ $chan $+ .html <body bgcolor=" $+ $hget(html,background) $+ "></body>
write $hget(html,apache) $+ $chan $+ .html <font size="5" color=" $+ $hget(html,chan) $+ "> $+ $chan $+ </font> <p>
write $hget(html,apache) $+ $chan $+ .html <font size="4" color=" $+ $hget(html,topic) $+ "> $+ <b>Topic</b> $+ </font><font color=" $+ $hget(html,text) $+ "> $strip($chan($chan).topic) </font><p>
write $hget(html,apache) $+ $chan $+ .html <b><font color=" $+ $hget(html,mode) $+ "> $+ $nick $+ </font></b><font color=" $+ $hget(html,text) $+ "> changed mode to $strip($1-) </font><br>
}
else {
write $hget(html,apache) $+ $chan $+ .html <b><font color=" $+ $hget(html,mode) $+ "> $+ $nick $+ </font></b><font color=" $+ $hget(html,text) $+ "> changed mode to $strip($1-) </font><br>
}
}
on *:part:#:{
if (!$exists($hget(html,apache) $+ $chan $+ .html)) {
write $hget(html,apache) $+ channels.html <a href=" $+ $replace($chan,$chr(35),$chr(37) $+ 23) $+ .html" target="main"> $+ $chan $+ </a><br>
write $hget(html,apache) $+ $chan $+ .html <body bgcolor=" $+ $hget(html,background) $+ "></body>
write $hget(html,apache) $+ $chan $+ .html <font size="5" color=" $+ $hget(html,chan) $+ "> $+ $chan $+ </font> <p>
write $hget(html,apache) $+ $chan $+ .html <font size="4" color=" $+ $hget(html,topic) $+ "> $+ <b>Topic</b> $+ </font><font color=" $+ $hget(html,text) $+ "> $strip($chan($chan).topic) </font><p>
write $hget(html,apache) $+ $chan $+ .html <b><font color=" $+ $hget(html,part) $+ "> $+ $nick $+ </font></b><font color=" $+ $hget(html,text) $+ "> has parted.</font><br>
}
else {
write $hget(html,apache) $+ $chan $+ .html <b><font color=" $+ $hget(html,part) $+ "> $+ $nick $+ </font></b><font color=" $+ $hget(html,text) $+ "> has parted.</font><br>
}
}
on *:kick:#:{
if (!$exists($hget(html,apache) $+ $chan $+ .html)) {
write $hget(html,apache) $+ channels.html <a href=" $+ $replace($chan,$chr(35),$chr(37) $+ 23) $+ .html" target="main"> $+ $chan $+ </a><br>
write $hget(html,apache) $+ $chan $+ .html <body bgcolor=" $+ $hget(html,background) $+ "></body>
write $hget(html,apache) $+ $chan $+ .html <font size="5" color=" $+ $hget(html,chan) $+ "> $+ $chan $+ </font> <p>
write $hget(html,apache) $+ $chan $+ .html <font size="4" color=" $+ $hget(html,topic) $+ "> $+ <b>Topic</b> $+ </font><font color=" $+ $hget(html,text) $+ "> $strip($chan($chan).topic) </font><p>
write $hget(html,apache) $+ $chan $+ .html <b><font color=" $+ $hget(html,kick) $+ "> $+ $nick $+ </font></b><font color=" $+ $hget(html,text) $+ "> was kicked by <b> $+ $knick $+ </b></font><br>
}
else {
write $hget(html,apache) $+ $chan $+ .html <b><font color=" $+ $hget(html,kick) $+ "> $+ $knick $+ </font></b><font color=" $+ $hget(html,text) $+ "> was kicked by <b> $+ $nick $+ </b></font><br>
}
}
on *:ban:#:{
if (!$exists($hget(html,apache) $+ $chan $+ .html)) {
write $hget(html,apache) $+ channels.html <a href=" $+ $replace($chan,$chr(35),$chr(37) $+ 23) $+ .html" target="main"> $+ $chan $+ </a><br>
write $hget(html,apache) $+ $chan $+ .html <body bgcolor=" $+ $hget(html,background) $+ "></body>
write $hget(html,apache) $+ $chan $+ .html <font size="5" color=" $+ $hget(html,chan) $+ "> $+ $chan $+ </font> <p>
write $hget(html,apache) $+ $chan $+ .html <font size="4" color=" $+ $hget(html,topic) $+ "> $+ <b>Topic</b> $+ </font><font color=" $+ $hget(html,text) $+ "> $strip($chan($chan).topic) </font><p>
write $hget(html,apache) $+ $chan $+ .html <b><font color=" $+ $hget(html,ban)$hget(html,ban) $+ "> $+ $banmask $+ </font></b><font color=" $+ $hget(html,text) $+ "> was banned by <b> $+ $nick $+ </b></font><br>
}
else {
write $hget(html,apache) $+ $chan $+ .html <b><font color=" $+ $hget(html,ban) $+ "> $+ $banmask $+ </font></b><font color=" $+ $hget(html,text) $+ "> was banned by <b> $+ $nick $+ </b></font><br>
}
}
on *:unban:#:{
if (!$exists($hget(html,apache) $+ $chan $+ .html)) {
write $hget(html,apache) $+ channels.html <a href=" $+ $replace($chan,$chr(35),$chr(37) $+ 23) $+ .html" target="main"> $+ $chan $+ </a><br>
write $hget(html,apache) $+ $chan $+ .html <body bgcolor=" $+ $hget(html,background) $+ "></body>
write $hget(html,apache) $+ $chan $+ .html <font size="5" color=" $+ $hget(html,chan) $+ "> $+ $chan $+ </font> <p>
write $hget(html,apache) $+ $chan $+ .html <font size="4" color=" $+ $hget(html,topic) $+ "> $+ <b>Topic</b> $+ </font><font color=" $+ $hget(html,text) $+ "> $strip($chan($chan).topic) </font><p>
write $hget(html,apache) $+ $chan $+ .html <b><font color=" $+ $hget(html,ban) $+ "> $+ $banmask $+ </font></b><font color=" $+ $hget(html,text) $+ "> was unbanned by <b> $+ $nick $+ </b></font><br>
}
else {
write $hget(html,apache) $+ $chan $+ .html <b><font color=" $+ $hget(html,ban) $+ "> $+ $banmask $+ </font></b><font color=" $+ $hget(html,text) $+ "> was unbanned by <b> $+ $nick $+ </b></font><br>
}
}
on *:OP:#:{
if (!$exists($hget(html,apache) $+ $chan $+ .html)) {
write $hget(html,apache) $+ channels.html <a href=" $+ $replace($chan,$chr(35),$chr(37) $+ 23) $+ .html" target="main"> $+ $chan $+ </a><br>
write $hget(html,apache) $+ $chan $+ .html <body bgcolor=" $+ $hget(html,background) $+ "></body>
write $hget(html,apache) $+ $chan $+ .html <font size="5" color=" $+ $hget(html,chan) $+ "> $+ $chan $+ </font> <p>
write $hget(html,apache) $+ $chan $+ .html <font size="4" color=" $+ $hget(html,topic) $+ "> $+ <b>Topic</b> $+ </font><font color=" $+ $hget(html,text) $+ "> $strip($chan($chan).topic) </font><p>
write $hget(html,apache) $+ $chan $+ .html <b><font color=" $+ $hget(html,op) $+ "> $+ $opnick $+ </font></b><font color=" $+ $hget(html,text) $+ "> was OPED by <b> $+ $nick $+ </b></font><br>
}
else {
write $hget(html,apache) $+ $chan $+ .html <b><font color=" $+ $hget(html,op) $+ "> $+ $opnick $+ </font></b><font color=" $+ $hget(html,text) $+ "> was OPED by <b> $+ $nick $+ </b></font><br>
}
}
on *:deop:#:{
if (!$exists($hget(html,apache) $+ $chan $+ .html)) {
write $hget(html,apache) $+ channels.html <a href=" $+ $replace($chan,$chr(35),$chr(37) $+ 23) $+ .html" target="main"> $+ $chan $+ </a><br>
write $hget(html,apache) $+ $chan $+ .html <body bgcolor=" $+ $hget(html,background) $+ "></body>
write $hget(html,apache) $+ $chan $+ .html <font size="5" color=" $+ $hget(html,chan) $+ "> $+ $chan $+ </font> <p>
write $hget(html,apache) $+ $chan $+ .html <font size="4" color=" $+ $hget(html,topic) $+ "> $+ <b>Topic</b> $+ </font><font color=" $+ $hget(html,text) $+ "> $strip($chan($chan).topic) </font><p>
write $hget(html,apache) $+ $chan $+ .html <b><font color=" $+ $hget(html,op) $+ "> $+ $opnick $+ </font></b><font color=" $+ $hget(html,text) $+ "> was DEOPED by <b> $+ $nick $+ </b></font><br>
}
else {
write $hget(html,apache) $+ $chan $+ .html <b><font color=" $+ $hget(html,op) $+ "> $+ $opnick $+ </font></b><font color=" $+ $hget(html,text) $+ "> was DEOPED by <b> $+ $nick $+ </b></font><br>
}
}
on *:devoice:#:{
if (!$exists($hget(html,apache) $+ $chan $+ .html)) {
write $hget(html,apache) $+ channels.html <a href=" $+ $replace($chan,$chr(35),$chr(37) $+ 23) $+ .html" target="main"> $+ $chan $+ </a><br>
write $hget(html,apache) $+ $chan $+ .html <body bgcolor=" $+ $hget(html,background) $+ "></body>
write $hget(html,apache) $+ $chan $+ .html <font size="5" color=" $+ $hget(html,chan) $+ "> $+ $chan $+ </font> <p>
write $hget(html,apache) $+ $chan $+ .html <font size="4" color=" $+ $hget(html,topic) $+ "> $+ <b>Topic</b> $+ </font><font color=" $+ $hget(html,text) $+ "> $strip($chan($chan).topic) </font><p>
write $hget(html,apache) $+ $chan $+ .html <b><font color=" $+ $hget(html,voice) $+ "> $+ $vnick $+ </font></b><font color=" $+ $hget(html,text) $+ "> was DEVOICED by <b> $+ $nick $+ </b></font><br>
}
else {
write $hget(html,apache) $+ $chan $+ .html <b><font color=" $+ $hget(html,voice) $+ "> $+ $vnick $+ </font></b><font color=" $+ $hget(html,text) $+ "> was DEVOICED by <b> $+ $nick $+ </b></font><br>
}
}
on *:VOICE:#:{
if (!$exists($hget(html,apache) $+ $chan $+ .html)) {
write $hget(html,apache) $+ channels.html <a href=" $+ $replace($chan,$chr(35),$chr(37) $+ 23) $+ .html" target="main"> $+ $chan $+ </a><br>
write $hget(html,apache) $+ $chan $+ .html <body bgcolor=" $+ $hget(html,background) $+ "></body>
write $hget(html,apache) $+ $chan $+ .html <font size="5" color=" $+ $hget(html,chan) $+ "> $+ $chan $+ </font> <p>
write $hget(html,apache) $+ $chan $+ .html <font size="4" color=" $+ $hget(html,topic) $+ "> $+ <b>Topic</b> $+ </font><font color=" $+ $hget(html,text) $+ "> $strip($chan($chan).topic) </font><p>
write $hget(html,apache) $+ $chan $+ .html <b><font color=" $+ $hget(html,voice) $+ "> $+ $vnick $+ </font></b><font color=" $+ $hget(html,text) $+ "> was VOICED by <b> $+ $nick $+ </b></font><br>
}
else {
write $hget(html,apache) $+ $chan $+ .html <b><font color=" $+ $hget(html,voice) $+ "> $+ $vnick $+ </font></b><font color=" $+ $hget(html,text) $+ "> was VOICED by <b> $+ $nick $+ </b></font><br>
}
}
on *:topic:#:{
if (!$exists($hget(html,apache) $+ $chan $+ .html)) {
write $hget(html,apache) $+ channels.html <a href=" $+ $replace($chan,$chr(35),$chr(37) $+ 23) $+ .html" target="main"> $+ $chan $+ </a><br>
write $hget(html,apache) $+ $chan $+ .html <body bgcolor=" $+ $hget(html,background) $+ "></body>
write $hget(html,apache) $+ $chan $+ .html <font size="5" color=" $+ $hget(html,chan) $+ "> $+ $chan $+ </font> <p>
write $hget(html,apache) $+ $chan $+ .html <font size="4" color=" $+ $hget(html,topic) $+ "> $+ <b>Topic</b> $+ </font><font color=" $+ $hget(html,text) $+ "> $strip($chan($chan).topic) </font><p>
write $hget(html,apache) $+ $chan $+ .html <b><font color=" $+ $hget(html,topic) $+ "> $+ Topic Changed To --></font></b><font color=" $+ $hget(html,text) $+ "> $strip($1-) </font><br>
}
else {
write $hget(html,apache) $+ $chan $+ .html <b><font color=" $+ $hget(html,topic) $+ "> $+ Topic Changed To --></font></b><font color=" $+ $hget(html,text) $+ "> $strip($1-) </font><br>
}
}
on *:action:*:#:{
if (!$exists($hget(html,apache) $+ $chan $+ .html)) {
write $hget(html,apache) $+ channels.html <a href=" $+ $replace($chan,$chr(35),$chr(37) $+ 23) $+ .html" target="main"> $+ $chan $+ </a><br>
write $hget(html,apache) $+ $chan $+ .html <body bgcolor=" $+ $hget(html,background) $+ "></body>
write $hget(html,apache) $+ $chan $+ .html <font size="5" color=" $+ $hget(html,chan) $+ "> $+ $chan $+ </font> <p>
write $hget(html,apache) $+ $chan $+ .html <font size="4" color=" $+ $hget(html,topic) $+ "> $+ <b>Topic</b> $+ </font><font color=" $+ $hget(html,text) $+ "> $strip($chan($chan).topic) </font><p>
write $hget(html,apache) $+ $chan $+ .html <b><font color=" $+ $hget(html,action) $+ "> $+ * $nick $+ </font></b><font color=" $+ $hget(html,text) $+ "> $strip($1-) </font><br>
}
else {
write $hget(html,apache) $+ $chan $+ .html <b><font color=" $+ $hget(html,action) $+ "> $+ * $nick $+ </font></b><font color=" $+ $hget(html,text) $+ "> $strip($1-) </font><br>
}
}
dialog conv {
title "Color Converter"
size -1 -1 87 30
option dbu
text "Red:", 1, 0 21 11 8
text "Green:", 2, 27 21 16 8
text "Blue:", 3, 59 21 12 8
edit "0", 4, 11 20 16 10, limit 3 center
edit "0", 5, 43 20 16 10, limit 3 center
edit "0", 6, 71 20 16 10, limit 3 center
edit "000000", 7, 29 0 31 10, read limit 6 center
text "HTML Color:", 8, 0 1 29 8
text "RGB Color:", 9, 0 11 29 8, right
edit "0", 10, 29 10 31 10, limit 8 center
button "Preview", 11, 60 0 27 10
}
alias htmllogsconv { if (!$dialog(conv)) { dialog -md conv conv } | else { dialog -x conv } }
on *:DIALOG:conv:*:*:{
if ($devent == EDIT) {
if ($did >= 4) && ($did <= 6) {
if ($did($dname,4).text) && ($did($dname,4).text isnum) && ($did($dname,5).text isnum) && ($did($dname,6).text isnum) {
if ($did($dname,4).text <= 255) && ($did($dname,4).text >= 0) && ($did($dname,5).text <= 255) && ($did($dname,5).text >= 0) && ($did($dname,6).text <= 255) && ($did($dname,6).text >= 0) {
did -ra $dname 7 $+($base($did($dname,4).text,10,16,2),$base($did($dname,5).text,10,16,2),$base($did($dname,6).text,10,16,2))
did -ra $dname 10 $rgb($did($dname,4).text,$did($dname,5).text,$did($dname,6).text)
}
else {
did -ra $dname 7,10 Invalid
}
}
else {
did -ra $dname 7,10 Invalid
}
}
if ($did == 10) {
if ($did($dname,10).text) && ($did($dname,10).text isnum) {
if ($did($dname,10).text <= 16777215) && ($did($dname,10).text >= 0) {
did -ra $dname 4 $gettok($rgb($did($dname,10).text),1,44)
did -ra $dname 5 $gettok($rgb($did($dname,10).text),2,44)
did -ra $dname 6 $gettok($rgb($did($dname,10).text),3,44)
did -ra $dname 7 $+($base($did($dname,4).text,10,16,2),$base($did($dname,5).text,10,16,2),$base($did($dname,6).text,10,16,2))
}
else {
did -ra $dname 7,4,5,6 Invalid
}
}
else {
did -ra $dname 7,4,5,6 Invalid
}
}
}
elseif ($devent == SCLICK) && ($did == 11) && ($did($dname,10).text != Invalid) {
if (!$window(@convprev)) { /window -aBpd +t @convprev $mouse.dx $mouse.dy 56 75 }
else { /window -a @convprev }
drawrect -rf @convprev $did($dname,10).text 1 0 0 50 50
}
}