perl filter problem

[Katsuhiro Kondou]

In article <D5D8C6BCD3F8D311868400B0D0214230E719C3 at castle.intra>,
	Wozniak Radoslaw <rwozniak at CASTLE.POLAND.COM> wrote;

} #  %hdr = (Subject      => 'MAKE MONEY FAST!!',
} #                    From         => 'Joe Spamer <him at example.com>',
} #                    Date         => '10 Sep 1996 15:32:28 UTC',
} #                    Newsgroups   => 'alt.test',
} #                    Path         => 'news.example.com!not-for-mail',
} #                    Organization => 'Spammers Anonymous',
} #                    Lines        => '5',
} #                    Distribution => 'usa',
} #                    'Message-ID' => '<6.20232.842369548 at example.com>',
} #                    __BODY__     => 'Send five dollars to the ISC, c/o
} ...',
} #                    __LINES__    => 5
} #            );
} #
} 
} in this example test %hdr array NEVER GIVE $hdr{'__BODY__'} value.
} Im modify filter_nnrpd.pl and cut 6 lines.

I assume you're quoting above from README.perl_hook.
But note that that's in innd perl filter section, not
in nnrpd posting filter section.

} How check (in perl script) message body !

$body should be available for it.  See nnrpd posting
filter section in README.perl_hook.
-- 
Katsuhiro Kondou