#!/usr/bin/perl -w

use strict;

use AwayMsg;

db_connect();

$dbh->do("BEGIN");

$dbh->do("DELETE FROM config");

my $sth= $dbh->prepare("INSERT INTO config".
		       " (emailaddr, username, forwardfile)".
		       " VALUES (?,?,?)");

open C, "config" or die $!;
while (<C>) {
    s/^\s+//;
    next if m/^\#/;
    chomp or die;
    s/\s+$//;
    my @s = split;
    die "$_ ?" unless @s==3;
    $sth->execute(@s);
}

db_commit();