#!/usr/bin/perl

# Mail all authors in a list stdin

my $authfile = shift;
my $subj;
if( @ARGV > 0 ) {
	$subj = join(' ',@ARGV);
} else {
	$subj = "Open Citation Project: Research into the social life of arXiv";
}
open(AUTHORS, "<$authfile") or die "Usage: authmail author.db subject text <message\n";

# Read in the file we're sending
my @EMAIL = <STDIN>;

while( $_ = <AUTHORS> ) {
	next if /^#/;
	chomp;
	my @line = split(/\t/, $_);
	my $authorref = $line[0];
	my $addr = $line[3];
	my $name = $line[4];
	$name =~ s/\r//g;
	print "Mailing ", $name, ' <', $addr, '> (', $authorref, ') [', $subj, ']', "\n";
#	open(MAIL, "| mail '$name <$addr>' -s'$subj'");
#	foreach my $line (@EMAIL) {
#		my %vars = ('authorref'=>$authorref, 'addr'=>$addr, 'name'=>$name);
#		$line =~ s/\$(\w+)/$vars{$1}/g;
#		print MAIL $line;
#	}
#	close(MAIL) or warn("Client exited prematurely $?\n");
}