Again the Whois ..

[juanamores]

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".

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: Select all

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:

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: Select all

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:

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

[simo]

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

[caesar]

I meant to find where you got a proc list not replace in the line I said.

[juanamores]

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: Select all

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: Select all

## 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: Select all

## 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: Select all

 variable textf "\017\00302" 

Any other question I am at your service

[juanamores]

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: Select all

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?

[caesar]

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.

[willyw]

...
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.

[caesar]

In that case this piece of code he has would have to be in the same namespace in order to get that error, no?

[willyw]

The whole thing is - yes.

[juanamores]

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: Select all

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: Select all

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:

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:

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:

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:

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: Select all

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:

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: Select all

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:

17:40 : @oper¦ !whois roger
......................etc..........................
17:40 ? @Mybot ¦ [Whois] Conectado : Jue Apr 16 17:53:00 2015 Inactivo: 3 minutes 39 seconds

[juanamores]

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: Select all

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: Select all

##############################################################################################
##  ##     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: Select all

putserv "WHOIS $text $text"

Change it to this:

Code: Select all

putserv "WHOIS $text"

EDIT reason: Fixed

This is the part of the code that fixed the error of uptime.

Code: Select all

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.