Technical information

EVENT NOTIFY PROCEDURES
119
puts $f "$TIMESTAMP $ERROR"
close $f
#-------------------------------------------------------
# Create email file
#-------------------------------------------------------
set g [ open $VSIFAX\\spool\\temp\\sysstart w+ ]
puts $g "$TIMESTAMP $ERROR"
close $g
#-------------------------------------------------------
# Email notification to specified mail address
#-------------------------------------------------------
exec "$VSIFAX\\lbin\\vmime" -t -s $ERROR "$VSIFAX\\spool\\temp\\sysstart" | \
"$VSIFAX\\lbin\\vmail" -R $EMAIL $EMAIL
file delete "$VSIFAX\\spool\\temp\\sysstart"
exit 0
Below is a sample stop Tcl script (sys-stop-tcl) that is called when the VSI-FAX server stops. It logs the stoptime
in %VSI-FAX%/spool/logs/sysstop and sends an email to an administrator.
#--------------------------------------------------------
# sys-stop.tcl
# VSI-FAX scheduler stop notification for Windows
#--------------------------------------------------------
#--------------------------------------------------------
# Get all arguments and setup environment
#--------------------------------------------------------
global argv env
set PID [lindex $argv 0]
set VSIFAX $env(VSIFAX)
set TIMESTAMP [ clock format [ clock seconds ] -format {%Y/%m/%d %H:%M:%S} ]
set ERROR "VSI-FAX scheduler \[$PID\] stopped"
set EMAIL [e-mail]
#--------------------------------------------------------
# Update log file
#--------------------------------------------------------
set f [ open $VSIFAX\\spool\\logs\\sysstop a+ ]
puts $f "$TIMESTAMP $ERROR"
close $f
#--------------------------------------------------------
# Create email file
#--------------------------------------------------------
set g [ open $VSIFAX\\spool\\temp\\sysstop w+ ]
puts $g "$TIMESTAMP $ERROR"
close $g
#-------------------------------------------------------
# Email notification to specified mail address
#-------------------------------------------------------
exec "$VSIFAX\\lbin\\vmime" -t -s $ERROR "$VSIFAX\\spool\\temp\\sysstop" | \
"$VSIFAX\\lbin\\vmail" -R $EMAIL $EMAIL
file delete "$VSIFAX\\spool\\temp\\sysstop"
exit 0
Fail notify procedures
Syntax