timer code

[up^to^you]

hi....
i need help about to make tcl that automatically set timer to die if it cant find a file in the shell

thx

[ppslim]

somthing like

Code: Select all

set file_chk {
{/etc/hosts}
{/home/users/eggdrop/files/die.if.not.exists}
}

bind time - "*" check_file

proc check_file {min hour day month year} {
  global file_chk
  foreach a $file_chk {
    set msg "Checking for file $a :"
    if {![file exists $a]} {
      die "$msg Failed"
    } else {
      putlog "$msg Passed"
    }
  }
}

This will check once a min for each file int he list. You can add code to reduce it down to once every 5 mins, 10 mins or whatever you want.

Place a # infront of the word "putlog" to stop it from displaying passed everytime.

[up^to^you]

if i want to use check a directory in my shell, shall i change it to:

set dir "/home/blah/"


if {![dir exists $a]} {


??

[ppslim]

No need, "file exists" will check directories too.

Simply place the directory in the list, and it will dot he work.

% file exists /etc/passwd
1
% file exists /etc/passwd.bak
0
% file exists /etc/
1
% file exists /etf/
0