egghelp/eggheads community

one problem

2015-04-16T22:31:05-04:00

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.

Statistics: Posted by juanamores — Thu Apr 16, 2015 10:31 pm

Again the Whois ..

2015-04-16T17:15:56-04:00

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:

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:

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:

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

Statistics: Posted by juanamores — Thu Apr 16, 2015 5:15 pm

Again the Whois ..

2015-04-16T15:26:54-04:00

The whole thing is - yes.

Statistics: Posted by willyw — Thu Apr 16, 2015 3:26 pm

Again the Whois ..

2015-04-16T14:52:31-04:00

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

Statistics: Posted by caesar — Thu Apr 16, 2015 2:52 pm

Again the Whois ..

2015-04-16T13:24:50-04:00

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

Statistics: Posted by willyw — Thu Apr 16, 2015 1:24 pm

Again the Whois ..

2015-04-16T12:44:31-04:00

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.

Statistics: Posted by caesar — Thu Apr 16, 2015 12:44 pm

Again the Whois ..

2015-04-16T12:21:29-04:00

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?

Statistics: Posted by juanamores — Thu Apr 16, 2015 12:21 pm

Again the Whois ..

2015-04-16T12:11:03-04:00

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

Statistics: Posted by juanamores — Thu Apr 16, 2015 12:11 pm

Again the Whois ..

2015-04-16T00:40:39-04:00

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

Statistics: Posted by caesar — Thu Apr 16, 2015 12:40 am

Again the Whois ..

2015-04-15T19:27:09-04:00

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

Statistics: Posted by simo — Wed Apr 15, 2015 7:27 pm

Again the Whois ..

2015-04-15T14:49:06-04:00

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:

proc whois::317 {from key text} {set upesp [duration [expr [unixtime] - $::uptime]]regsub -all "year" $upesp "año" upespregsub -all "years" $upesp "años" upespregsub -all "month" $upesp "mes" upespregsub -all "months" $upesp "meses" upespregsub -all "week" $upesp "semana" upespregsub -all "weeks" $upesp "semanas" upespregsub -all "day" $upesp "día" upespregsub -all "days" $upesp "días" upespregsub -all "hour" $upesp "hora" upespregsub -all "hours" $upesp "horas" upespregsub -all "minute" $upesp "minuto" upespregsub -all "minutes" $upesp "minutos" upespregsub -all "second" $upesp "segundo" upespregsub -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" idlespregsub -all "years" $idlesp "años" idlespregsub -all "month" $idlesp "mes" idlespregsub -all "months" $idlesp "meses" idlespregsub -all "week" $idlesp "semana" idlespregsub -all "weeks" $idlesp "semanas" idlespregsub -all "day" $idlesp "día" idlespregsub -all "days" $idlesp "días" idlespregsub -all "hour" $idlesp "hora" idlespregsub -all "hours" $idlesp "horas" idlespregsub -all "minute" $idlesp "minuto" idlespregsub -all "minutes" $idlesp "minutos" idlespregsub -all "second" $idlesp "segundo" idlespregsub -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:

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" signonspregsub -all "Tue" $signonsp "Mar" signonspregsub -all "Wed" $signonsp "Mie" signonspregsub -all "Thur" $signonsp "Jue" signonspregsub -all "Fri" $signonsp "Vie" signonspregsub -all "Sat" $signonsp "Sab" signonspregsub -all "Sun" $signonsp "Dom" signonspregsub -all "Jan" $signonsp "Ene" signonspregsub -all "Apr" $signonsp "Abr" signonspregsub -all "Aug" $signonsp "Ago" signonspregsub -all "Dec" $signonsp "Dic" signonsp     set idlesp [duration $idle]regsub -all "year" $idlesp "año" idlespregsub -all "years" $idlesp "años" idlespregsub -all "month" $idlesp "mes" idlespregsub -all "months" $idlesp "meses" idlespregsub -all "week" $idlesp "semana" idlespregsub -all "weeks" $idlesp "semanas" idlespregsub -all "day" $idlesp "día" idlespregsub -all "days" $idlesp "días" idlespregsub -all "hour" $idlesp "hora" idlespregsub -all "hours" $idlesp "horas" idlespregsub -all "minute" $idlesp "minuto" idlespregsub -all "minutes" $idlesp "minutos" idlespregsub -all "second" $idlesp "segundo" idlespregsub -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

Statistics: Posted by juanamores — Wed Apr 15, 2015 2:49 pm

Again the Whois ..

2015-04-15T02:41:23-04:00

You get that error cos you seem to have a function named list. Find it and replace it with something else.

Statistics: Posted by caesar — Wed Apr 15, 2015 2:41 am

Again the Whois ..

2015-04-14T22:25:03-04:00

I tried the first:

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]"  }}

And the second:

Code:

proc whois::317 {from key text} {set es [list "Dom" "Lun" "Mar" "Mie" "Jue" "Vie" "Sab"]set en [list "Sun" "Mon" "Tue" "Wed" "Thur" "Fri" "Sat"]foreach a $en b $es { lappend map "$a $b" }set signon [string map $map $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]"  }}

I tried testing both codes but I get the following error:
Tcl error [whois::317]: wrong # args: should be "list nick host hand chan text"

Statistics: Posted by juanamores — Tue Apr 14, 2015 10:25 pm

Again the Whois ..

2015-04-14T14:32:25-04:00

Very grateful caesar

Precisely the code was giving me errors in that part and was trying to fix.

Statistics: Posted by juanamores — Tue Apr 14, 2015 2:32 pm

Again the Whois ..

2015-04-14T01:57:10-04:00

All raw procs have useless regexp matches in them when the returned text will always match it, and 317 in particular doesn't have or uses some variables like ctime and A.

On top of that, if you want to change the content of a string with something different then should use string map instead of multiple regsub -all lines.

For example, instead of:

Code:

regsub -all "Mon" ctime "Lun" ctimeregsub -all "Tue" ctime "Mar" ctimeregsub -all "Wed" $signon "Mie" signonregsub -all "Thur" $signon "Jue" signonregsub -all "Fri" $signon "Vie" signonregsub -all "Sat" $signon "Sab" signonregsub -all "Sun" $signon "Dom" signon

could go nicely with just:

Code:

set signon [string map [list "Mon" "Lun" "Tue" "Mar" "Wed" "Mie" "Thur" "Jue" "Fri" "Vie" "Sat" "Sab" "Sun" "Dom"] $signon]

Where for example "Mon" will be replaced with "Lun" in the $signon variable.

Or if it's too confusing on what and where to change, and instead want to have them in two variables to be easier then:

Code:

set es [list "Dom" "Lun" "Mar" "Mie" "Jue" "Vie" "Sab"]set en [list "Sun" "Mon" "Tue" "Wed" "Thur" "Fri" "Sat"]foreach a $en b $es { lappend map "$a $b" }set signon [string map $map $signon]

Statistics: Posted by caesar — Tue Apr 14, 2015 1:57 am