egghelp/eggheads community

calculating days

2007-10-10T00:49:30-04:00

Thanks alot rosc, that helps much.
Thanks once again
iamdeath

Statistics: Posted by iamdeath — Wed Oct 10, 2007 12:49 am

calculating days

2007-10-09T14:32:04-04:00

Clock scan is picky about the format you give it, the manpage doesn't say it but the commas shown in the example formats are necessary. EG: day, dd monthname yy or monthname dd ?, yy?

There's a little more detail here:
http://forum.egghelp.org/viewtopic.php?p=67017#67017

Statistics: Posted by rosc2112 — Tue Oct 09, 2007 2:32 pm

calculating days

2007-10-09T10:29:57-04:00

Thanks alot nml

The problem was coming because I was using lrange 3 end when 2 end was needed

Thanks alot soo much, you guys rock.
iamdeath

Statistics: Posted by iamdeath — Tue Oct 09, 2007 10:29 am

calculating days

2007-10-09T05:36:47-04:00

Keep in mind that lrange returns a list, not a string..
Might want to join it into a string before trying to scan it.

Code:

set then [clock scan [join [lrange [split $text] 3 end]]]

The timestamp you mentioned should work just fine with "clock scan":

Code:

[11:31] > .tcl clock scan "Mar 07 21:22:37 2006 EST"[11:31] < Tcl: 1141784557

Statistics: Posted by nml375 — Tue Oct 09, 2007 5:36 am

calculating days

2007-10-09T05:21:03-04:00

Time registered: Mar 07 21:22:37 2006 EST

If the format is like that, should'nt it work?
Yes ( http://tcl.tk/man/tcl8.4/TclCmd/clock.htm#M45 )

Thanks alot but I did'nt get that.. Can you please be more specific

Thanks

Statistics: Posted by iamdeath — Tue Oct 09, 2007 5:21 am

calculating days

2007-10-09T04:57:02-04:00

Time registered: Mar 07 21:22:37 2006 EST

If the format is like that, should'nt it work?

Yes ( http://tcl.tk/man/tcl8.4/TclCmd/clock.htm#M45 )

Statistics: Posted by user — Tue Oct 09, 2007 4:57 am

calculating days

2007-10-09T04:51:07-04:00

Time registered: Mar 07 21:22:37 2006 EST

If the format is like that, should'nt it work?

Statistics: Posted by iamdeath — Tue Oct 09, 2007 4:51 am

calculating days

2007-10-09T03:34:55-04:00

Usually you can set the time for "now" using the tcl 'clock' command, or the eggdrop strftime, ctime or unixtime commands, there's a few different ways to go about it, no real need to depend on chanserv to get it (although you might have to account for the different timezones between what your shell and [unixtime] and chanserv are using.

As far as how to keep the $then var across proc's, just declare it as a global var at the top of each proc that needs it.

Anyway, the logic in your script won't set the vars properly.

The errors you're getting is because this proc is being run for each and every notice the bot is receiving, so maybe nest all further processing under the 1st test for if {[string match "*Time registered*" $text]} {

eg:
Code:
proc notice-ignore {nick uhost hand text dest} {     if {[string match "*is not a valid nickname*" $text]} {return}     if {[string match "*Time registered*" $text]} {           set then [split $text]           set then [lrange $text 3 end]           set then [clock scan "$then"]           set now  [unixtime]           putlog "debug then '$then'"           putlog "debug now '$now'"           set secondsInADay 86400           set daysAgo [expr {($now-$then)/$secondsInADay}]           putlog "someone registered $daysAgo Days ago"     }}
One last piece of advice - INDENT YOUR CODE =)
Makes it much easier to debug..

Thank your very very much it solved the problem actually I was trying to help this user thought I would learn something out of it too and I did learn many things, thanks alot to all of you guys for your great support and patience to stand me love you guys

HELPED

Thanks once again
iamdeath

Statistics: Posted by iamdeath — Tue Oct 09, 2007 3:34 am

calculating days

2007-10-09T02:28:30-04:00

Usually you can set the time for "now" using the tcl 'clock' command, or the eggdrop strftime, ctime or unixtime commands, there's a few different ways to go about it, no real need to depend on chanserv to get it (although you might have to account for the different timezones between what your shell and [unixtime] and chanserv are using.

As far as how to keep the $then var across proc's, just declare it as a global var at the top of each proc that needs it.

Anyway, the logic in your script won't set the vars properly.

The errors you're getting is because this proc is being run for each and every notice the bot is receiving, so maybe nest all further processing under the 1st test for if {[string match "*Time registered*" $text]} {

eg:

Code:

proc notice-ignore {nick uhost hand text dest} {     if {[string match "*is not a valid nickname*" $text]} {return}     if {[string match "*Time registered*" $text]} {           set then [split $text]           set then [lrange $text 3 end]           set then [clock scan "$then"]           set now  [unixtime]           putlog "debug then '$then'"           putlog "debug now '$now'"           set secondsInADay 86400           set daysAgo [expr {($now-$then)/$secondsInADay}]           putlog "someone registered $daysAgo Days ago"     }}

One last piece of advice - INDENT YOUR CODE =)
Makes it much easier to debug..

