egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2006-12-11T13:50:34-04:00 https://forum.eggheads.org/app.php/feed/topic/12820 2006-12-11T13:50:34-04:00 2006-12-11T13:50:34-04:00 https://forum.eggheads.org/viewtopic.php?p=68872#p68872 <![CDATA[Time problem...]]> Statistics: Posted by rosc2112 — Mon Dec 11, 2006 1:50 pm

]]> 2006-12-11T13:20:05-04:00 2006-12-11T13:20:05-04:00 https://forum.eggheads.org/viewtopic.php?p=68871#p68871 <![CDATA[Time problem...]]> Statistics: Posted by Sir_Fz — Mon Dec 11, 2006 1:20 pm

]]> 2006-12-11T12:47:21-04:00 2006-12-11T12:47:21-04:00 https://forum.eggheads.org/viewtopic.php?p=68867#p68867 <![CDATA[Time problem...]]>
do u know what i want?

i want to convert

Code: 

2006-10-28 00:08:42
or

Code: 

1161986922
to

Code: 

28.10.2006 00:08:42

Statistics: Posted by Access — Mon Dec 11, 2006 12:47 pm

]]> 2006-12-11T11:38:11-04:00 2006-12-11T11:38:11-04:00 https://forum.eggheads.org/viewtopic.php?p=68864#p68864 <![CDATA[Time problem...]]>

Code: 

clock format $unxtime -format "%d.%m.%Y %T"

Statistics: Posted by user — Mon Dec 11, 2006 11:38 am

]]> 2006-12-11T10:26:05-04:00 2006-12-11T10:26:05-04:00 https://forum.eggheads.org/viewtopic.php?p=68860#p68860 <![CDATA[Time problem...]]>

Code: 

set timeago [string map {" weeks" w " week" w " days" d " day" d " hours" h " hour" h " minutes" m " minute" m " seconds" s " second" s} $timeago]
Works great, thx!


And whats about the $mytime variable? anyone an idea to solve this?

Statistics: Posted by Access — Mon Dec 11, 2006 10:26 am

]]> 2006-12-11T08:15:20-04:00 2006-12-11T08:15:20-04:00 https://forum.eggheads.org/viewtopic.php?p=68859#p68859 <![CDATA[Time problem...]]>

Code: 

regexp {([0-9]) week.*? ([0-9]) day.*? ([0-9]) hour.*? ([0-9]) minute.*? ([0-9]) second.*?} $timeago week day hour min sec
That pattern requires all units to be present in the string (which will not always be the case..)
Try something like this instead:

Code: 

regsub -all { ([wdhms])[^ ]+} $timeago \\1 timeago
or

Code: 

set timeago [string map {" weeks" w " week" w " days" d " day" d " hours" h " hour" h " minutes" m " minute" m " seconds" s " second" s} $timeago]

Statistics: Posted by user — Mon Dec 11, 2006 8:15 am

]]> 2006-12-10T20:00:31-04:00 2006-12-10T20:00:31-04:00 https://forum.eggheads.org/viewtopic.php?p=68844#p68844 <![CDATA[Time problem...]]>

Code: 

set timeago [duration [expr ($now - $unxtime)]] set week "";set day "";set hour ""';set min "";set sec ""regexp {([0-9]) week.*? ([0-9]) day.*? ([0-9]) hour.*? ([0-9]) minute.*? ([0-9]) second.*?} $timeago week day hour min secputchan $chan "mytime $mytime: timeago: $week\w $day\d $hour\h $min\m $sec\s"#antiwordwrap#--------------------------------------------------------------------------------------------------------------
That's one way.

Statistics: Posted by rosc2112 — Sun Dec 10, 2006 8:00 pm

]]> 2006-12-10T19:18:49-04:00 2006-12-10T19:18:49-04:00 https://forum.eggheads.org/viewtopic.php?p=68842#p68842 <![CDATA[Time problem...]]>

Code: 

   set mytime 2006-12-10 21:58:55   set unxtime [clock scan $mytime]   set now [unixtime]    set timeago [duration [expr ($now - $unxtime)]]   putchan  $chan "mytime: $mytime timeago: $timeago
my output

Code: 

<eggdrop> mytime 2006-12-10 21:58:55 timeago: 5 weeks 1 day 5 hours 27 minutes 39 seconds

how the code must be look to get following output?

Code: 

<eggdrop> mytime 10.12.2006 21:58:55 timeago: 5w 1d 5h 27m(in) 39s(ec)
THX

Statistics: Posted by Access — Sun Dec 10, 2006 7:18 pm

]]>