아파치 모듈 mod_ext_filter

# mod_ext_filter 지시어를 가지고
# 외부 프로그램 /usr/bin/enscript를 사용하여
# 문서파일과 text/c 파일을 HTML로 만들고 결과의
# type을 text/html로 변경하는 필터를 정의한다
ExtFilterDefine c-to-html mode=output \
intype=text/c outtype=text/html \
cmd="/usr/bin/enscript --color -W html -Ec -o - -"

<Directory "/export/home/trawick/apacheinst/htdocs/c">
# 출력에 새로운 필터를 실행하는 core 지시어
SetOutputFilter c-to-html

# .c 파일의 type을 text/c로 만드는 mod_mime
# 지시어
AddType text/c .c

# 디버그 수준을 높여서 요청마다 현재 설정을
# 알려주는 로그문을 기록하는 mod_ext_filter
# 지시어
ExtFilterOptions DebugLevel=1
</Directory>

# 외부 필터를 정의하는 mod_ext_filter 지시어
ExtFilterDefine gzip mode=output cmd=/bin/gzip

<Location /gzipped>
# 출력할때 gzip 필터를 실행하는 core 지시어
SetOutputFilter gzip

# "Content-Encoding: gzip" 헤더를 추가하는
# mod_header 지시어
Header set Content-Encoding gzip
</Location>

# cat으로 모든 내용을 통과하는 필터를 정의하는
# mod_ext_filter 지시어; cat은 아무것도 수정하지
# 않는다; 단지 처리경로를 길게 하여 자원을 더 소모한다
ExtFilterDefine slowdown mode=output cmd=/bin/cat \
preservescontentlength

<Location />
# 출력할때 slowdown 필터를 여러번 실행하는 core 지시어
#
SetOutputFilter slowdown;slowdown;slowdown
</Location>

# 응답에서 글을 대체하는 필터를 정의하는
# mod_ext_filter 지시어
#
ExtFilterDefine fixtext mode=output intype=text/html \
cmd="/bin/sed s/verdana/arial/g"

<Location />
# 출력할때 fixtext 필터를 실행하는 core 지시어
SetOutputFilter fixtext
</Location>

# 압축 문제가 있는 특정 클라이언트(IP 192.168.1.31)에
# 대해 mod_deflate가 읽고 쓰는 자료를 추적한다.
# 이 필터는 mod_deflate로 보내기 전 자료를 추적한다.
ExtFilterDefine tracebefore \
cmd="/bin/tracefilter.pl /tmp/tracebefore" \
EnableEnv=trace_this_client

# 이 필터는 mod_deflate에서 나오는 자료를 추적한다.
# ftype 파라미터를 사용하지않는 경우, 기본 필터형
# AP_FTYPE_RESOURCE는 필터 순서를 mod_deflate *이전에*
# 둔다. AP_FTYPE_CONTENT_SET 보다 조금 높은 숫자값을
# 지정하면 mod_deflate 이후에 실행한다.
ExtFilterDefine traceafter \
cmd="/bin/tracefilter.pl /tmp/traceafter" \
EnableEnv=trace_this_client ftype=21

<Directory /usr/local/docs>
SetEnvIf Remote_Addr 192.168.1.31 trace_this_client
SetOutputFilter tracebefore;deflate;traceafter
</Directory>

다음은 자료를 추적하는 필터이다:

#!perl -w
use strict;

open(SAVE, ">$ARGV[0]")
or die "can't open $ARGV[0]: $?";

while (<STDIN>) {
print SAVE $_;
print $_;
}

close(SAVE);