#!/usr/bin/perl
require "prontolib.pl";
read_prefs();
$conn=&open_db_conn;
open(TMP,"$prefs{'MailDir'}/addresses");
while(<TMP>) {
	@addys = split(/,/,$_);
	foreach (@addys) {
		if ($addys[0] =~ /id/) {
			next;
		} else {	
		        $sql = "insert into addresses (id, alias, adress, public_key) values (?, ?, ?, ?)";
			$query=$conn->prepare($sql);
			$query->execute($addys[0],$addys[1],$addys[2],$addys[3]);
			print("Inserted $addys[0], $addys[1], $addys[2], $addys[3]\n");
		}
	}	
}	
close(TMP);
