wip

[nj-awaymsg.git] / update-config

diff --git a/update-config b/update-config
new file mode 100755 (executable)
index 0000000..a7f87f3
--- /dev/null
+++ b/update-config
@@ -0,0 +1,28 @@
+#!/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();