#!/usr/bin/perl
#
# Written 1999 by Christian Ordig <chr.ordig@gmx.net>
# 
$TMP_IN="$ENV{HOME}/msg.txt";
$ADDRESS_FILE="$ENV{HOME}/addresses.added";

select (STDIN); $|=1;
select (STDOUT); $|=1;

    open (IN,$TMP_IN);
    while (<IN>) {
	chop;
        ($Field, $Content) = split (/: /);
	if ($Field eq "From") {
	    if (/From: (.*) \<(\S*)\>/) {$Real=$1; $eMail=$2;}
		else {$Real=" ";$eMail=$Content;}
	#	if (/(\S*)\<(\S*)\>/) {$Real=$1;}
	}
        if ($_ eq "\n") {goto END_HEAD;}
    }
END_HEAD: # Header fertig geparsed  

    print ("Comment eingeben fuer $eMail: ");
    $Comment=<STDIN>;
    chop($Comment);

    print ("Adding...\neMail: $eMail\nReal: $Real\nComment: $Comment\n");

    open (ADD,">> $ADDRESS_FILE") || die ("Problems opening file $ADRESS_FILE");
	print ADD "$Real;$eMail;$Comment\n";

    unlink ($TMP_IN);