regress/simulation/emul_filer.sh


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

#!/bin/sh
#
# $FML$
#

if [ -f mime_component_filter ];then
	filter=mime_component_filter
else 
	filter=etc/mime_component_filter
fi

echo use $filter as filter rules.

for x in $*
do
   perl -I ../../fml/lib -I ../../cpan/lib \
	FML/Filter/MimeComponent3.pm -c $filter $x
done

exit 0