egghelp/eggheads community

Calculate time

2007-06-12T18:12:57-04:00

I don't suppose you've considdered using mysql's locale-support along with proper date/Time-fieldtypes?

your right

im new with tcl and mysql so you see what it does

ill make some research on mapping and date/Time-fieldtypes.

thanks for your time

Statistics: Posted by AskMe — Tue Jun 12, 2007 6:12 pm

Calculate time

2007-06-12T18:04:53-04:00

Locale support is somewhat limited in tcl, so you'd probably be best off using some string mapping if you'd like the date in a different language.

I don't suppose you've considdered using mysql's locale-support along with proper date/Time-fieldtypes?

Statistics: Posted by nml375 — Tue Jun 12, 2007 6:04 pm

Calculate time

2007-06-12T17:53:14-04:00

Also, executing that code you posted once in globalspace will only result in $date holding the time for that particular moment, and not current date.

thanks i didnt know that info

and the link have almost all info i need

Code:

proc addvoicedb {nick host hand chan args} {  global mysqlink UCSRegistered  set username [UCS:Registered:IsRegistered $nick]  set hostmask "*!*@[lindex [split $host @] 1]"  mysqlexec $mysqlink "INSERT INTO voice (nick,username,chan,host,ajouté_le) VALUES ('$nick','$username','$chan','$hostmask','[clock [clock seconds] -format "%Y.%m.%d"]')" }

if i want the monthname i have to replace the %m by %b or %B right?

if i want to replace the monthname by the monthname but in french is it possible?

sorry if im not clear but my english is limited..

Statistics: Posted by AskMe — Tue Jun 12, 2007 5:53 pm

Calculate time

2007-06-12T17:36:54-04:00

Reading the manual page I linked on clock format, it should make it obvious you have no use for that string mapping, as the format used would already print the month in numbers.

Also, executing that code you posted once in globalspace will only result in $date holding the time for that particular moment, and not current date.

A proper example, you'll probably need to modify it to suite your needs:

Code:

proc addvoicedb {nick host hand chan args} { global mysqlink UCSRegistered set username [UCS:Registered:IsRegistered $nick] set hostmask "*!*@[lindex [split $host @] 1]" mysqlexec $mysqlink "INSERT INTO voice (nick,username,chan,host,ajouté_le) VALUES ('$nick','$username','$chan','$hostmask',NOW())"}

Code:

proc addvoicedb {nick host hand chan args} { global mysqlink UCSRegistered set username [UCS:Registered:IsRegistered $nick] set hostmask "*!*@[lindex [split $host @] 1]" mysqlexec $mysqlink "INSERT INTO voice (nick,username,chan,host,ajouté_le) VALUES ('$nick','$username','$chan','$hostmask','[clock [clock seconds] -format "%Y.%m.%d"]')"}

Statistics: Posted by nml375 — Tue Jun 12, 2007 5:36 pm

Calculate time

2007-06-12T17:26:14-04:00

It would seem to me that you're trying to insert current date/time into a mysql-database

your right

in fact i use

Code:

set date [clock format [clock scan "now"] -format %Y.%m.%d]

but i try to replace it by the maping of Sir_Fz to have the month listed with a name and not with a number
...

as you can see im a not a pro un tcl

Statistics: Posted by AskMe — Tue Jun 12, 2007 5:26 pm

Calculate time

2007-06-12T17:10:46-04:00

$date is not a predefined variable in globalspace, so you'll have to set it to some value before you attempt to read it.
It would seem to me that you're trying to insert current date/time into a mysql-database; in this case, I'd suggest you use the mysql-macro NOW(). Another option would be to use the "clock format" command.

Be adviced that $date will not automatically be updated to hold current time...

Statistics: Posted by nml375 — Tue Jun 12, 2007 5:10 pm

Calculate time

2007-06-12T17:05:58-04:00

Code:

set date [string map {Jan 01 Fév 02 Mars 03 Avr 04 Mai 05 Juin 06 Juil 07 Aout 08 Sept 09 Oct 10 Nov 11 Déc 12} $date] ################### Voice database ###################proc addvoicedb {nick host hand chan args} {global sql botnick mysqlink date UCSRegistered  set username [UCS:Registered:IsRegistered $nick]  set hostmask "*!*@[lindex [split $host @] 1]"mysqlexec $mysqlink "INSERT INTO voice(nick,username,chan,host,ajouté_le) VALUES ('$nick','$username','$chan','$hostmask','$date')"putlog "$nick a été ajouté a la liste autovoice avec le username $username"  putserv "NOTICE $nick :Vous etes maintenant ajouté à la liste auto voice sur $chan sous le username $username"}

