egghelp/eggheads community

convert unixtime into human readable time[SOLVED]

2008-06-02T16:33:37-04:00

Again some problems..
I've tried 2-3 blowcrypt scripts from tcl-archive and google. And all return

Tcl error [encryptedincominghandler]: can't read "display": no such variable

the if-loop is like this:

Code:

if {[lindex $count 0] == 0} {set display "0"}

Why? tried to change the stuff inside "" but doesnt help much
Got told that it's not blowcrypt script. It's the if-loop. How?

Statistics: Posted by ztian299 — Mon Jun 02, 2008 4:33 pm

convert unixtime into human readable time[SOLVED]

2008-06-02T08:57:32-04:00

Using the same "rules" as mentioned before, this should work as long as your query is proper.

Code:

set count [mysqlsel $dbconnect "SELECT COUNT(*) FROM table WHERE user LIKE 'blah%' ORDER BY time DESC LIMIT 5" -flatlist]if {[lindex $count 0] == 0} {set user "No user found"}putserv "PRIVMSG $chan :User:$count"

Statistics: Posted by nml375 — Mon Jun 02, 2008 8:57 am

convert unixtime into human readable time[SOLVED]

2008-06-02T08:52:20-04:00

is it possible to have a select query like this:

set count [mysql $dbconnect "SELECT COUNT(*) FROM table WHERE user LIKE 'blah%' ORDER BY time DESC LIMIT 5" -flatlist]
if {$count == 0} {set user "No user found"}
putserv "PRIVMSG $chan :User:$count"

How would this if-loop look like? i know that one wont work, thats why im asking here

Statistics: Posted by ztian299 — Mon Jun 02, 2008 8:52 am

convert unixtime into human readable time[SOLVED]

2008-06-01T18:12:02-04:00

Really, didn't know that space was that important! thanks again speechles

Statistics: Posted by ztian299 — Sun Jun 01, 2008 6:12 pm

convert unixtime into human readable time[SOLVED]

2008-06-01T18:05:32-04:00

Code:

if {[string match $chan "#blah"]}{set limit 5}

Code:

if {[string match $chan "#somechannel"]} {set limit 5}

Notice the spacing in mine.. this is there for a reason.

Statistics: Posted by speechles — Sun Jun 01, 2008 6:05 pm

convert unixtime into human readable time[SOLVED]

2008-06-01T18:03:29-04:00

Hmm

Code:

if {[string match $chan "#blah"]}{set limit 5}set search [mysqlsel $dbconnect "SELECT nick,fname,lname,info,time FROM table WHERE nick LIKE '$nick%' LIMIT $limit" -flatlist]

Giving me this error AGAIN. Wondering why it should be that hard to make a little limit!

Tcl error [pub:infouser] extra characters after close-brace

Statistics: Posted by ztian299 — Sun Jun 01, 2008 6:03 pm

convert unixtime into human readable time[SOLVED]

2008-06-01T18:04:31-04:00

Code:

if {[string match $chan "#somechannel"]} { set limit 5 }

You used parenthesis in place of curly braces, this should work better. You only really need to use "quotes" when encapsulating spaces or oddball characters into a single field.

Statistics: Posted by speechles — Sun Jun 01, 2008 6:00 pm

convert unixtime into human readable time[SOLVED]

2008-06-01T17:19:35-04:00

Could i do something like this:
if ("$chan" == "#somechannel"){set limit "5"}
and then use $limit in the select query?
to be honest i have tried, but got "extra characters after close-quote" and "after close-brace" why's that?

Statistics: Posted by ztian299 — Sun Jun 01, 2008 5:19 pm

convert unixtime into human readable time[SOLVED]

2008-06-01T17:09:00-04:00

...
I expect being dutch you have some women of this kind you keep pampered.

Lol, sorry to disappoint you, but I'm "the Swedish Guy"

Statistics: Posted by nml375 — Sun Jun 01, 2008 5:09 pm

convert unixtime into human readable time[SOLVED]

2008-06-01T17:05:57-04:00

Well, as I illustrated in my post, either way works, just as long as you write the rest of your code properly...

The following is copied from the tclmysql manual, which should illustrate the difference between the two different options:

Code:

