#!/usr/bin/perl -w
#use strict;

sub filter_post {
    my $rval = "" ;             # assume we'll accept.

    my $ftn_suffix = "p119.f500.n4651.z2.ftn";
    my $x_ftn_suffix = "2:4641/500.119";

    if( $hdr{"Newsgroups"} =~ /^fido7\./ ) {
	use String::CRC32;
	
        $tmp = $hdr{"Message-ID"};
        $crc = crc32($tmp);
        $hdr{"Message-ID"} = sprintf("<%u\@$ftn_suffix>",$crc);
        $hdr{"X-FTN-MSGID"} = sprintf("$x_ftn_suffix %x",$crc);
        $hdr{"X-FTN-REPLYADDR"} = $hdr{"From"};
        $modify_headers = 1;
    }
    return $rval;
}
