File: startup.tcl.in

package info (click to toggle)
inn2 2.2.2.2000.01.31-5
  • links: PTS
  • area: main
  • in suites: potato
  • size: 5,424 kB
  • ctags: 5,722
  • sloc: ansic: 61,219; perl: 9,939; sh: 5,644; makefile: 1,695; awk: 1,567; yacc: 1,548; lex: 249; tcl: 3
file content (18 lines) | stat: -rw-r--r-- 402 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
# -*- tcl -*-
#
# $Revision: 1.1 $
#
# If you compile with tcl support enabled then this file (even if empty),
# must exist in the location defined in the config.data

set o [open "@LOGDIR@/tcl.log" "a+"]

proc filter_before_reload {} {
    global o
    puts $o "Reloading tcl filter script (before)."
}

proc filter_after_reload {} {
    global o 
    puts $o "Reloading tcl filter script (after)."
}