| View previous topic :: View next topic |
| Author |
Message |
juanamores
Master
Joined: 15 Mar 2015
Posts: 317
|
 Posted: Wed Apr 15, 2015 2:49 pm Post subject: |
 |
|
| caesar wrote: | | You get that error cos you seem to have a function named list. Find it and replace it with something else. |
I replaced a function named list for "dias".
| Quote: | | set signon [string map [dias "Mon" "Lun" "Tue" "Mar" "Wed" "Mie" "Thur" "Jue" "Fri" "Vie" "Sat" "Sab" "Sun" "Dom"] $signon] |
I do what you've recommended but still gives me another error.
Tcl error [whois::317]: invalid command name "dias"
Being the word in bracket [ dias] is interpreted as a command.
Edit: I changed my original idea
As I see it is very difficult to translate into Spanish the signon variable, I replaced my original idea, using uptime.
In this code I could translate uptime to Spanish:
| Code: | proc whois::317 {from key text} {
set upesp [duration [expr [unixtime] - $::uptime]]
regsub -all "year" $upesp "año" upesp
regsub -all "years" $upesp "años" upesp
regsub -all "month" $upesp "mes" upesp
regsub -all "months" $upesp "meses" upesp
regsub -all "week" $upesp "semana" upesp
regsub -all "weeks" $upesp "semanas" upesp
regsub -all "day" $upesp "día" upesp
regsub -all "days" $upesp "días" upesp
regsub -all "hour" $upesp "hora" upesp
regsub -all "hours" $upesp "horas" upesp
regsub -all "minute" $upesp "minuto" upesp
regsub -all "minutes" $upesp "minutos" upesp
regsub -all "second" $upesp "segundo" upesp
regsub -all "seconds" $upesp "segundos" upesp
if {[regexp -- {.*\s(\d+)\s(\d+)\s\:} $text wholematch idle]} {
set idlesp [duration $idle]
regsub -all "year" $idlesp "año" idlesp
regsub -all "years" $idlesp "años" idlesp
regsub -all "month" $idlesp "mes" idlesp
regsub -all "months" $idlesp "meses" idlesp
regsub -all "week" $idlesp "semana" idlesp
regsub -all "weeks" $idlesp "semanas" idlesp
regsub -all "day" $idlesp "día" idlesp
regsub -all "days" $idlesp "días" idlesp
regsub -all "hour" $idlesp "hora" idlesp
regsub -all "hours" $idlesp "horas" idlesp
regsub -all "minute" $idlesp "minuto" idlesp
regsub -all "minutes" $idlesp "minutos" idlesp
regsub -all "second" $idlesp "segundo" idlesp
regsub -all "seconds" $idlesp "segundos" idlesp
putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Conectado :${whois::textf} \
$upesp ${whois::tagf}Inactivo:${whois::textf} $idlesp"
}
} |
Result:
| Quote: |
16:49 : @oper¦ !whois roger
16:49 ? @Mybot ¦ [Whois] Host: roger (roger@roger.oper) Realname: roger
16:49 ? @Mybot ¦ [Whois] Canales: @#channel1 @#channel2
16:49 ? @Mybot ¦ [Whois] Servidor: myserver.com
16:49 ? @Mybot ¦ [Whois] Services: Nick Registrado
16:49 ? @Mybot ¦ [Whois] Conectado: 1 hora 15 minutos 25 segundos Inactivo: 4 minutos 43 segundos |
New Edit: Traslate idle and set colors textf of above original code
Final Edit: Days and Months in Spanish
With regsub also got what I wanted in my original idea. 
| Code: | proc whois::317 {from key text} {
if {[regexp -- {.*\s(\d+)\s(\d+)\s\:} $text wholematch idle signon]} {
set signonsp [ctime $signon]
regsub -all "Mon" $signonsp "Lun" signonsp
regsub -all "Tue" $signonsp "Mar" signonsp
regsub -all "Wed" $signonsp "Mie" signonsp
regsub -all "Thur" $signonsp "Jue" signonsp
regsub -all "Fri" $signonsp "Vie" signonsp
regsub -all "Sat" $signonsp "Sab" signonsp
regsub -all "Sun" $signonsp "Dom" signonsp
regsub -all "Jan" $signonsp "Ene" signonsp
regsub -all "Apr" $signonsp "Abr" signonsp
regsub -all "Aug" $signonsp "Ago" signonsp
regsub -all "Dec" $signonsp "Dic" signonsp
set idlesp [duration $idle]
regsub -all "year" $idlesp "año" idlesp
regsub -all "years" $idlesp "años" idlesp
regsub -all "month" $idlesp "mes" idlesp
regsub -all "months" $idlesp "meses" idlesp
regsub -all "week" $idlesp "semana" idlesp
regsub -all "weeks" $idlesp "semanas" idlesp
regsub -all "day" $idlesp "día" idlesp
regsub -all "days" $idlesp "días" idlesp
regsub -all "hour" $idlesp "hora" idlesp
regsub -all "hours" $idlesp "horas" idlesp
regsub -all "minute" $idlesp "minuto" idlesp
regsub -all "minutes" $idlesp "minutos" idlesp
regsub -all "second" $idlesp "segundo" idlesp
regsub -all "seconds" $idlesp "segundos" idlesp
putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Conectado :${whois::textf} \
$signonsp ${whois::tagf}Inactivo:${whois::textf} $idlesp"
}
} |
Result:
| Quote: |
16:49 : @oper¦ !whois roger
16:49 ? @Mybot ¦ [Whois] Host: roger (roger@roger.oper) Realname: roger
16:49 ? @Mybot ¦ [Whois] Canales: @#channel1 @#channel2
16:49 ? @Mybot ¦ [Whois] Servidor: myserver.com
16:49 ? @Mybot ¦ [Whois] Services: Nick Registrado
16:49 ? @Mybot ¦ [Whois] Conectado: Mie Abr 15 15:34:16 2015 Inactivo: 2 minutos 31 segundos |
_________________
If you do not understand my ideas is because I can not think in English, I help me with Google Translate. I only speak Spanish. Bear with me. Thanks  |
|
| Back to top |
|
 |
