view release on metacpan or  search on metacpan

examples/gen-another  view on Meta::CPAN

no_looping();
no_spoofing_us();
no_spoofing_by_us();
no_leaf_spoofing();

to_me_rules <<'';
	=skipto is-nfs udp from any to any 111,2049 # NFS RULES
	=skipto is-nfs tcp from any to any 111,2049
	=skipto nfs-okay all from any to any
	=skipto nfs-okay all from any to any frag # this should be not be used
	=label is-nfs
	=rulenum 20000
	pass udp from 209.66.121.17 111,2049 to 209.157.69.252 out xmit =IF0 # BUG IN FREEBSD
	=skipto nfs-okay all from 209.157.69.224/27 to any 
	=skipto nfs-okay all from 209.157.64.208/29 to any 
	=skipto nfs-okay all from 209.157.64.0/25 to any 
	=skipto nfs-okay all from any to any in via 'lo*'
	=skipto nfs-okay all from =ME to any 
	=skipto nfs-okay all from any to any frag # this should be not be used
	=deny all from any to any # NFS
	=label nfs-okay

generate qw(INSECURE DEFAULT-ACCEPT);