neophyte scripter getting time to format correctly

2007-07-05T17:40:14-04:00

for starters, you should set creationdate to 0 by default or you will start getting errors with files that don't exist..

You can use strftime to change the output time, have a look at tcl-commands.doc.

Statistics: Posted by metroid — Thu Jul 05, 2007 5:40 pm

neophyte scripter getting time to format correctly

2007-07-05T14:52:25-04:00

Code:

bind pub - !tf findfile2proc findfile2 {nick uhost hand chan text} {set file1a "/home/BabyEcm/test/test1.txt"set file1b "/home/BabyEcm/test/test2.txt"set file2a "/home/BabyEcm/test/test3.txt"set file2b "/home/BabyEcm/test/test4.txt"# Open file for read access (note we're not catching errors, you might# want to use catch {} if the file might not exist.puthelp "PRIVMSG $chan :working on a tcl routine to detect files"if {[file exists $file1a] == 1} {   set ynmsg "$file1a does exist"set cfdateunix [file mtime $file1a]set creationdate [strftime $cfdateunix %r]} else {   set ynmsg "$file1a does NOT exist"}# Here we read in all of the data.puthelp "PRIVMSG $chan :$ynmsg, $creationdate"}

output on channel

Code:

<+BabyEcm> working on a tcl routine to detect files<+BabyEcm> /home/BabyEcm/test/test1.txt does exist, 1183648942

just writing scripts to learn and how do I get the file modication date to display in english.

Statistics: Posted by MacGyver — Thu Jul 05, 2007 2:52 pm

egghelp/eggheads community

neophyte scripter getting time to format correctly

neophyte scripter getting time to format correctly