File: filter

package info (click to toggle)
trn4 4.0-test77-18
  • links: PTS, VCS
  • area: non-free
  • in suites: trixie
  • size: 4,016 kB
  • sloc: ansic: 48,332; sh: 6,795; tcl: 1,696; yacc: 662; perl: 108; makefile: 26
file content (18 lines) | stat: -rw-r--r-- 286 bytes parent folder | download | duplicates (12) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
#!/usr/bin/perl -- -*- Perl -*-

require 5;
require "Score.pl";

$debug = $ENV{FILTER_DEBUG};

if ($debug) {
    open (LOG, ">/tmp/filter.log");
    select LOG; $| = 1; select STDOUT;
    print LOG "filter process starting\n";
}

do "$FILTERDIR/global";

&thwack;

$debug && close LOG;