In this example, we report the existence of unwanted files--for example, system startup files--also possibly move or delete them.
The SystemFileExist script might send an alert message like the following:
PIKT ALERT Thu Jun 13 9:55:43 2003 padua URGENT: SystemFileExist Report the existence of unwanted files, and possibly move or remove them /etc/rc3.d/S50apache found! doing exec: /usr/bin/mv /etc/rc3.d/S50apache /etc/rc3.d/xS50apache
SystemFileExist makes reference to the =files_unwanted_obj macro, which resolves to the name of the FilesUnwanted.obj file. The script follows.
SystemFileExist // use this to warn about /etc/nologin files, or // unwanted service startup files (in /etc/rc?.d), // for example init status =piktstatus level =piktlevel task "Report the existence of unwanted files, and possibly move or remove them" input file "=files_unwanted_obj" seps ":" dat $name  dat $cmd  keys $name rule if -e $name set $state = "+" if $cmd eq "." if $state ne %state =daily(output mail "$name found!", ) endif else if %state eq "+" // existed last run, // hence possible rm // or mv $cmd failed // before =daily(output mail "$name found!", ) else =outputmail "$name found! doing exec: $cmd" =execwait $cmd endif endif else set $state = "-" endif
For more examples, see Samples.