Statistics: Posted by rosc2112 — Tue Oct 09, 2007 2:28 am

calculating days

2007-10-09T02:24:43-04:00

Code:

### Eventbind join - "#Islamabad *!*@*" join-ignorebind notc - "*is not a valid nickname*" notice-ignorebind notc - "*Time registered*" notice-ignorebind notc - "*Time now*" notice-ignore1### Commandproc join-ignore {nick uhost handle chan} {  putquick "PRIVMSG nickserv@services.dal.net :info $nick"}proc notice-ignore {nick uhost hand text dest} {global thenset then [split $text]set then [lrange $text 3 end]set then [clock scan "$then"]putlog "$then"}proc notice-ignore1 {nick uhost hand text dest} {global now thenset now [split $text]set now [lrange $text 3 end]set now [clock scan "$now"]set secondsInADay 86400set daysAgo [expr {($now-$then)/$secondsInADay}]putlog "$daysAgo Days ago"putlog "$now"}putlog "Nickname ignore tcl Loaded!"

That works fine

Statistics: Posted by iamdeath — Tue Oct 09, 2007 2:24 am

calculating days

2007-10-09T01:45:45-04:00

Code:

### Eventbind join - "#Islamabad *!*@*" join-ignorebind notc - "*is not a valid nickname*" notice-ignorebind notc - "*Time registered*" notice-ignorebind notc - "*Time now*" notice-ignore### Commandproc join-ignore {nick uhost handle chan} {  putquick "PRIVMSG nickserv@services.dal.net :info $nick"}proc notice-ignore {nick uhost hand text dest} {if {[string match "*is not a valid nickname*" $text]} {return}if {[string match "*Time registered*" $text]} {set then [split $text]set then [lrange $text 3 end]set then [clock scan "$then"]if {[string match "*Time now*" $text]} {set now [split $text]set now [lrange $text 3 end]set now [clock scan "$now"]set secondsInADay 86400set daysAgo [expr {($now-$then)/$secondsInADay}]putlog "$daysAgo Days ago"}}}putlog "Nickname ignore tcl Loaded!"

I even tried that its not working

Statistics: Posted by iamdeath — Tue Oct 09, 2007 1:45 am

calculating days

2007-10-09T01:17:16-04:00

Thanks rosc actually the script works well when I give it

Code:

set then [clock scan "Thu 23-Sep-2004 01:00:59 UTC"] set now  [clock scan "Fri 05-Oct-2007 09:31:06 UTC"] set secondsInADay 86400 set daysAgo [expr {($now-$then)/$secondsInADay}]

but the problem is the date always has to get changed for ever user so iused $text and $now instead of any specific date. But it;'s not recognizing that variable I wonder why

Statistics: Posted by iamdeath — Tue Oct 09, 2007 1:17 am

calculating days

2007-10-08T16:59:58-04:00

Take a look here: http://members.dandy.net/~fbn/date.2.tcl.txt

Use that for examples of doing time calculations if you like.

Statistics: Posted by rosc2112 — Mon Oct 08, 2007 4:59 pm

calculating days

2007-10-07T14:36:39-04:00

Ive tried all the possible ways it's too much for me sorry for bothering you. I just cant solve it on my own

Statistics: Posted by iamdeath — Sun Oct 07, 2007 2:36 pm

calculating days

2007-10-07T07:34:31-04:00

One way would be to use global variables, with proper cleanup inbetween requests...

Statistics: Posted by nml375 — Sun Oct 07, 2007 7:34 am