[LUG] Perl quickie

[Simon Waters <Simon@xxxxxxxxxxxxxxxxxxxx>]

Demon's newservers got more paranoid.....

this script.....

#!/usr/bin/perl 
use News::Article; 
my $art = News::Article->new(\*STDIN); 
$art->post(); 
exit 0;    

needs magic like this.....

sed -e "s/X-Trace:/X-X-Trace:/ ;
s/X-Complaints:/X-X-Complaints:/ ; 
s/NNTP-Posting-Date:/X-NNTP-Posting-Date:/"     

applied, or maybe just lose the old lines (first of each
starting like this). I assume it is best to filter it between
"stdin" and Article->new()

Anyone with an example of filtering stdin in perl, I'm feeling
brain dead, whilst I go see if News:: has anything more general
than hacking around at the text level.

--
The Mailing List for the Devon & Cornwall LUG
Mail majordomo@xxxxxxxxxxxx with "unsubscribe list" in the
message body to unsubscribe.