egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2015-01-30T11:32:35-04:00 https://forum.eggheads.org/app.php/feed/topic/19863 2015-01-30T11:32:35-04:00 2015-01-30T11:32:35-04:00 https://forum.eggheads.org/viewtopic.php?p=103455#p103455 <![CDATA[crontab.tcl]]>
I've created a tcl script that will run once a day and delete log files when they are older than 30 days, instead of using crontab. If anyone would like to use it, here it is:

Code: 

foreach bind [binds logs] {lassign $bind type flags mask num proc; unbind $type $flags $mask $proc}bind time - "00 00 * * *" logsproc logs {min hour day month year} {  putlog "Deleting logs"  foreach file [glob -nocomplain -directory logs *.log] {  set time [clock seconds]  set log [file mtime $file]  set diff [expr ($time - $log) / 86400]  if {$diff >= 30} {putlog "Deleting $file"  file delete -force $file }}}putlog "Crontab loaded"

Statistics: Posted by CP1832 — Fri Jan 30, 2015 11:32 am

]]>