[TCL] 2k probleem (1973 ipv 2001 / 2002)

[Scorpion]

ik heb hier een scriptje met het probleem dat er 1973 in een file komt te staan, waar 2002 had moeten komen te staan. een 2k probleem lijkt het op.

code:

set fulldate [ctime [unixtime]]
set dm [lrange $fulldate 0 1]
if {[string length [lindex $fulldate 2]] == 1} {
  set testday "0[lindex $fulldate 2]"
  set rest [lrange $fulldate 3 end]
} else {
  set testday [lindex $fulldate 2]
  set rest [lrange $fulldate 3 end]
}
set starttime "$dm $testday $rest"

$starttime heeft dus 1973 ipv 2002 ... kan iemand me vertellen hoe dit kan? wat er eventueel verkeerd is?

thnx.

[Verwijderd]

heej.. da's toevallig! Ik heb 't zelfde probleem.. gaat hier zeker om de "MEL-TCL" of niet? om ircstats te maken!?

[Scorpion]

Op zondag 27 januari 2002 13:14 schreef Phazer het volgende:
heej.. da's toevallig! Ik heb 't zelfde probleem.. gaat hier zeker om de "MEL-TCL" of niet? om ircstats te maken!?

INDERDAAD!! wat een toeval..

[Verwijderd]

ghehe jah.. hmmz, als iemand een oplossing heeft zou wel fijn zijn, want het is behoorlijk irri als er in de stats steeds: "StartDate: 16 MAR 1973" oid. staat..

nog ff voor de duidelijkheid misschien: 't gaat hier om een scriptje dat voor een eggdrop (irc-bot), dat logs bijhoudt op een manier, zodat je in windows met MIRC-STATS statistieken kunt maken van die logs.. (logt dus op dezelfde manier als mirc):)

[Verwijderd]

Ik denk dat er hier niet zo veel mensen met TCL werken, je zou het anders een keer op comp.lang.tcl kunnen proberen.

[Scorpion]

Op zondag 27 januari 2002 18:10 schreef Flying Dutchman het volgende:
Ik denk dat er hier niet zo veel mensen met TCL werken, je zou het anders een keer op comp.lang.tcl kunnen proberen.

dat gevoel kreeg ik ook al...