#!/usr/bin/env perl
# -* Perl -*- Fri 21 Sep 10:37:28 CDT 2007 
###############################################################################
# emp.pl - multi-post articles to different hierarchies, and save copies
# Written by Tim Skirvin <tskirvin@killfile.org>
# Copyright 2007, Tim Skirvin.  Redistribution terms are below.
###############################################################################
use vars qw( $VERSION );  $VERSION = "0.01";

use vars qw( $OUTPUT @GROUPS %HEADERS @SIGNATURE $PGPSIGN $PGPCONF $PERSON 
             $ID $PHRASE );
use News::Article;
use strict;

###############################################################################
### User Variables ############################################################
###############################################################################

## What headers do we consistently want to set in these articles?
%HEADERS = (
        'From'          =>      'tskirvin@killfile.org (Tim Skirvin)',
           );

## Which newsgroups do we want to post to?
# @GROUPS = qw( bofh.dead-trees rec.games.mecha );
@GROUPS = qw( rec.games.mecha );
# @GROUPS = qw( bofh.test cmi.test );

## Where do we want to write copies of the articles?
$OUTPUT = "/home/tskirvin/news/sentnews";
# $OUTPUT = "/home/tskirvin/news/sentnews.test";

## Where do we have the PGP-signing configuration
$PGPCONF = "/tskirvin/newssign.conf";

###############################################################################
### main() ####################################################################
###############################################################################

@SIGNATURE = <DATA>;

do $PGPCONF;
our $nntpuser ||= (`whoami`);
chomp($nntpuser);

my $article = new News::Article(\*STDIN);

foreach (keys %HEADERS) { 
  $article->set_headers($_, $HEADERS{$_});
}

foreach my $group ( @GROUPS ) {
  my $newart = $article->clone;
  $newart->set_headers('newsgroups', $group);
  $newart->add_date;  $newart->add_message_id( "$nntpuser." );

  $newart->sign_pgpmoose($PERSON, $PHRASE, $ID);
  $newart->rename_header('x-auth', 'x-signature');
  $newart->add_body(@SIGNATURE);

  # post article
  print "Posting article to $group\n";
  $newart->write(\*STDOUT); print "\n";
  # print "Not actually posting\n"; next;

  $newart->post or (warn "Couldn't post to $group: $!\n" && next);
  print "Posted article to $group\n";

  write_output($newart, $OUTPUT) or warn "Couldn't write to $OUTPUT: $!\n";
}

exit 0;

sub write_output {
  my ($article, $file) = @_;
  open(FILE, ">>$file") or ( warn "Couldn't open $file: $!\n" && return 0 );
  print FILE "From $nntpuser " . scalar localtime(time) . "\n";
  $article->write( \*FILE );
  print FILE "\n";
  close FILE;
  1; 
}

__DATA__

			   - Tim Skirvin (tskirvin@killfile.org)
-- 
http://www.killfile.org/~tskirvin/  Skirv's Homepage <FISH>< <*>
http://www.killfile.org/~tskirvin/movies/  Skirv's Movie Reviews