simo
Owner
Joined: 22 Mar 2015
Posts: 941
|
| Posted: Wed Apr 15, 2015 7:27 pm Post subject: |
|
|
greetings, do you have the final tcl for the final result ? it looks nice with the added connect time and idle time and the colored parts makes it more clear
nicely done |
|
| Back to top |
|
|
caesar
Mint Rubber
Joined: 14 Oct 2001
Posts: 3741
Location: Mint Factory
|
| Posted: Thu Apr 16, 2015 12:40 am Post subject: |
|
|
I meant to find where you got a proc list not replace in the line I said. 
_________________
Once the game is over, the king and the pawn go back in the same box. |
|
| Back to top |
|
|
juanamores
Master
Joined: 15 Mar 2015
Posts: 317
|
| Posted: Thu Apr 16, 2015 12:11 pm Post subject: |
|
|
| simo wrote: | greetings, do you have the final tcl for the final result ? it looks nice with the added connect time and idle time and the colored parts makes it more clear
nicely done |
This is the page of the original TCL: here
If you want to do as I did, to replace signon by uptime.
You must modify proc whois::317 like this:
| Code: | proc whois::317 {from key text} {
set upt [duration [expr [unixtime] - $::uptime]]
if {[regexp -- {.*\s(\d+)\s(\d+)\s\:} $text wholematch idle signon]} {
putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Connected:${whois::textf} \
$upt ${whois::tagf}Idle:${whois::textf} [duration $idle]"
}
} |
If you want to translate the 'uptime' and 'idle' to Spanish, see my previous post.
Regarding the colors, you should set them in "Start Setup" the TCL.
Logo colors are set by default in the TCL on line:
| Code: | ## Change logo to the logo you want at the start of the line. ## ##
variable logo "\017\00304\002\[\00306W\003hois\00304\]\017" |
If you want to change the color of text in the results, you can set them in this line:
| Code: | ## change textf to the colors you want for the text. ## ##
variable textf "\017\00304" |
This text color is seted by red, I changed it by blue:
| Code: | | variable textf "\017\00302" |
Any other question I am at your service
_________________
If you do not understand my ideas is because I can not think in English, I help me with Google Translate. I only speak Spanish. Bear with me. Thanks |
|
| Back to top |
|
|
juanamores
Master
Joined: 15 Mar 2015
Posts: 317
|
| Posted: Thu Apr 16, 2015 12:21 pm Post subject: |
|
|
| caesar wrote: | | I meant to find where you got a proc list not replace in the line I said. |
I wish to use your idea instead of using regsub, but not how to do it without me error.
| Code: | proc whois::317 {from key text} {
set signon [string map [list "Mon" "Lun" "Tue" "Mar" "Wed" "Mie" "Thur" "Jue" "Fri" "Vie" "Sat" "Sab" "Sun" "Dom"] $signon]
if {[regexp -- {.*\s(\d+)\s(\d+)\s\:} $text wholematch idle signon]} {
putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Conectado :${whois::textf} \
[ctime $signon] ${whois::tagf}Inactivo:${whois::textf} [duration $idle]"
}
} |
How would you do this code so that no error?
_________________
If you do not understand my ideas is because I can not think in English, I help me with Google Translate. I only speak Spanish. Bear with me. Thanks |
|
| Back to top |
|
|
caesar
Mint Rubber
Joined: 14 Oct 2001
Posts: 3741
Location: Mint Factory
|
| Posted: Thu Apr 16, 2015 12:44 pm Post subject: |
|
|
The problem is not in this code, but in the fact that you have a function (proc) called list and that's interfering with the proper conduct of this code and any other code that would use the TCL's list function.
Look in your loaded scripts for "proc list" and unless you rename it something else the problem will persist.
If you or the person that made that particular script to have a function called list then should at least consider getting that code into a namespace so won't interfere with normal TCL functions.
_________________
Once the game is over, the king and the pawn go back in the same box. |
|
| Back to top |
|
|
willyw
Revered One
Joined: 15 Jan 2009
Posts: 1175
|
| Posted: Thu Apr 16, 2015 1:24 pm Post subject: |
|
|
| caesar wrote: |
...
Look in your loaded scripts for "proc list" and unless you rename it something else the problem will persist.
...
|
Not sure if he can find it. Could this be it? :
proc whois::list
found in one of his posts in this thread, above?
Looks like whoever wrote the script is using namespace. I suspect this might make it more difficult for him to spot.
Just wanted to pass this along.
_________________
For a fun (and popular) Trivia game, visit us at: irc.librairc.net #science-fiction . Over 300K Q & A to play in BogusTrivia ! |
|
| Back to top |
|
|
caesar
Mint Rubber
Joined: 14 Oct 2001
Posts: 3741
Location: Mint Factory
|
| Posted: Thu Apr 16, 2015 2:52 pm Post subject: |
|
|
In that case this piece of code he has would have to be in the same namespace in order to get that error, no?
_________________
Once the game is over, the king and the pawn go back in the same box. |
|
| Back to top |
|
|
willyw
Revered One
Joined: 15 Jan 2009
Posts: 1175
|
| Posted: Thu Apr 16, 2015 3:26 pm Post subject: |
|
|
The whole thing is - yes.
_________________
For a fun (and popular) Trivia game, visit us at: irc.librairc.net #science-fiction . Over 300K Q & A to play in BogusTrivia ! |
|
| Back to top |
|
|
juanamores
Master
Joined: 15 Mar 2015
Posts: 317
|
| Posted: Thu Apr 16, 2015 5:15 pm Post subject: |
|
|
| willyw wrote: |
Not sure if he can find it. Could this be it? :
proc whois::list
|
willyw you're right, the process that gave the error was proc whois::list.
I renamed this process and the error is solved, now I have no error.
But neither the words from English into Spanish of the list are replaced. 
I tried this:
| Code: | proc whois::317 {from key text} {
if {[regexp -- {.*\s(\d+)\s(\d+)\s\:} $text wholematch idle signon]} {
set signon [string map [list "Mon" "Lun" "Tue" "Mar" "Wed" "Mie" "Thu" "Jue" "Fri" "Vie" "Sat" "Sab" "Sun" "Dom"] $signon]
putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Conectado :${whois::textf} \
[ctime $signon] ${whois::tagf}Inactivo:${whois::textf} [duration $idle]"
}
} |
and this (just in case), storing the value returned by the string map .... in another variable signone:
| Code: | proc whois::317 {from key text} {
if {[regexp -- {.*\s(\d+)\s(\d+)\s\:} $text wholematch idle signon]} {
set signone [string map [list "Mon" "Lun" "Tue" "Mar" "Wed" "Mie" "Thu" "Jue" "Fri" "Vie" "Sat" "Sab" "Sun" "Dom"] $signon]
putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Conectado :${whois::textf} \
[ctime $signone] ${whois::tagf}Inactivo:${whois::textf} [duration $idle]"
}
} |
I also tried storing the value in ctime vers. one:
| Quote: | proc whois::317 {from key text} {
if {[regexp -- {.*\s(\d+)\s(\d+)\s\:} $text wholematch idle signon]} {
set ctime [string map [list "Mon" "Lun" "Tue" "Mar" "Wed" "Mie" "Thu" "Jue" "Fri" "Vie" "Sat" "Sab" "Sun" "Dom"] ctime]
putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Conectado :${whois::textf} \
[$ctime $signon] ${whois::tagf}Inactivo:${whois::textf} [duration $idle]"
}
} |
I also tried storing the value in ctime vers. two:
| Quote: | proc whois::317 {from key text} {
if {[regexp -- {.*\s(\d+)\s(\d+)\s\:} $text wholematch idle signon]} {
set ctime [string map [list "Mon" "Lun" "Tue" "Mar" "Wed" "Mie" "Thu" "Jue" "Fri" "Vie" "Sat" "Sab" "Sun" "Dom"] $ctime]
putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Conectado :${whois::textf} \
[ctime $signon] ${whois::tagf}Inactivo:${whois::textf} [duration $idle]"
}
} |
I also tried storing the value in ctime vers. three:
| Quote: | proc whois::317 {from key text} {
if {[regexp -- {.*\s(\d+)\s(\d+)\s\:} $text wholematch idle signon]} {
set ctime [string map [list "Mon" "Lun" "Tue" "Mar" "Wed" "Mie" "Thu" "Jue" "Fri" "Vie" "Sat" "Sab" "Sun" "Dom"] $ctime]
putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Conectado :${whois::textf} \
[$ctime $signon] ${whois::tagf}Inactivo:${whois::textf} [duration $idle]"
}
} |
Result:
| Quote: | 17:40 : @oper¦ !whois roger
......................etc..........................
17:40 ? @Mybot ¦ [Whois] Conectado: Thu Apr 16 17:26:31 2015 Inactivo: 45 seconds |
Conclusion:
If the code word substitution is correct, ¿could it be that the "Thu Apr 16" value is stored in [ctime $signon]?
My theory is that maybe the value "Thu Apr 16", is neither in ctime or $signon watching them in isolation.
Can that be possible?
Final Edit:debuggin code
| Code: | proc whois::317 {from key text} {
if {[regexp -- {.*\s(\d+)\s(\d+)\s\:} $text wholematch idle signon]} {
set signon [string map [list "Mon" "Lun" "Tue" "Mar" "Wed" "Mie" "Thu" "Jue" "Fri" "Vie" "Sat" "Sab" "Sun" "Dom"] $signon]
#start debuggin mode
putserv "PRIVMSG $whois::channel :signon value: $signon"
putserv "PRIVMSG $whois::channel :ctime value: [ctime]"
#end debuggin mode
putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Conectado :${whois::textf} \
[ctime $signon] ${whois::tagf}Inactivo:${whois::textf} [duration $idle]"
}
} |
Result:
| Quote: | 17:40 : @oper¦ !whois roger
......................etc..........................
17:40 ? @Mybot ¦ signon value: 1429217580 |
Tcl error [whois::317]: wrong # args: should be "ctime unixtime"
My conclusion was correct right?
New Final Edit: Check
| Code: | proc whois::317 {from key text} {
if {[regexp -- {.*\s(\d+)\s(\d+)\s\:} $text wholematch idle signon]} {
set debug [ctime $signon]
set debug [string map [list "Mon" "Lun" "Tue" "Mar" "Wed" "Mie" "Thu" "Jue" "Fri" "Vie" "Sat" "Sab" "Sun" "Dom"] $debug]
putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Conectado :${whois::textf} \
$debug ${whois::tagf}Inactivo:${whois::textf} [duration $idle]"
}
} |
Result:
| Quote: | 17:40 : @oper¦ !whois roger
......................etc..........................
17:40 ? @Mybot ¦ [Whois] Conectado : Jue Apr 16 17:53:00 2015 Inactivo: 3 minutes 39 seconds |
_________________
If you do not understand my ideas is because I can not think in English, I help me with Google Translate. I only speak Spanish. Bear with me. Thanks |
|
| Back to top |
|
|
juanamores
Master
Joined: 15 Mar 2015
Posts: 317
|
| Posted: Thu Apr 16, 2015 10:31 pm Post subject: one problem |
|
|
I found a line of code that does not return the expected value.
The line that measures the 'uptime' is wrong, because it measures the BoT 'uptime', not nick.
That line was added by me, thinking that measured the 'uptime' of nick, but I was wrong and measures the 'uptime' of Bot.
Do not know how to fix it so that it measures the 'uptime' of nick.
In this process, line 3 is wrong [duration [expr [unixtime] - $ :: uptime]]
| Code: | proc whois::317 {from key text} {
if {[regexp -- {.*\s(\d+)\s(\d+)\s\:} $text wholematch idle signon]} {
set signonsp [duration [expr [unixtime] - $::uptime]]
set signonsp [string map [list "year" "años" "years" "años" "month" "mes" "months" "meses" "week" "semana" "weeks" "semanas" "day" "día" "days" "días" "hour" "hora" "hours" "horas" "minute" "minuto" "minutes" "minutos" "second" "segundo" "seconds" "segundos"] $signonsp]
set idlesp [duration $idle]
set idlesp [string map [list "year" "años" "years" "años" "month" "mes" "months" "meses" "week" "semana" "weeks" "semanas" "day" "día" "days" "días" "hour" "hora" "hours" "horas" "minute" "minuto" "minutes" "minutos" "second" "segundo" "seconds" "segundos"] $idlesp]
putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Conectado :${whois::textf} \
$signonsp ${whois::tagf}Inactivo:${whois::textf} $idlesp"
}
} |
How could fix that line to measure the uptime of nick and not the uptime of BoT?
Full code adapted to my network and translated into Spanish:
| Code: | ##############################################################################################
## ## whois.tcl for eggdrop by Ford_Lawnmower irc.geekshed.net #Script-Help ## ##
##############################################################################################
## To use this script you must set channel flag +whois (ie .chanset #chan +whois) ##
##############################################################################################
## ____ __ ########################################### ##
## / __/___ _ ___ _ ___/ /____ ___ ___ ########################################### ##
## / _/ / _ `// _ `// _ // __// _ \ / _ \ ########################################### ##
## /___/ \_, / \_, / \_,_//_/ \___// .__/ ########################################### ##
## /___/ /___/ /_/ ########################################### ##
## ########################################### ##
##############################################################################################
## ## Start Setup. ## ##
##############################################################################################
namespace eval whois {
## change cmdchar to the trigger you want to use ## ##
variable cmdchar "!"
## change command to the word trigger you would like to use. ## ##
## Keep in mind, This will also change the .chanset +/-command ## ##
variable command "whois"
## change textf to the colors you want for the text. ## ##
variable textf "\017\00302"
## change tagf to the colors you want for tags: ## ##
variable tagf "\017\002"
## Change logo to the logo you want at the start of the line. ## ##
variable logo "\017\00304\002\[\00306W\003hois\00304\]\017"
## Change lineout to the results you want. Valid results are channel users modes topic ## ##
variable lineout "channel users modes topic"
##############################################################################################
## ## End Setup. ## ##
##############################################################################################
variable channel ""
setudef flag $whois::command
bind pub -|- [string trimleft $whois::cmdchar]${whois::command} whois::lst
bind raw -|- "311" whois::311
bind raw -|- "312" whois::312
bind raw -|- "319" whois::319
bind raw -|- "317" whois::317
bind raw -|- "313" whois::multi
bind raw -|- "310" whois::multi
bind raw -|- "335" whois::multi
bind raw -|- "301" whois::301
bind raw -|- "671" whois::multi
bind raw -|- "320" whois::multi
bind raw -|- "401" whois::multi
bind raw -|- "318" whois::318
bind raw -|- "307" whois::307
}
proc whois::311 {from key text} {
if {[regexp -- {^[^\s]+\s(.+?)\s(.+?)\s(.+?)\s\*\s\:(.+)$} $text wholematch nick ident host realname]} {
putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Nick e IP virtual:${whois::textf} \
$nick \(${ident}@${host}\)"
putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Nombre:${whois::textf} $realname"
}
}
proc whois::multi {from key text} {
if {[regexp {\:(.*)$} $text match $key]} {
set keys [subst $$key]
set keys [lrange $keys 4 8]
if {"$keys" == "Nick no presente en IRC"} { set keys [encoding convertfrom utf-8 "El nick que buscas, no está conectado al IRC."];
putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Info:${whois::textf} $keys";
return 1
}
}
}
proc whois::312 {from key text} {
regexp {([^\s]+)\s\:} $text match server
putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Servidor:${whois::textf} $server"
}
proc whois::319 {from key text} {
if {[regexp {.+\:(.+)$} $text match channels]} {
putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Canales:${whois::textf} $channels"
}
}
proc whois::317 {from key text} {
if {[regexp -- {.*\s(\d+)\s(\d+)\s\:} $text wholematch idle signon]} {
set signonsp [duration [expr [unixtime] - $::uptime]]
set signonsp [string map [list "year" "años" "years" "años" "month" "mes" "months" "meses" "week" "semana" "weeks" "semanas" "day" "día" "days" "días" "hour" "hora" "hours" "horas" "minute" "minuto" "minutes" "minutos" "second" "segundo" "seconds" "segundos"] $signonsp]
set idlesp [duration $idle]
set idlesp [string map [list "year" "años" "years" "años" "month" "mes" "months" "meses" "week" "semana" "weeks" "semanas" "day" "día" "days" "días" "hour" "hora" "hours" "horas" "minute" "minuto" "minutes" "minutos" "second" "segundo" "seconds" "segundos"] $idlesp]
putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Conectado :${whois::textf} \
$signonsp ${whois::tagf}Inactivo:${whois::textf} $idlesp"
}
}
proc whois::301 {from key text} {
if {[regexp {^.+\s[^\s]+\s\:(.*)$} $text match awaymsg]} {
putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Away:${whois::textf} $awaymsg"
}
}
proc whois::318 {from key text} {
namespace eval whois {
variable channel ""
}
variable whois::channel ""
}
proc whois::307 {from key text} {
putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Estado:${whois::textf} Nick Registrado"
}
proc whois::lst {nick host hand chan text} {
if {[lsearch -exact [channel info $chan] "+${whois::command}"] != -1} {
namespace eval whois {
variable channel ""
}
variable whois::channel $chan
##In the chathispano network the correct command is '/whois nick nick', if you put only '/whois nick' the network hidden 'uptime' and 'idle' information of nick.##
putserv "WHOIS $text $text"
}
} |
Pay attention if they are to test this code on a different network to chathispano, you must modify the last process of code proc whois::lst
Normal in all networks the whois command is used like this:
'/Whois nick'
In chathispano network the correct command is:
'/Whois nick nick'
If you put '/whois nick' the network hidden information of 'idle' and 'uptime'.
To test it on another network, you should modify this line:
| Code: | | putserv "WHOIS $text $text" |
Change it to this:
| Code: | | putserv "WHOIS $text" |
EDIT reason: Fixed
This is the part of the code that fixed the error of uptime.
| Code: | set target [lindex [split $text " "] 1]
set signtarg "$signon $target"
set signtarg [join [lindex [split $signtarg] 0]]
set signtarg [duration [expr [unixtime] - $signtarg]] |
I do not see much interest in this topic, I made more changes to the code to fit 100% to chathispano.
Who wishes to warn me.
_________________
If you do not understand my ideas is because I can not think in English, I help me with Google Translate. I only speak Spanish. Bear with me. Thanks |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
