#!/usr/bin/perl -w
#
# (C) 1999-2001 by Christian Ordig <chr.ordig@gmx.net>
#     2005      by Peter Stuifzand <peter@stuifzand.com>
#
use strict;
use IO::Prompt;
use Mail::Message;

sub append_line {
  my ($filename, $line) = @_;

  open my $file, '>>', $filename or die "Problems opening file $filename: $!";
  print $file $line;
  close $file;
}

  
my $ADDRESS_FILE = "$ENV{HOME}/doc/addresses.added";

my $msg = Mail::Message->read(\*STDIN);
my @from = $msg->from;

if ($from[0]) {
  my $name = $from[0]->name();
  my $email = $from[0]->address();

  my $comment = prompt( "Enter a comment for $email: ", -tty );

  print <<"MSG";
Adding...
E-mail:  $email
Name:    $name
Comment: $comment
MSG

  append_line($ADDRESS_FILE, "$name;$email;$comment\n");
  
  system(qq{svn ci -m "" $ADDRESS_FILE});
}