% ::mysql::sel $db "SELECT ID, NAME FROM FRIENDS" -list{1 Joe} {2 Phil} {3 John}% ::mysql::sel $db "SELECT ID, NAME FROM FRIENDS" -flatlist{1 Joe 2 Phil 3 John}

With -list, you get a tcl-list, where each list-item is itself a tcl-list representing one row - having one list item for each column.
Or, in other words, to select the data in row x column y, you would use "puts stdout [lindex [lindex $result x] y]"

With -flatlist however, you get a tcl-list where each list-items represents one datacell. As the name suggests, the list have been "flattened", where each datacell follows the previous one (making it ideal for "foreach {nick fname lname info time} {" kind of structures, which will extract 5 elements from the list on each run).

Statistics: Posted by nml375 — Sun Jun 01, 2008 5:05 pm

convert unixtime into human readable time[SOLVED]

2008-06-01T17:02:27-04:00

speechles:
Not to be rude, but what have you been smoking tonight?

http://ereader.kiczek.com/little_girls.jpg

Only they aren't so little anymore, and have gone on to have children of their own. I expect being dutch you have some women of this kind you keep pampered.

Statistics: Posted by speechles — Sun Jun 01, 2008 5:02 pm

convert unixtime into human readable time[SOLVED]

2008-06-01T16:55:36-04:00

nml375: I didn't do anything else than change -list to -flatlist and everything works? pretty impressive. Thanks, how can i know next time if i should use -flatlist or just -list?

Statistics: Posted by ztian299 — Sun Jun 01, 2008 4:55 pm

convert unixtime into human readable time[SOLVED]

2008-06-01T16:52:16-04:00

@ztian299:
Your foreach-loop expects you to use -flatlist with mysqlsel rather than -list. Change that, and everything should work with some code posted way up.

Code:

...set nick [lindex [split $text] 0]set search [mysqlsel $dbconnect "SELECT nick,fname,lname,info,time FROM table WHERE nick LIKE '$nick%' LIMIT 2" -flatlist]foreach {nick fname lname info time} $search {      putserv "PRIVMSG $chan :$nick - Firstname: $fname Lastname: $lname Info: $info - Added [duration [expr [clock seconds] - $time]] ago"}...

Another option would be to modify your foreach-loop:

Code:

...set nick [lindex [split $text] 0]set search [mysqlsel $dbconnect "SELECT nick,fname,lname,info,time FROM table WHERE nick LIKE '$nick%' LIMIT 2" -list]foreach {row} $search {      putserv "PRIVMSG $chan :[lindex $row 0] - Firstname: [lindex $row 1] Lastname: [lindex $row 2] Info: [lindex $row 3] - Added [duration [expr [clock seconds] - [lindex $row 4]]] ago"}...

@speechles:
Not to be rude, but what have you been smoking tonight?

Edit: Fixed list index typo

Statistics: Posted by nml375 — Sun Jun 01, 2008 4:52 pm

convert unixtime into human readable time[SOLVED]

2008-06-01T16:46:26-04:00

I'm trying to make TCL calculate the time between the specific unixtime and the time that is right NOW. and then make a output like:
'4weeks 3days 2hours 1minute'
but as i see. It should not be easy!

Code:

set time [unixtime]putserv "PRIVMSG $chan :[duration [expr [clock seconds] - $time]]"

can you tell me what the output of this would be? Let's say the actual time it is now, is 13200 in seconds (it isn't we just say this). Now the first line is 'set time 13200'. Now in the message we take the difference betweeen clock seconds and 13200. Clock seconds will return the exact number of elapsed seconds at that moment, perhaps since its running after we set time, this is 13201. Now you have it take 13201-13200, and you get 1 second.

You fail to understand this. Unless you have a starting point in time, to subtract from your current time. You cannot do what you want.

[unixtime] == [clock seconds] == time it is right now

If you simply want to adjust for timezones, use clock format and within it an expr to subtract/add hours accordingly.

Statistics: Posted by speechles — Sun Jun 01, 2008 4:46 pm

convert unixtime into human readable time[SOLVED]

2008-06-01T16:42:22-04:00

I'm trying to make TCL calculate the time between the specific unixtime and the time that is right NOW. and then make a output like:
'4weeks 3days 2hours 1minute'
but as i see. It should not be easy!

Statistics: Posted by ztian299 — Sun Jun 01, 2008 4:42 pm