the whole script i a bit messy but this is the only procedure i use date

Statistics: Posted by AskMe — Tue Jun 12, 2007 5:05 pm

Calculate time

2007-06-12T16:45:38-04:00

Post the whole script, as it would seem you've placed that line of code incorrectly...

Statistics: Posted by nml375 — Tue Jun 12, 2007 4:45 pm

Calculate time

2007-06-12T16:43:36-04:00

The mapping is supposed to be a list, so it's better to use:
Code:
set date [string map {Jan 01 Feb 02 Mar 03 Apr 04 May 05 Jun 06 Jul 07 Aug 08 Sep 09 Oct 10 Nov 11 Dec 12} $date]
instead.

i try this one (in french)

Code:

set date [string map {Jan 01 Fév 02 Mars 03 Avr 04 Mai 05 Juin 06 Juil 07 Aout 08 Sept 09 Oct 10 Nov 11 Déc 12} $date]

and i got this error when rehash

Code:

can't read "date": no such variablewhile executing"string map {Jan 01 Fév 02 Mars 03 Avr 04 Mai 05 Juin 06 Juil 07 Aout 08 Sept 09 Oct 10 Nov 11 Déc 12} $date"invoked from within"set date [string map {Jan 01 Fév 02 Mars 03 Avr 04 Mai 05 Juin 06 Juil 07 Aout 08 Sept 09 Oct 10 Nov 11 Déc 12} $date] "

what i do wrong?

Statistics: Posted by AskMe — Tue Jun 12, 2007 4:43 pm

Calculate time

2007-06-03T08:51:32-04:00

thanks guys , ill try string map

Statistics: Posted by w00f — Sun Jun 03, 2007 8:51 am

Re: Calculate time

2007-06-02T20:59:00-04:00

hey, i have a little prob. I'm trying to calc the "wait time" between "now" and some "date".
The date format is monthname/day/year (%b/%d/%Y).
i.e. date = "Jul/04/2007".
im using clock scan , but since its free-form scan i cant use -format in way to set the expected input. only -gmt and -base options are available.

atm i have this
Code:
set waitime [duration [expr [clock scan $date -format {%b/%d/%Y}] - [clock seconds]]]
i get this , Tcl error: bad switch "-format": must be -base or -gmt :/
any way to fix this ?

ty in advance.

The [clock scan] command does not have a -format switch.

Edit: Suggested [clock format] but the [string map] seems to be the only (best) solution.

Statistics: Posted by Sir_Fz — Sat Jun 02, 2007 8:59 pm

Calculate time

2007-06-02T20:53:44-04:00

The mapping is supposed to be a list, so it's better to use:

Code:

set date [string map {Jan 01 Feb 02 Mar 03 Apr 04 May 05 Jun 06 Jul 07 Aug 08 Sep 09 Oct 10 Nov 11 Dec 12} $date]

instead.

Statistics: Posted by Sir_Fz — Sat Jun 02, 2007 8:53 pm

Calculate time

2007-06-02T19:46:06-04:00

Code:

set date [string map "{Jan} {01} {Feb} {02} {Mar} {03} {Apr} {04} {May} {05} {Jun} {06} {Jul} {07} {Aug} {08} {Sep} {09} {Oct} {10} {Nov} {11} {Dec} {12}" $date]

Like he said, not the prettiest.

Statistics: Posted by incith — Sat Jun 02, 2007 7:46 pm

Calculate time

2007-06-02T17:55:57-04:00

One approach might be "string map". Perhaps not the prettiest solution, but should do the trick.

Statistics: Posted by nml375 — Sat Jun 02, 2007 5:55 pm

Calculate time

2007-06-02T17:46:57-04:00

the problem is the month , if the month was in number format instead of name the code certainly works.

Code:

.tcl [duration [expr {[clock scan 07/06/2007] - [clock seconds]}]]ew : Tcl: 4 weeks 5 days 1 hour 13 minutes 44 seconds.tcl [duration [expr {[clock scan Jul/06/2007] - [clock seconds]}]]ew : Tcl: unable to convert date-time string "Jul/06/2007"

if i convert the Jul/06/2007 to 07/06/2007 should work. but how i do that ?

Statistics: Posted by w00f — Sat Jun 02, 2007 5:46 pm