bind time not working properly

[Fill]

Hi, I have a script that uses bind time events.

It does something like this:

[Fri-04:00:11am] * @RoBotX It is now: 04:00 AM. Uploading '/home/filipe/eggdrop/Triggers/triggerlog.txt' ««« 13/02/2009 »»»

See that? Everything is alright, but he says ««« 13/02/2009 »»», it should be 13/03/2009

What the hell is going on with months?

[Sir_Fz]

Show us the code so we can see how the date-string is being generated. Also, make sure the date is correctly set on the system where your Eggdrop is operating.

[Fill]

Code: Select all

bind time - "00 04 * * *" prepareftp

proc prepareftp { minutes hour day month year } {
global lf ht us ps rf
sendftp $lf $ht $us $ps $rf
puthelp "PRIVMSG #cyber-world \001ACTION It is now: \002$hour:$minutes AM\002. Uploading '$lf' \002««« $day/$month/$year »»»\002"
}

[Sir_Fz]

Like in Java, the first month is 00 and not 01. So all you need to do is to add 1 to the $month variable.

Code: Select all

bind time - "00 04 * * *" prepareftp

proc prepareftp { minutes hour day month year } {
 global lf ht us ps rf
 sendftp $lf $ht $us $ps $rf
 puthelp "PRIVMSG #cyber-world \001ACTION It is now: \002$hour:$minutes AM\002. Uploading '$lf' \002««« $day/[expr {$month + 1}]/$year »»»\002"
}

[nml375]

Don't forget the 0-padding, making tcl think we're dealing with octals rather than integers. Simply using expr {$month + 1} won't work well, especially in September and October.

Something like this should take care of that though:

Code: Select all

string trimleft $month "0"

[Fill]

so how would it stay?

expr [[string trimleft $month "0"] +1] ??

[nml375]

Rather this:
expr {[string trimleft $month "0"] + 1}